diff options
author | Xiretza <xiretza@xiretza.xyz> | 2022-05-14 11:46:53 +0200 |
---|---|---|
committer | Xiretza <xiretza@xiretza.xyz> | 2022-05-14 12:11:08 +0200 |
commit | 8c5689b93e68ac34cdf7dd089a3990ae22f0049c (patch) | |
tree | 64abf2fe317a6563c7fd6a3f1a3a13a2647391a1 /src/ghdldrv | |
parent | 4c3825daf54f81433e5de46cc25fdfac7189ffab (diff) | |
download | ghdl-8c5689b93e68ac34cdf7dd089a3990ae22f0049c.tar.gz ghdl-8c5689b93e68ac34cdf7dd089a3990ae22f0049c.tar.bz2 ghdl-8c5689b93e68ac34cdf7dd089a3990ae22f0049c.zip |
fix: avoid "pragma Unreferenced given" warnings with GCC 12
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdldrv.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index e7990ed4d..0313e6057 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -1192,7 +1192,6 @@ package body Ghdldrv is procedure Perform_Action (Cmd : in out Command_Elab; Args : Argument_List) is Success : Boolean; - pragma Unreferenced (Success); begin Set_Elab_Units (Cmd, "-e", Args); Setup_Compiler (Cmd, False); @@ -1202,6 +1201,7 @@ package body Ghdldrv is Link (Cmd, Add_Std => True, Disp_Only => False); end if; Delete_File (Filelist_Name.all, Success); + pragma Unreferenced (Success); end Perform_Action; -- Command Run. |