1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
commit 8c5689b93e68ac34cdf7dd089a3990ae22f0049c
Author: Xiretza <xiretza@xiretza.xyz>
Date: Sat May 14 11:46:53 2022 +0200
fix: avoid "pragma Unreferenced given" warnings with GCC 12
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -1192,7 +1192,6 @@
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 @@
Link (Cmd, Add_Std => True, Disp_Only => False);
end if;
Delete_File (Filelist_Name.all, Success);
+ pragma Unreferenced (Success);
end Perform_Action;
-- Command Run.
--- a/src/synth/synth-vhdl_stmts.adb
+++ b/src/synth/synth-vhdl_stmts.adb
@@ -1869,11 +1869,11 @@
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.
--- a/src/vhdl/translate/trans-chap2.adb
+++ b/src/vhdl/translate/trans-chap2.adb
@@ -1006,7 +1006,6 @@
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 @@
(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;
|
