summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2017-01-20 11:38:41 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2017-01-20 11:38:41 +0100
commitf68fc405bb5b38c545498c4a1dba203e51dade32 (patch)
tree57d5fd22e8f8871d01ffd76cb2d29d32468b518e
parentf4ef7b06ce8973846a7002c9325c576e099917d6 (diff)
downloadgcc-f68fc405bb5b38c545498c4a1dba203e51dade32.tar.gz
[multiple changes]
2017-01-20 Ed Schonberg <schonberg@adacore.com> * sem_ch3.adb (Check_Nonoverridable_Aspects); Refine check for illegal inherited Implicit_Dereference aspects with renamed discriminants. 2017-01-20 Javier Miranda <miranda@adacore.com> * debug.adb (switch d.6): do not avoid declaring unreferenced itypes. * nlists.ads (Lock_Lists, Unlock_Lists): New subprograms. * nlists.adb (Lock_Lists, Unlock_Lists): New subprograms. (Set_First, Set_Last, Set_List_Link, Set_Next, Set_Parent, Set_Prev, Tree_Read): Adding assertion. * atree.ads (Lock_Nodes, Unlock_Nodes): New subprograms. * atree.adb (Lock_Nodes, Unlock_Nodes): New subprograms. (Set_Analyzed, Set_Check_Actuals, Set_Comes_From_Source, Set_Ekind, Set_Error_Posted, Set_Has_Aspects, Set_Is_Ignored_Ghost_Node, Set_Original_Node, Set_Paren_Count, Set_Parent, Set_Sloc, Set_Nkind, Set_FieldNN, Set_NodeNN, Set_ListNN, Set_ElistNN, Set_NameN, Set_StrN, Set_UintNN, Set_UrealNN, Set_FlagNNN, Set_NodeN_With_Parent, Set_ListN_With_Parent): Adding assertion. 2017-01-20 Ed Schonberg <schonberg@adacore.com> * sem_prag.adb (Process_Convention): Diagnose properly a pragma import that applies to several homograph subprograms. when one of them is declared by a subprogram body. 2017-01-20 Justin Squirek <squirek@adacore.com> * exp_ch6.adb (Expand_Call): Remove optimization that nulls out calls to null procedures. From-SVN: r244699
Diffstat
-rw-r--r--gcc/ada/ChangeLog34
-rw-r--r--gcc/ada/atree.adb499
-rw-r--r--gcc/ada/atree.ads9
-rw-r--r--gcc/ada/debug.adb6
-rw-r--r--gcc/ada/exp_ch6.adb17
-rw-r--r--gcc/ada/nlists.adb31
-rw-r--r--gcc/ada/nlists.ads9
-rw-r--r--gcc/ada/sem_ch3.adb78
-rw-r--r--gcc/ada/sem_prag.adb11
9 files changed, 652 insertions, 42 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 252efc5079e..654df038c67 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,37 @@
+2017-01-20 Ed Schonberg <schonberg@adacore.com>
+
+ * sem_ch3.adb (Check_Nonoverridable_Aspects); Refine check
+ for illegal inherited Implicit_Dereference aspects with renamed
+ discriminants.
+
+2017-01-20 Javier Miranda <miranda@adacore.com>
+
+ * debug.adb (switch d.6): do not avoid declaring unreferenced itypes.
+ * nlists.ads (Lock_Lists, Unlock_Lists): New subprograms.
+ * nlists.adb (Lock_Lists, Unlock_Lists): New subprograms.
+ (Set_First, Set_Last, Set_List_Link, Set_Next, Set_Parent,
+ Set_Prev, Tree_Read): Adding assertion.
+ * atree.ads (Lock_Nodes, Unlock_Nodes): New subprograms.
+ * atree.adb (Lock_Nodes, Unlock_Nodes): New subprograms.
+ (Set_Analyzed, Set_Check_Actuals, Set_Comes_From_Source,
+ Set_Ekind, Set_Error_Posted, Set_Has_Aspects,
+ Set_Is_Ignored_Ghost_Node, Set_Original_Node, Set_Paren_Count,
+ Set_Parent, Set_Sloc, Set_Nkind, Set_FieldNN, Set_NodeNN,
+ Set_ListNN, Set_ElistNN, Set_NameN, Set_StrN, Set_UintNN,
+ Set_UrealNN, Set_FlagNNN, Set_NodeN_With_Parent,
+ Set_ListN_With_Parent): Adding assertion.
+
+2017-01-20 Ed Schonberg <schonberg@adacore.com>
+
+ * sem_prag.adb (Process_Convention): Diagnose properly a pragma
+ import that applies to several homograph subprograms. when one
+ of them is declared by a subprogram body.
+
+2017-01-20 Justin Squirek <squirek@adacore.com>
+
+ * exp_ch6.adb (Expand_Call): Remove optimization
+ that nulls out calls to null procedures.
+
2017-01-20 Yannick Moy <moy@adacore.com>
* inline.adb (Expand_Inlined_Call): Keep more
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb
index 2e56371600b..29251c226aa 100644
--- a/gcc/ada/atree.adb
+++ b/gcc/ada/atree.adb
@@ -48,6 +48,11 @@ with GNAT.Heap_Sort_G;
package body Atree is
+ Locked : Boolean := False;
+ -- Compiling with assertions enabled, node contents modifications are
+ -- permitted only when this switch is set to False; compiling without
+ -- assertions this lock has no effect.
+
Reporting_Proc : Report_Proc := null;
-- Record argument to last call to Set_Reporting_Proc
@@ -1586,6 +1591,16 @@ package body Atree is
Orig_Nodes.Release;
end Lock;
+ ----------------
+ -- Lock_Nodes --
+ ----------------
+
+ procedure Lock_Nodes is
+ begin
+ pragma Assert (not Locked);
+ Locked := True;
+ end Lock_Nodes;
+
-------------------------
-- Mark_New_Ghost_Node --
-------------------------
@@ -2285,6 +2300,7 @@ package body Atree is
procedure Set_Analyzed (N : Node_Id; Val : Boolean := True) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Analyzed := Val;
end Set_Analyzed;
@@ -2294,6 +2310,7 @@ package body Atree is
procedure Set_Check_Actuals (N : Node_Id; Val : Boolean := True) is
begin
+ pragma Assert (not Locked);
Flags.Table (N).Check_Actuals := Val;
end Set_Check_Actuals;
@@ -2303,6 +2320,7 @@ package body Atree is
procedure Set_Comes_From_Source (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Comes_From_Source := Val;
end Set_Comes_From_Source;
@@ -2322,6 +2340,7 @@ package body Atree is
procedure Set_Ekind (E : Entity_Id; Val : Entity_Kind) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (E) in N_Entity);
Nodes.Table (E + 1).Nkind := E_To_N (Val);
end Set_Ekind;
@@ -2332,6 +2351,7 @@ package body Atree is
procedure Set_Error_Posted (N : Node_Id; Val : Boolean := True) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Error_Posted := Val;
end Set_Error_Posted;
@@ -2341,6 +2361,7 @@ package body Atree is
procedure Set_Has_Aspects (N : Node_Id; Val : Boolean := True) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Has_Aspects := Val;
end Set_Has_Aspects;
@@ -2351,6 +2372,7 @@ package body Atree is
procedure Set_Is_Ignored_Ghost_Node (N : Node_Id; Val : Boolean := True) is
begin
+ pragma Assert (not Locked);
Flags.Table (N).Is_Ignored_Ghost_Node := Val;
end Set_Is_Ignored_Ghost_Node;
@@ -2360,6 +2382,7 @@ package body Atree is
procedure Set_Original_Node (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
Orig_Nodes.Table (N) := Val;
end Set_Original_Node;
@@ -2369,6 +2392,7 @@ package body Atree is
procedure Set_Paren_Count (N : Node_Id; Val : Nat) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Subexpr);
-- Value of 0,1,2 stored as is
@@ -2400,6 +2424,7 @@ package body Atree is
procedure Set_Parent (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (not Nodes.Table (N).In_List);
Nodes.Table (N).Link := Union_Id (Val);
end Set_Parent;
@@ -2410,6 +2435,7 @@ package body Atree is
procedure Set_Sloc (N : Node_Id; Val : Source_Ptr) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Sloc := Val;
end Set_Sloc;
@@ -5492,1201 +5518,1402 @@ package body Atree is
procedure Set_Nkind (N : Node_Id; Val : Node_Kind) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Nkind := Val;
end Set_Nkind;
procedure Set_Field1 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field1 := Val;
end Set_Field1;
procedure Set_Field2 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field2 := Val;
end Set_Field2;
procedure Set_Field3 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field3 := Val;
end Set_Field3;
procedure Set_Field4 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field4 := Val;
end Set_Field4;
procedure Set_Field5 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field5 := Val;
end Set_Field5;
procedure Set_Field6 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field6 := Val;
end Set_Field6;
procedure Set_Field7 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field7 := Val;
end Set_Field7;
procedure Set_Field8 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field8 := Val;
end Set_Field8;
procedure Set_Field9 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field9 := Val;
end Set_Field9;
procedure Set_Field10 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field10 := Val;
end Set_Field10;
procedure Set_Field11 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field11 := Val;
end Set_Field11;
procedure Set_Field12 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field12 := Val;
end Set_Field12;
procedure Set_Field13 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field6 := Val;
end Set_Field13;
procedure Set_Field14 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field7 := Val;
end Set_Field14;
procedure Set_Field15 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field8 := Val;
end Set_Field15;
procedure Set_Field16 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field9 := Val;
end Set_Field16;
procedure Set_Field17 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field10 := Val;
end Set_Field17;
procedure Set_Field18 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field11 := Val;
end Set_Field18;
procedure Set_Field19 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field6 := Val;
end Set_Field19;
procedure Set_Field20 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field7 := Val;
end Set_Field20;
procedure Set_Field21 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field8 := Val;
end Set_Field21;
procedure Set_Field22 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field9 := Val;
end Set_Field22;
procedure Set_Field23 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field10 := Val;
end Set_Field23;
procedure Set_Field24 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field6 := Val;
end Set_Field24;
procedure Set_Field25 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field7 := Val;
end Set_Field25;
procedure Set_Field26 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field8 := Val;
end Set_Field26;
procedure Set_Field27 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field9 := Val;
end Set_Field27;
procedure Set_Field28 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field10 := Val;
end Set_Field28;
procedure Set_Field29 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field11 := Val;
end Set_Field29;
procedure Set_Field30 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field6 := Val;
end Set_Field30;
procedure Set_Field31 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field7 := Val;
end Set_Field31;
procedure Set_Field32 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field8 := Val;
end Set_Field32;
procedure Set_Field33 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field9 := Val;
end Set_Field33;
procedure Set_Field34 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field10 := Val;
end Set_Field34;
procedure Set_Field35 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field11 := Val;
end Set_Field35;
procedure Set_Field36 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field6 := Val;
end Set_Field36;
procedure Set_Field37 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field7 := Val;
end Set_Field37;
procedure Set_Field38 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field8 := Val;
end Set_Field38;
procedure Set_Field39 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field9 := Val;
end Set_Field39;
procedure Set_Field40 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field10 := Val;
end Set_Field40;
procedure Set_Field41 (N : Node_Id; Val : Union_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field11 := Val;
end Set_Field41;
procedure Set_Node1 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field1 := Union_Id (Val);
end Set_Node1;
procedure Set_Node2 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field2 := Union_Id (Val);
end Set_Node2;
procedure Set_Node3 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field3 := Union_Id (Val);
end Set_Node3;
procedure Set_Node4 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field4 := Union_Id (Val);
end Set_Node4;
procedure Set_Node5 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field5 := Union_Id (Val);
end Set_Node5;
procedure Set_Node6 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field6 := Union_Id (Val);
end Set_Node6;
procedure Set_Node7 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field7 := Union_Id (Val);
end Set_Node7;
procedure Set_Node8 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field8 := Union_Id (Val);
end Set_Node8;
procedure Set_Node9 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field9 := Union_Id (Val);
end Set_Node9;
procedure Set_Node10 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field10 := Union_Id (Val);
end Set_Node10;
procedure Set_Node11 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field11 := Union_Id (Val);
end Set_Node11;
procedure Set_Node12 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field12 := Union_Id (Val);
end Set_Node12;
procedure Set_Node13 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field6 := Union_Id (Val);
end Set_Node13;
procedure Set_Node14 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field7 := Union_Id (Val);
end Set_Node14;
procedure Set_Node15 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field8 := Union_Id (Val);
end Set_Node15;
procedure Set_Node16 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field9 := Union_Id (Val);
end Set_Node16;
procedure Set_Node17 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field10 := Union_Id (Val);
end Set_Node17;
procedure Set_Node18 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field11 := Union_Id (Val);
end Set_Node18;
procedure Set_Node19 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field6 := Union_Id (Val);
end Set_Node19;
procedure Set_Node20 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field7 := Union_Id (Val);
end Set_Node20;
procedure Set_Node21 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field8 := Union_Id (Val);
end Set_Node21;
procedure Set_Node22 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field9 := Union_Id (Val);
end Set_Node22;
procedure Set_Node23 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field10 := Union_Id (Val);
end Set_Node23;
procedure Set_Node24 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field6 := Union_Id (Val);
end Set_Node24;
procedure Set_Node25 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field7 := Union_Id (Val);
end Set_Node25;
procedure Set_Node26 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field8 := Union_Id (Val);
end Set_Node26;
procedure Set_Node27 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field9 := Union_Id (Val);
end Set_Node27;
procedure Set_Node28 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field10 := Union_Id (Val);
end Set_Node28;
procedure Set_Node29 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field11 := Union_Id (Val);
end Set_Node29;
procedure Set_Node30 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field6 := Union_Id (Val);
end Set_Node30;
procedure Set_Node31 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field7 := Union_Id (Val);
end Set_Node31;
procedure Set_Node32 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field8 := Union_Id (Val);
end Set_Node32;
procedure Set_Node33 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field9 := Union_Id (Val);
end Set_Node33;
procedure Set_Node34 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field10 := Union_Id (Val);
end Set_Node34;
procedure Set_Node35 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Field11 := Union_Id (Val);
end Set_Node35;
procedure Set_Node36 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field6 := Union_Id (Val);
end Set_Node36;
procedure Set_Node37 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field7 := Union_Id (Val);
end Set_Node37;
procedure Set_Node38 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field8 := Union_Id (Val);
end Set_Node38;
procedure Set_Node39 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field9 := Union_Id (Val);
end Set_Node39;
procedure Set_Node40 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field10 := Union_Id (Val);
end Set_Node40;
procedure Set_Node41 (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field11 := Union_Id (Val);
end Set_Node41;
procedure Set_List1 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field1 := Union_Id (Val);
end Set_List1;
procedure Set_List2 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field2 := Union_Id (Val);
end Set_List2;
procedure Set_List3 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field3 := Union_Id (Val);
end Set_List3;
procedure Set_List4 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field4 := Union_Id (Val);
end Set_List4;
procedure Set_List5 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field5 := Union_Id (Val);
end Set_List5;
procedure Set_List10 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field10 := Union_Id (Val);
end Set_List10;
procedure Set_List14 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field7 := Union_Id (Val);
end Set_List14;
procedure Set_List25 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field7 := Union_Id (Val);
end Set_List25;
procedure Set_List38 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field8 := Union_Id (Val);
end Set_List38;
procedure Set_List39 (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field9 := Union_Id (Val);
end Set_List39;
procedure Set_Elist1 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Field1 := Union_Id (Val);
end Set_Elist1;
procedure Set_Elist2 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Field2 := Union_Id (Val);
end Set_Elist2;
procedure Set_Elist3 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Field3 := Union_Id (Val);
end Set_Elist3;
procedure Set_Elist4 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Field4 := Union_Id (Val);
end Set_Elist4;
procedure Set_Elist5 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
Nodes.Table (N).Field5 := Union_Id (Val);
end Set_Elist5;
procedure Set_Elist8 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field8 := Union_Id (Val);
end Set_Elist8;
procedure Set_Elist9 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field9 := Union_Id (Val);
end Set_Elist9;
procedure Set_Elist10 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field10 := Union_Id (Val);
end Set_Elist10;
procedure Set_Elist11 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field11 := Union_Id (Val);
end Set_Elist11;
procedure Set_Elist13 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field6 := Union_Id (Val);
end Set_Elist13;
procedure Set_Elist15 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field8 := Union_Id (Val);
end Set_Elist15;
procedure Set_Elist16 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field9 := Union_Id (Val);
end Set_Elist16;
procedure Set_Elist18 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field11 := Union_Id (Val);
end Set_Elist18;
procedure Set_Elist21 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field8 := Union_Id (Val);
end Set_Elist21;
procedure Set_Elist23 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field10 := Union_Id (Val);
end Set_Elist23;
procedure Set_Elist24 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field6 := Union_Id (Val);
end Set_Elist24;
procedure Set_Elist25 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field7 := Union_Id (Val);
end Set_Elist25;
procedure Set_Elist26 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field8 := Union_Id (Val);
end Set_Elist26;
procedure Set_Elist29 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field11 := Union_Id (Val);
end Set_Elist29;
procedure Set_Elist36 (N : Node_Id; Val : Elist_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 6).Field6 := Union_Id (Val);
end Set_Elist36;
procedure Set_Name1 (N : Node_Id; Val : Name_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field1 := Union_Id (Val);
end Set_Name1;
procedure Set_Name2 (N : Node_Id; Val : Name_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field2 := Union_Id (Val);
end Set_Name2;
procedure Set_Str3 (N : Node_Id; Val : String_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field3 := Union_Id (Val);
end Set_Str3;
procedure Set_Uint2 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field2 := To_Union (Val);
end Set_Uint2;
procedure Set_Uint3 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field3 := To_Union (Val);
end Set_Uint3;
procedure Set_Uint4 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field4 := To_Union (Val);
end Set_Uint4;
procedure Set_Uint5 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field5 := To_Union (Val);
end Set_Uint5;
procedure Set_Uint8 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field8 := To_Union (Val);
end Set_Uint8;
procedure Set_Uint9 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field9 := To_Union (Val);
end Set_Uint9;
procedure Set_Uint10 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field10 := To_Union (Val);
end Set_Uint10;
procedure Set_Uint11 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field11 := To_Union (Val);
end Set_Uint11;
procedure Set_Uint12 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Field12 := To_Union (Val);
end Set_Uint12;
procedure Set_Uint13 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field6 := To_Union (Val);
end Set_Uint13;
procedure Set_Uint14 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field7 := To_Union (Val);
end Set_Uint14;
procedure Set_Uint15 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field8 := To_Union (Val);
end Set_Uint15;
procedure Set_Uint16 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field9 := To_Union (Val);
end Set_Uint16;
procedure Set_Uint17 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field10 := To_Union (Val);
end Set_Uint17;
procedure Set_Uint22 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field9 := To_Union (Val);
end Set_Uint22;
procedure Set_Uint24 (N : Node_Id; Val : Uint) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Field6 := To_Union (Val);
end Set_Uint24;
procedure Set_Ureal3 (N : Node_Id; Val : Ureal) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Field3 := To_Union (Val);
end Set_Ureal3;
procedure Set_Ureal18 (N : Node_Id; Val : Ureal) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Field11 := To_Union (Val);
end Set_Ureal18;
procedure Set_Ureal21 (N : Node_Id; Val : Ureal) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Field8 := To_Union (Val);
end Set_Ureal21;
procedure Set_Flag0 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Flags.Table (N).Flag0 := Val;
end Set_Flag0;
procedure Set_Flag1 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Flags.Table (N).Flag1 := Val;
end Set_Flag1;
procedure Set_Flag2 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Flags.Table (N).Flag2 := Val;
end Set_Flag2;
procedure Set_Flag3 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Flags.Table (N).Flag3 := Val;
end Set_Flag3;
procedure Set_Flag4 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag4 := Val;
end Set_Flag4;
procedure Set_Flag5 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag5 := Val;
end Set_Flag5;
procedure Set_Flag6 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag6 := Val;
end Set_Flag6;
procedure Set_Flag7 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag7 := Val;
end Set_Flag7;
procedure Set_Flag8 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag8 := Val;
end Set_Flag8;
procedure Set_Flag9 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag9 := Val;
end Set_Flag9;
procedure Set_Flag10 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag10 := Val;
end Set_Flag10;
procedure Set_Flag11 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag11 := Val;
end Set_Flag11;
procedure Set_Flag12 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag12 := Val;
end Set_Flag12;
procedure Set_Flag13 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag13 := Val;
end Set_Flag13;
procedure Set_Flag14 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag14 := Val;
end Set_Flag14;
procedure Set_Flag15 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag15 := Val;
end Set_Flag15;
procedure Set_Flag16 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag16 := Val;
end Set_Flag16;
procedure Set_Flag17 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag17 := Val;
end Set_Flag17;
procedure Set_Flag18 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
Nodes.Table (N).Flag18 := Val;
end Set_Flag18;
procedure Set_Flag19 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).In_List := Val;
end Set_Flag19;
procedure Set_Flag20 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Has_Aspects := Val;
end Set_Flag20;
procedure Set_Flag21 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Rewrite_Ins := Val;
end Set_Flag21;
procedure Set_Flag22 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Analyzed := Val;
end Set_Flag22;
procedure Set_Flag23 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Comes_From_Source := Val;
end Set_Flag23;
procedure Set_Flag24 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Error_Posted := Val;
end Set_Flag24;
procedure Set_Flag25 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag4 := Val;
end Set_Flag25;
procedure Set_Flag26 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag5 := Val;
end Set_Flag26;
procedure Set_Flag27 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag6 := Val;
end Set_Flag27;
procedure Set_Flag28 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag7 := Val;
end Set_Flag28;
procedure Set_Flag29 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag8 := Val;
end Set_Flag29;
procedure Set_Flag30 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag9 := Val;
end Set_Flag30;
procedure Set_Flag31 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag10 := Val;
end Set_Flag31;
procedure Set_Flag32 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag11 := Val;
end Set_Flag32;
procedure Set_Flag33 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag12 := Val;
end Set_Flag33;
procedure Set_Flag34 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag13 := Val;
end Set_Flag34;
procedure Set_Flag35 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag14 := Val;
end Set_Flag35;
procedure Set_Flag36 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag15 := Val;
end Set_Flag36;
procedure Set_Flag37 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag16 := Val;
end Set_Flag37;
procedure Set_Flag38 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag17 := Val;
end Set_Flag38;
procedure Set_Flag39 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Flag18 := Val;
end Set_Flag39;
procedure Set_Flag40 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).In_List := Val;
end Set_Flag40;
procedure Set_Flag41 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Has_Aspects := Val;
end Set_Flag41;
procedure Set_Flag42 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Rewrite_Ins := Val;
end Set_Flag42;
procedure Set_Flag43 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Analyzed := Val;
end Set_Flag43;
procedure Set_Flag44 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Comes_From_Source := Val;
end Set_Flag44;
procedure Set_Flag45 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Error_Posted := Val;
end Set_Flag45;
procedure Set_Flag46 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag4 := Val;
end Set_Flag46;
procedure Set_Flag47 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag5 := Val;
end Set_Flag47;
procedure Set_Flag48 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag6 := Val;
end Set_Flag48;
procedure Set_Flag49 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag7 := Val;
end Set_Flag49;
procedure Set_Flag50 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag8 := Val;
end Set_Flag50;
procedure Set_Flag51 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag9 := Val;
end Set_Flag51;
procedure Set_Flag52 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag10 := Val;
end Set_Flag52;
procedure Set_Flag53 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag11 := Val;
end Set_Flag53;
procedure Set_Flag54 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag12 := Val;
end Set_Flag54;
procedure Set_Flag55 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag13 := Val;
end Set_Flag55;
procedure Set_Flag56 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag14 := Val;
end Set_Flag56;
procedure Set_Flag57 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag15 := Val;
end Set_Flag57;
procedure Set_Flag58 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag16 := Val;
end Set_Flag58;
procedure Set_Flag59 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag17 := Val;
end Set_Flag59;
procedure Set_Flag60 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Flag18 := Val;
end Set_Flag60;
procedure Set_Flag61 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Pflag1 := Val;
end Set_Flag61;
procedure Set_Flag62 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 1).Pflag2 := Val;
end Set_Flag62;
procedure Set_Flag63 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Pflag1 := Val;
end Set_Flag63;
procedure Set_Flag64 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 2).Pflag2 := Val;
end Set_Flag64;
procedure Set_Flag65 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6695,6 +6922,7 @@ package body Atree is
procedure Set_Flag66 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6703,6 +6931,7 @@ package body Atree is
procedure Set_Flag67 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6711,6 +6940,7 @@ package body Atree is
procedure Set_Flag68 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6719,6 +6949,7 @@ package body Atree is
procedure Set_Flag69 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6727,6 +6958,7 @@ package body Atree is
procedure Set_Flag70 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6735,6 +6967,7 @@ package body Atree is
procedure Set_Flag71 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6743,6 +6976,7 @@ package body Atree is
procedure Set_Flag72 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte_Ptr
(Node_Kind_Ptr'
@@ -6751,6 +6985,7 @@ package body Atree is
procedure Set_Flag73 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6759,6 +6994,7 @@ package body Atree is
procedure Set_Flag74 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6767,6 +7003,7 @@ package body Atree is
procedure Set_Flag75 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6775,6 +7012,7 @@ package body Atree is
procedure Set_Flag76 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6783,6 +7021,7 @@ package body Atree is
procedure Set_Flag77 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6791,6 +7030,7 @@ package body Atree is
procedure Set_Flag78 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6799,6 +7039,7 @@ package body Atree is
procedure Set_Flag79 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6807,6 +7048,7 @@ package body Atree is
procedure Set_Flag80 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6815,6 +7057,7 @@ package body Atree is
procedure Set_Flag81 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6823,6 +7066,7 @@ package body Atree is
procedure Set_Flag82 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6831,6 +7075,7 @@ package body Atree is
procedure Set_Flag83 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6839,6 +7084,7 @@ package body Atree is
procedure Set_Flag84 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6847,6 +7093,7 @@ package body Atree is
procedure Set_Flag85 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6855,6 +7102,7 @@ package body Atree is
procedure Set_Flag86 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6863,6 +7111,7 @@ package body Atree is
procedure Set_Flag87 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6871,6 +7120,7 @@ package body Atree is
procedure Set_Flag88 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6879,6 +7129,7 @@ package body Atree is
procedure Set_Flag89 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6887,6 +7138,7 @@ package body Atree is
procedure Set_Flag90 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6895,6 +7147,7 @@ package body Atree is
procedure Set_Flag91 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6903,6 +7156,7 @@ package body Atree is
procedure Set_Flag92 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6911,6 +7165,7 @@ package body Atree is
procedure Set_Flag93 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6919,6 +7174,7 @@ package body Atree is
procedure Set_Flag94 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6927,6 +7183,7 @@ package body Atree is
procedure Set_Flag95 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6935,6 +7192,7 @@ package body Atree is
procedure Set_Flag96 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word_Ptr
(Union_Id_Ptr'
@@ -6943,6 +7201,7 @@ package body Atree is
procedure Set_Flag97 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -6951,6 +7210,7 @@ package body Atree is
procedure Set_Flag98 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -6959,6 +7219,7 @@ package body Atree is
procedure Set_Flag99 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -6967,6 +7228,7 @@ package body Atree is
procedure Set_Flag100 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -6975,6 +7237,7 @@ package body Atree is
procedure Set_Flag101 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -6983,6 +7246,7 @@ package body Atree is
procedure Set_Flag102 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -6991,6 +7255,7 @@ package body Atree is
procedure Set_Flag103 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -6999,6 +7264,7 @@ package body Atree is
procedure Set_Flag104 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7007,6 +7273,7 @@ package body Atree is
procedure Set_Flag105 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7015,6 +7282,7 @@ package body Atree is
procedure Set_Flag106 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7023,6 +7291,7 @@ package body Atree is
procedure Set_Flag107 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7031,6 +7300,7 @@ package body Atree is
procedure Set_Flag108 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7039,6 +7309,7 @@ package body Atree is
procedure Set_Flag109 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7047,6 +7318,7 @@ package body Atree is
procedure Set_Flag110 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7055,6 +7327,7 @@ package body Atree is
procedure Set_Flag111 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7063,6 +7336,7 @@ package body Atree is
procedure Set_Flag112 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7071,6 +7345,7 @@ package body Atree is
procedure Set_Flag113 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7079,6 +7354,7 @@ package body Atree is
procedure Set_Flag114 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7087,6 +7363,7 @@ package body Atree is
procedure Set_Flag115 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7095,6 +7372,7 @@ package body Atree is
procedure Set_Flag116 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7103,6 +7381,7 @@ package body Atree is
procedure Set_Flag117 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7111,6 +7390,7 @@ package body Atree is
procedure Set_Flag118 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7119,6 +7399,7 @@ package body Atree is
procedure Set_Flag119 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7127,6 +7408,7 @@ package body Atree is
procedure Set_Flag120 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7135,6 +7417,7 @@ package body Atree is
procedure Set_Flag121 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7143,6 +7426,7 @@ package body Atree is
procedure Set_Flag122 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7151,6 +7435,7 @@ package body Atree is
procedure Set_Flag123 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7159,6 +7444,7 @@ package body Atree is
procedure Set_Flag124 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7167,6 +7453,7 @@ package body Atree is
procedure Set_Flag125 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7175,6 +7462,7 @@ package body Atree is
procedure Set_Flag126 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7183,6 +7471,7 @@ package body Atree is
procedure Set_Flag127 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7191,6 +7480,7 @@ package body Atree is
procedure Set_Flag128 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word2_Ptr
(Union_Id_Ptr'
@@ -7199,144 +7489,168 @@ package body Atree is
procedure Set_Flag129 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).In_List := Val;
end Set_Flag129;
procedure Set_Flag130 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Has_Aspects := Val;
end Set_Flag130;
procedure Set_Flag131 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Rewrite_Ins := Val;
end Set_Flag131;
procedure Set_Flag132 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Analyzed := Val;
end Set_Flag132;
procedure Set_Flag133 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Comes_From_Source := Val;
end Set_Flag133;
procedure Set_Flag134 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Error_Posted := Val;
end Set_Flag134;
procedure Set_Flag135 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag4 := Val;
end Set_Flag135;
procedure Set_Flag136 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag5 := Val;
end Set_Flag136;
procedure Set_Flag137 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag6 := Val;
end Set_Flag137;
procedure Set_Flag138 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag7 := Val;
end Set_Flag138;
procedure Set_Flag139 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag8 := Val;
end Set_Flag139;
procedure Set_Flag140 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag9 := Val;
end Set_Flag140;
procedure Set_Flag141 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag10 := Val;
end Set_Flag141;
procedure Set_Flag142 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag11 := Val;
end Set_Flag142;
procedure Set_Flag143 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag12 := Val;
end Set_Flag143;
procedure Set_Flag144 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag13 := Val;
end Set_Flag144;
procedure Set_Flag145 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag14 := Val;
end Set_Flag145;
procedure Set_Flag146 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag15 := Val;
end Set_Flag146;
procedure Set_Flag147 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag16 := Val;
end Set_Flag147;
procedure Set_Flag148 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag17 := Val;
end Set_Flag148;
procedure Set_Flag149 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Flag18 := Val;
end Set_Flag149;
procedure Set_Flag150 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Pflag1 := Val;
end Set_Flag150;
procedure Set_Flag151 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 3).Pflag2 := Val;
end Set_Flag151;
procedure Set_Flag152 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7345,6 +7659,7 @@ package body Atree is
procedure Set_Flag153 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7353,6 +7668,7 @@ package body Atree is
procedure Set_Flag154 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7361,6 +7677,7 @@ package body Atree is
procedure Set_Flag155 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7369,6 +7686,7 @@ package body Atree is
procedure Set_Flag156 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7377,6 +7695,7 @@ package body Atree is
procedure Set_Flag157 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7385,6 +7704,7 @@ package body Atree is
procedure Set_Flag158 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7393,6 +7713,7 @@ package body Atree is
procedure Set_Flag159 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7401,6 +7722,7 @@ package body Atree is
procedure Set_Flag160 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7409,6 +7731,7 @@ package body Atree is
procedure Set_Flag161 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7417,6 +7740,7 @@ package body Atree is
procedure Set_Flag162 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7425,6 +7749,7 @@ package body Atree is
procedure Set_Flag163 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7433,6 +7758,7 @@ package body Atree is
procedure Set_Flag164 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7441,6 +7767,7 @@ package body Atree is
procedure Set_Flag165 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7449,6 +7776,7 @@ package body Atree is
procedure Set_Flag166 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7457,6 +7785,7 @@ package body Atree is
procedure Set_Flag167 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7465,6 +7794,7 @@ package body Atree is
procedure Set_Flag168 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7473,6 +7803,7 @@ package body Atree is
procedure Set_Flag169 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7481,6 +7812,7 @@ package body Atree is
procedure Set_Flag170 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7489,6 +7821,7 @@ package body Atree is
procedure Set_Flag171 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7497,6 +7830,7 @@ package body Atree is
procedure Set_Flag172 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7505,6 +7839,7 @@ package body Atree is
procedure Set_Flag173 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7513,6 +7848,7 @@ package body Atree is
procedure Set_Flag174 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7521,6 +7857,7 @@ package body Atree is
procedure Set_Flag175 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7529,6 +7866,7 @@ package body Atree is
procedure Set_Flag176 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7537,6 +7875,7 @@ package body Atree is
procedure Set_Flag177 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7545,6 +7884,7 @@ package body Atree is
procedure Set_Flag178 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7553,6 +7893,7 @@ package body Atree is
procedure Set_Flag179 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7561,6 +7902,7 @@ package body Atree is
procedure Set_Flag180 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7569,6 +7911,7 @@ package body Atree is
procedure Set_Flag181 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7577,6 +7920,7 @@ package body Atree is
procedure Set_Flag182 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7585,6 +7929,7 @@ package body Atree is
procedure Set_Flag183 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word3_Ptr
(Union_Id_Ptr'
@@ -7593,6 +7938,7 @@ package body Atree is
procedure Set_Flag184 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7601,6 +7947,7 @@ package body Atree is
procedure Set_Flag185 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7609,6 +7956,7 @@ package body Atree is
procedure Set_Flag186 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7617,6 +7965,7 @@ package body Atree is
procedure Set_Flag187 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7625,6 +7974,7 @@ package body Atree is
procedure Set_Flag188 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7633,6 +7983,7 @@ package body Atree is
procedure Set_Flag189 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7641,6 +7992,7 @@ package body Atree is
procedure Set_Flag190 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7649,6 +8001,7 @@ package body Atree is
procedure Set_Flag191 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7657,6 +8010,7 @@ package body Atree is
procedure Set_Flag192 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7665,6 +8019,7 @@ package body Atree is
procedure Set_Flag193 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7673,6 +8028,7 @@ package body Atree is
procedure Set_Flag194 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7681,6 +8037,7 @@ package body Atree is
procedure Set_Flag195 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7689,6 +8046,7 @@ package body Atree is
procedure Set_Flag196 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7697,6 +8055,7 @@ package body Atree is
procedure Set_Flag197 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7705,6 +8064,7 @@ package body Atree is
procedure Set_Flag198 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7713,6 +8073,7 @@ package body Atree is
procedure Set_Flag199 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7721,6 +8082,7 @@ package body Atree is
procedure Set_Flag200 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7729,6 +8091,7 @@ package body Atree is
procedure Set_Flag201 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7737,6 +8100,7 @@ package body Atree is
procedure Set_Flag202 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7745,6 +8109,7 @@ package body Atree is
procedure Set_Flag203 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7753,6 +8118,7 @@ package body Atree is
procedure Set_Flag204 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7761,6 +8127,7 @@ package body Atree is
procedure Set_Flag205 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7769,6 +8136,7 @@ package body Atree is
procedure Set_Flag206 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7777,6 +8145,7 @@ package body Atree is
procedure Set_Flag207 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7785,6 +8154,7 @@ package body Atree is
procedure Set_Flag208 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7793,6 +8163,7 @@ package body Atree is
procedure Set_Flag209 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7801,6 +8172,7 @@ package body Atree is
procedure Set_Flag210 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7809,6 +8181,7 @@ package body Atree is
procedure Set_Flag211 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7817,6 +8190,7 @@ package body Atree is
procedure Set_Flag212 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7825,6 +8199,7 @@ package body Atree is
procedure Set_Flag213 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7833,6 +8208,7 @@ package body Atree is
procedure Set_Flag214 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7841,6 +8217,7 @@ package body Atree is
procedure Set_Flag215 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word4_Ptr
(Union_Id_Ptr'
@@ -7849,144 +8226,168 @@ package body Atree is
procedure Set_Flag216 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).In_List := Val;
end Set_Flag216;
procedure Set_Flag217 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Has_Aspects := Val;
end Set_Flag217;
procedure Set_Flag218 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Rewrite_Ins := Val;
end Set_Flag218;
procedure Set_Flag219 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Analyzed := Val;
end Set_Flag219;
procedure Set_Flag220 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Comes_From_Source := Val;
end Set_Flag220;
procedure Set_Flag221 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Error_Posted := Val;
end Set_Flag221;
procedure Set_Flag222 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag4 := Val;
end Set_Flag222;
procedure Set_Flag223 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag5 := Val;
end Set_Flag223;
procedure Set_Flag224 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag6 := Val;
end Set_Flag224;
procedure Set_Flag225 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag7 := Val;
end Set_Flag225;
procedure Set_Flag226 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag8 := Val;
end Set_Flag226;
procedure Set_Flag227 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag9 := Val;
end Set_Flag227;
procedure Set_Flag228 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag10 := Val;
end Set_Flag228;
procedure Set_Flag229 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag11 := Val;
end Set_Flag229;
procedure Set_Flag230 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag12 := Val;
end Set_Flag230;
procedure Set_Flag231 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag13 := Val;
end Set_Flag231;
procedure Set_Flag232 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag14 := Val;
end Set_Flag232;
procedure Set_Flag233 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag15 := Val;
end Set_Flag233;
procedure Set_Flag234 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag16 := Val;
end Set_Flag234;
procedure Set_Flag235 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag17 := Val;
end Set_Flag235;
procedure Set_Flag236 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Flag18 := Val;
end Set_Flag236;
procedure Set_Flag237 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Pflag1 := Val;
end Set_Flag237;
procedure Set_Flag238 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 4).Pflag2 := Val;
end Set_Flag238;
procedure Set_Flag239 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -7995,6 +8396,7 @@ package body Atree is
procedure Set_Flag240 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -8003,6 +8405,7 @@ package body Atree is
procedure Set_Flag241 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -8011,6 +8414,7 @@ package body Atree is
procedure Set_Flag242 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -8019,6 +8423,7 @@ package body Atree is
procedure Set_Flag243 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -8027,6 +8432,7 @@ package body Atree is
procedure Set_Flag244 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -8035,6 +8441,7 @@ package body Atree is
procedure Set_Flag245 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -8043,6 +8450,7 @@ package body Atree is
procedure Set_Flag246 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte2_Ptr
(Node_Kind_Ptr'
@@ -8051,6 +8459,7 @@ package body Atree is
procedure Set_Flag247 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8059,6 +8468,7 @@ package body Atree is
procedure Set_Flag248 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8067,6 +8477,7 @@ package body Atree is
procedure Set_Flag249 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8075,6 +8486,7 @@ package body Atree is
procedure Set_Flag250 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8083,6 +8495,7 @@ package body Atree is
procedure Set_Flag251 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8091,6 +8504,7 @@ package body Atree is
procedure Set_Flag252 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8099,6 +8513,7 @@ package body Atree is
procedure Set_Flag253 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8107,6 +8522,7 @@ package body Atree is
procedure Set_Flag254 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte3_Ptr
(Node_Kind_Ptr'
@@ -8115,6 +8531,7 @@ package body Atree is
procedure Set_Flag255 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8123,6 +8540,7 @@ package body Atree is
procedure Set_Flag256 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8131,6 +8549,7 @@ package body Atree is
procedure Set_Flag257 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8139,6 +8558,7 @@ package body Atree is
procedure Set_Flag258 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8147,6 +8567,7 @@ package body Atree is
procedure Set_Flag259 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8155,6 +8576,7 @@ package body Atree is
procedure Set_Flag260 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8163,6 +8585,7 @@ package body Atree is
procedure Set_Flag261 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8171,6 +8594,7 @@ package body Atree is
procedure Set_Flag262 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8179,6 +8603,7 @@ package body Atree is
procedure Set_Flag263 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8187,6 +8612,7 @@ package body Atree is
procedure Set_Flag264 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8195,6 +8621,7 @@ package body Atree is
procedure Set_Flag265 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8203,6 +8630,7 @@ package body Atree is
procedure Set_Flag266 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8211,6 +8639,7 @@ package body Atree is
procedure Set_Flag267 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8219,6 +8648,7 @@ package body Atree is
procedure Set_Flag268 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8227,6 +8657,7 @@ package body Atree is
procedure Set_Flag269 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8235,6 +8666,7 @@ package body Atree is
procedure Set_Flag270 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8243,6 +8675,7 @@ package body Atree is
procedure Set_Flag271 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8251,6 +8684,7 @@ package body Atree is
procedure Set_Flag272 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8259,6 +8693,7 @@ package body Atree is
procedure Set_Flag273 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8267,6 +8702,7 @@ package body Atree is
procedure Set_Flag274 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8275,6 +8711,7 @@ package body Atree is
procedure Set_Flag275 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8283,6 +8720,7 @@ package body Atree is
procedure Set_Flag276 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8291,6 +8729,7 @@ package body Atree is
procedure Set_Flag277 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8299,6 +8738,7 @@ package body Atree is
procedure Set_Flag278 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8307,6 +8747,7 @@ package body Atree is
procedure Set_Flag279 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8315,6 +8756,7 @@ package body Atree is
procedure Set_Flag280 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8323,6 +8765,7 @@ package body Atree is
procedure Set_Flag281 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8331,6 +8774,7 @@ package body Atree is
procedure Set_Flag282 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8339,6 +8783,7 @@ package body Atree is
procedure Set_Flag283 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8347,6 +8792,7 @@ package body Atree is
procedure Set_Flag284 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8355,6 +8801,7 @@ package body Atree is
procedure Set_Flag285 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8363,6 +8810,7 @@ package body Atree is
procedure Set_Flag286 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Word5_Ptr
(Union_Id_Ptr'
@@ -8371,144 +8819,168 @@ package body Atree is
procedure Set_Flag287 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).In_List := Val;
end Set_Flag287;
procedure Set_Flag288 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Has_Aspects := Val;
end Set_Flag288;
procedure Set_Flag289 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Rewrite_Ins := Val;
end Set_Flag289;
procedure Set_Flag290 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Analyzed := Val;
end Set_Flag290;
procedure Set_Flag291 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Comes_From_Source := Val;
end Set_Flag291;
procedure Set_Flag292 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Error_Posted := Val;
end Set_Flag292;
procedure Set_Flag293 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag4 := Val;
end Set_Flag293;
procedure Set_Flag294 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag5 := Val;
end Set_Flag294;
procedure Set_Flag295 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag6 := Val;
end Set_Flag295;
procedure Set_Flag296 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag7 := Val;
end Set_Flag296;
procedure Set_Flag297 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag8 := Val;
end Set_Flag297;
procedure Set_Flag298 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag9 := Val;
end Set_Flag298;
procedure Set_Flag299 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag10 := Val;
end Set_Flag299;
procedure Set_Flag300 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag11 := Val;
end Set_Flag300;
procedure Set_Flag301 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag12 := Val;
end Set_Flag301;
procedure Set_Flag302 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag13 := Val;
end Set_Flag302;
procedure Set_Flag303 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag14 := Val;
end Set_Flag303;
procedure Set_Flag304 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag15 := Val;
end Set_Flag304;
procedure Set_Flag305 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag16 := Val;
end Set_Flag305;
procedure Set_Flag306 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag17 := Val;
end Set_Flag306;
procedure Set_Flag307 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Flag18 := Val;
end Set_Flag307;
procedure Set_Flag308 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Pflag1 := Val;
end Set_Flag308;
procedure Set_Flag309 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
Nodes.Table (N + 5).Pflag2 := Val;
end Set_Flag309;
procedure Set_Flag310 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8517,6 +8989,7 @@ package body Atree is
procedure Set_Flag311 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8525,6 +8998,7 @@ package body Atree is
procedure Set_Flag312 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8533,6 +9007,7 @@ package body Atree is
procedure Set_Flag313 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8541,6 +9016,7 @@ package body Atree is
procedure Set_Flag314 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8549,6 +9025,7 @@ package body Atree is
procedure Set_Flag315 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8557,6 +9034,7 @@ package body Atree is
procedure Set_Flag316 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8565,6 +9043,7 @@ package body Atree is
procedure Set_Flag317 (N : Node_Id; Val : Boolean) is
begin
+ pragma Assert (not Locked);
pragma Assert (Nkind (N) in N_Entity);
To_Flag_Byte4_Ptr
(Node_Kind_Ptr'
@@ -8573,6 +9052,7 @@ package body Atree is
procedure Set_Node1_With_Parent (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val > Error then
@@ -8584,6 +9064,7 @@ package body Atree is
procedure Set_Node2_With_Parent (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val > Error then
@@ -8595,6 +9076,7 @@ package body Atree is
procedure Set_Node3_With_Parent (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val > Error then
@@ -8606,6 +9088,7 @@ package body Atree is
procedure Set_Node4_With_Parent (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val > Error then
@@ -8617,6 +9100,7 @@ package body Atree is
procedure Set_Node5_With_Parent (N : Node_Id; Val : Node_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val > Error then
@@ -8628,6 +9112,7 @@ package body Atree is
procedure Set_List1_With_Parent (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val /= No_List and then Val /= Error_List then
Set_Parent (Val, N);
@@ -8637,6 +9122,7 @@ package body Atree is
procedure Set_List2_With_Parent (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val /= No_List and then Val /= Error_List then
Set_Parent (Val, N);
@@ -8646,6 +9132,7 @@ package body Atree is
procedure Set_List3_With_Parent (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val /= No_List and then Val /= Error_List then
Set_Parent (Val, N);
@@ -8655,6 +9142,7 @@ package body Atree is
procedure Set_List4_With_Parent (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val /= No_List and then Val /= Error_List then
Set_Parent (Val, N);
@@ -8664,6 +9152,7 @@ package body Atree is
procedure Set_List5_With_Parent (N : Node_Id; Val : List_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (N <= Nodes.Last);
if Val /= No_List and then Val /= Error_List then
Set_Parent (Val, N);
@@ -8684,4 +9173,14 @@ package body Atree is
Orig_Nodes.Locked := False;
end Unlock;
+ ------------------
+ -- Unlock_Nodes --
+ ------------------
+
+ procedure Unlock_Nodes is
+ begin
+ pragma Assert (Locked);
+ Locked := False;
+ end Unlock_Nodes;
+
end Atree;
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads
index 6739be2dc51..0f3bef7e51d 100644
--- a/gcc/ada/atree.ads
+++ b/gcc/ada/atree.ads
@@ -405,9 +405,18 @@ package Atree is
-- Called before the back end is invoked to lock the nodes table
-- Also called after Unlock to relock???
+ procedure Lock_Nodes;
+ -- Called to lock node modifications when assertions are enabled; without
+ -- assertions calling this subprogram has no effect. The initial state of
+ -- the lock is unlocked.
+
procedure Unlock;
-- Unlocks nodes table, in cases where the back end needs to modify it
+ procedure Unlock_Nodes;
+ -- Called to unlock entity modifications when assertions are enabled; if
+ -- assertions are not enabled calling this subprogram has no effect.
+
procedure Tree_Read;
-- Initializes internal tables from current tree file using the relevant
-- Table.Tree_Read routines. Note that Initialize should not be called if
diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb
index 70dfdc8b910..218179f5280 100644
--- a/gcc/ada/debug.adb
+++ b/gcc/ada/debug.adb
@@ -160,7 +160,7 @@ package body Debug is
-- d.3 Output debugging information from Exp_Unst
-- d.4 Do not delete generated C file in case of errors
-- d.5 Do not generate imported subprogram definitions in C code
- -- d.6
+ -- d.6 Do not avoid declaring unreferenced itypes in C code
-- d.7
-- d.8
-- d.9
@@ -777,6 +777,10 @@ package body Debug is
-- This debug flag disables this generation when generating C code,
-- assuming a proper #include will be used instead.
+ -- d.6 By default the C back-end avoids declaring itypes that are not
+ -- referenced by the generated C code. This debug flag restores the
+ -- output of all the itypes.
+
------------------------------------------
-- Documentation for Binder Debug Flags --
------------------------------------------
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index fef399f4def..e76927b383c 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -3920,16 +3920,13 @@ package body Exp_Ch6 is
if Ekind_In (Subp, E_Function, E_Procedure) then
- -- We perform two simple optimization on calls:
-
- -- a) replace calls to null procedures unconditionally;
-
- -- b) for To_Address, just do an unchecked conversion. Not only is
- -- this efficient, but it also avoids order of elaboration problems
- -- when address clauses are inlined (address expression elaborated
+ -- We perform a simple optimization on calls for To_Address by
+ -- replacing them with an unchecked conversion. Not only is this
+ -- efficient, but it also avoids order of elaboration problems when
+ -- address clauses are inlined (address expression elaborated at the
-- at the wrong point).
- -- We perform these optimization regardless of whether we are in the
+ -- We perform this optimization regardless of whether we are in the
-- main unit or in a unit in the context of the main unit, to ensure
-- that tree generated is the same in both cases, for CodePeer use.
@@ -3938,10 +3935,6 @@ package body Exp_Ch6 is
Unchecked_Convert_To
(RTE (RE_Address), Relocate_Node (First_Actual (Call_Node))));
return;
-
- elsif Is_Null_Procedure (Subp) then
- Rewrite (Call_Node, Make_Null_Statement (Loc));
- return;
end if;
-- Handle inlining. No action needed if the subprogram is not inlined
diff --git a/gcc/ada/nlists.adb b/gcc/ada/nlists.adb
index b5b2d8a788f..db6a5c88ea1 100644
--- a/gcc/ada/nlists.adb
+++ b/gcc/ada/nlists.adb
@@ -40,6 +40,10 @@ with Sinfo; use Sinfo;
with Table;
package body Nlists is
+ Locked : Boolean := False;
+ -- Compiling with assertions enabled, list contents modifications are
+ -- permitted only when this switch is set to False; compiling without
+ -- assertions this lock has no effect.
use Atree_Private_Part;
-- Get access to Nodes table
@@ -727,6 +731,16 @@ package body Nlists is
Next_Node.Release;
end Lock;
+ ----------------
+ -- Lock_Lists --
+ ----------------
+
+ procedure Lock_Lists is
+ begin
+ pragma Assert (not Locked);
+ Locked := True;
+ end Lock_Lists;
+
-------------------
-- New_Copy_List --
-------------------
@@ -1403,6 +1417,7 @@ package body Nlists is
procedure Set_First (List : List_Id; To : Node_Or_Entity_Id) is
begin
+ pragma Assert (not Locked);
Lists.Table (List).First := To;
end Set_First;
@@ -1412,6 +1427,7 @@ package body Nlists is
procedure Set_Last (List : List_Id; To : Node_Or_Entity_Id) is
begin
+ pragma Assert (not Locked);
Lists.Table (List).Last := To;
end Set_Last;
@@ -1421,6 +1437,7 @@ package body Nlists is
procedure Set_List_Link (Node : Node_Or_Entity_Id; To : List_Id) is
begin
+ pragma Assert (not Locked);
Nodes.Table (Node).Link := Union_Id (To);
end Set_List_Link;
@@ -1430,6 +1447,7 @@ package body Nlists is
procedure Set_Next (Node : Node_Or_Entity_Id; To : Node_Or_Entity_Id) is
begin
+ pragma Assert (not Locked);
Next_Node.Table (Node) := To;
end Set_Next;
@@ -1439,6 +1457,7 @@ package body Nlists is
procedure Set_Parent (List : List_Id; Node : Node_Or_Entity_Id) is
begin
+ pragma Assert (not Locked);
pragma Assert (List <= Lists.Last);
Lists.Table (List).Parent := Node;
end Set_Parent;
@@ -1449,6 +1468,7 @@ package body Nlists is
procedure Set_Prev (Node : Node_Or_Entity_Id; To : Node_Or_Entity_Id) is
begin
+ pragma Assert (not Locked);
Prev_Node.Table (Node) := To;
end Set_Prev;
@@ -1458,6 +1478,7 @@ package body Nlists is
procedure Tree_Read is
begin
+ pragma Assert (not Locked);
Lists.Tree_Read;
Next_Node.Tree_Read;
Prev_Node.Tree_Read;
@@ -1485,4 +1506,14 @@ package body Nlists is
Next_Node.Locked := False;
end Unlock;
+ ------------------
+ -- Unlock_Lists --
+ ------------------
+
+ procedure Unlock_Lists is
+ begin
+ pragma Assert (Locked);
+ Locked := False;
+ end Unlock_Lists;
+
end Nlists;
diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads
index 90d5e7edf7f..de3e28f6260 100644
--- a/gcc/ada/nlists.ads
+++ b/gcc/ada/nlists.ads
@@ -340,9 +340,18 @@ package Nlists is
procedure Lock;
-- Called to lock tables before back end is called
+ procedure Lock_Lists;
+ -- Called to lock list contents when assertions are enabled. Without
+ -- assertions calling this subprogram has no effect. The initial state
+ -- of the lock is unlocked.
+
procedure Unlock;
-- Unlock tables, in cases where the back end needs to modify them
+ procedure Unlock_Lists;
+ -- Called to unlock list contents when assertions are enabled; if
+ -- assertions are not enabled calling this subprogram has no effect.
+
procedure Tree_Read;
-- Initializes internal tables from current tree file using the relevant
-- Table.Tree_Read routines. Note that Initialize should not be called if
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 93b80a833b2..d8372737584 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -2781,44 +2781,48 @@ package body Sem_Ch3 is
----------------------------------
procedure Check_Nonoverridable_Aspects is
- Prev_Aspects : constant List_Id :=
- Aspect_Specifications (Parent (Def_Id));
- Par_Type : Entity_Id;
-
- function Has_Aspect_Spec
- (Specs : List_Id;
- Aspect_Name : Name_Id) return Boolean;
+ function Get_Aspect_Spec
+ (Specs : List_Id;
+ Aspect_Name : Name_Id) return Node_Id;
-- Check whether a list of aspect specifications includes an entry
-- for a specific aspect. The list is either that of a partial or
-- a full view.
---------------------
- -- Has_Aspect_Spec --
+ -- Get_Aspect_Spec --
---------------------
- function Has_Aspect_Spec
- (Specs : List_Id;
- Aspect_Name : Name_Id) return Boolean
+ function Get_Aspect_Spec
+ (Specs : List_Id;
+ Aspect_Name : Name_Id) return Node_Id
is
Spec : Node_Id;
+
begin
Spec := First (Specs);
while Present (Spec) loop
if Chars (Identifier (Spec)) = Aspect_Name then
- return True;
+ return Spec;
end if;
Next (Spec);
end loop;
- return False;
- end Has_Aspect_Spec;
+
+ return Empty;
+ end Get_Aspect_Spec;
+
+ -- Local variables
+
+ Prev_Aspects : constant List_Id :=
+ Aspect_Specifications (Parent (Def_Id));
+ Par_Type : Entity_Id;
+ Prev_Aspect : Node_Id;
-- Start of processing for Check_Nonoverridable_Aspects
begin
-
- -- Get parent type of derived type. Note that Prev is the entity
- -- in the partial declaration, but its contents are now those of
- -- full view, while Def_Id reflects the partial view.
+ -- Get parent type of derived type. Note that Prev is the entity in
+ -- the partial declaration, but its contents are now those of full
+ -- view, while Def_Id reflects the partial view.
if Is_Private_Type (Def_Id) then
Par_Type := Etype (Full_View (Def_Id));
@@ -2834,10 +2838,13 @@ package body Sem_Ch3 is
and then Present (Discriminant_Specifications (Parent (Prev)))
and then Present (Get_Reference_Discriminant (Par_Type))
then
- if
- not Has_Aspect_Spec (Prev_Aspects, Name_Implicit_Dereference)
- and then Present
- (Discriminant_Specifications (Original_Node (Parent (Prev))))
+ Prev_Aspect :=
+ Get_Aspect_Spec (Prev_Aspects, Name_Implicit_Dereference);
+
+ if No (Prev_Aspect)
+ and then Present
+ (Discriminant_Specifications
+ (Original_Node (Parent (Prev))))
then
Error_Msg_N
("type does not inherit implicit dereference", Prev);
@@ -2847,14 +2854,28 @@ package body Sem_Ch3 is
-- is consistent with that of the parent.
declare
- Par_Discr : constant Entity_Id :=
+ Par_Discr : constant Entity_Id :=
Get_Reference_Discriminant (Par_Type);
- Cur_Discr : constant Entity_Id :=
+ Cur_Discr : constant Entity_Id :=
Get_Reference_Discriminant (Prev);
+
begin
if Corresponding_Discriminant (Cur_Discr) /= Par_Discr then
Error_Msg_N ("aspect incosistent with that of parent", N);
end if;
+
+ -- Check that specification in partial view matches the
+ -- inherited aspect. Compare names directly because aspect
+ -- expression may not be analyzed.
+
+ if Present (Prev_Aspect)
+ and then Nkind (Expression (Prev_Aspect)) = N_Identifier
+ and then Chars (Expression (Prev_Aspect)) /=
+ Chars (Cur_Discr)
+ then
+ Error_Msg_N
+ ("aspect incosistent with that of parent", N);
+ end if;
end;
end if;
end if;
@@ -9666,9 +9687,8 @@ package body Sem_Ch3 is
null;
elsif Nkind (Parent (Parent (Def))) = N_Component_Declaration
- and then
- Has_Per_Object_Constraint
- (Defining_Identifier (Parent (Parent (Def))))
+ and then Has_Per_Object_Constraint
+ (Defining_Identifier (Parent (Parent (Def))))
then
null;
@@ -9688,7 +9708,7 @@ package body Sem_Ch3 is
if Ekind (Etype (Discr)) = E_Anonymous_Access_Type
and then not Is_Class_Wide_Type
- (Designated_Type (Etype (Discr)))
+ (Designated_Type (Etype (Discr)))
and then Etype (Discr_Expr (J)) /= Any_Type
and then Is_Class_Wide_Type
(Designated_Type (Etype (Discr_Expr (J))))
@@ -9702,7 +9722,7 @@ package body Sem_Ch3 is
then
Error_Msg_NE
("constraint for discriminant& must be access to variable",
- Def, Discr);
+ Def, Discr);
end if;
end if;
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index f42d3f98bf2..537fb7edd35 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -7633,6 +7633,17 @@ package body Sem_Prag is
goto Continue;
end if;
+ if Is_Subprogram (E1)
+ and then Nkind (Parent (Declaration_Node (E1))) =
+ N_Subprogram_Body
+ and then not Relaxed_RM_Semantics
+ then
+ Set_Has_Completion (E); -- to prevent cascaded error
+ Error_Pragma_Ref
+ ("pragma% requires separate spec and must come before "
+ & "body#", E1);
+ end if;
+
-- Do not set the pragma on inherited operations or on formal
-- subprograms.
View Lorry Controller Status