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 | |
| 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')
| -rw-r--r-- | src/ghdldrv/ghdldrv.adb | 2 | ||||
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 2 |
3 files changed, 3 insertions, 3 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. diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 3e09c3318..6fa2e9227 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -1933,11 +1933,11 @@ package body Synth.Vhdl_Stmts is Assoc_Chain : Node) is Infos : Target_Info_Array (1 .. 0); - pragma Unreferenced (Infos); Init : Association_Iterator_Init; begin Init := Association_Iterator_Build (Inter_Chain, Assoc_Chain); Synth_Subprogram_Association (Subprg_Inst, Caller_Inst, Init, Infos); + pragma Unreferenced (Infos); end Synth_Subprogram_Association; -- Create wires for out and inout interface variables. diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index ff04a13b7..9e7e32915 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1006,7 +1006,6 @@ package body Trans.Chap2 is Info : constant Ortho_Info_Acc := Get_Info (Spec); Final : Boolean; Constr : O_Assoc_List; - pragma Unreferenced (Final); begin if not Is_Nested then Start_Subprogram_Body (Info.Package_Elab_Spec_Subprg); @@ -1039,6 +1038,7 @@ package body Trans.Chap2 is (Info.Package_Spec_Scope'Access, Info.Package_Spec_Scope)); end if; Chap4.Elab_Declaration_Chain (Spec, Final); + pragma Unreferenced (Final); if not Is_Nested then Close_Temp; |