From f68fc405bb5b38c545498c4a1dba203e51dade32 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 20 Jan 2017 11:38:41 +0100 Subject: [PATCH] [multiple changes] 2017-01-20 Ed Schonberg * sem_ch3.adb (Check_Nonoverridable_Aspects); Refine check for illegal inherited Implicit_Dereference aspects with renamed discriminants. 2017-01-20 Javier Miranda * 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 * 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 * exp_ch6.adb (Expand_Call): Remove optimization that nulls out calls to null procedures. From-SVN: r244699 --- gcc/ada/ChangeLog | 34 +++ gcc/ada/atree.adb | 499 +++++++++++++++++++++++++++++++++++++++++++ gcc/ada/atree.ads | 9 + gcc/ada/debug.adb | 6 +- gcc/ada/exp_ch6.adb | 17 +- gcc/ada/nlists.adb | 31 +++ gcc/ada/nlists.ads | 9 + gcc/ada/sem_ch3.adb | 78 ++++--- gcc/ada/sem_prag.adb | 11 + 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 + + * sem_ch3.adb (Check_Nonoverridable_Aspects); Refine check + for illegal inherited Implicit_Dereference aspects with renamed + discriminants. + +2017-01-20 Javier Miranda + + * 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 + + * 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 + + * exp_ch6.adb (Expand_Call): Remove optimization + that nulls out calls to null procedures. + 2017-01-20 Yannick Moy * 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. -- 2.30.2