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/vhdl/translate/trans-chap2.adb | |
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/vhdl/translate/trans-chap2.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |