diff options
| author | Ian Lance Taylor <iant@golang.org> | 2021-10-07 15:28:36 -0700 |
|---|---|---|
| committer | Ian Lance Taylor <iant@golang.org> | 2021-10-07 15:28:36 -0700 |
| commit | 0b6b70a0733672600644c8df96942cda5bf86d3d (patch) | |
| tree | 9a1fbd7f782c54df55ab225ed1be057e3f3b0b8a /gcc/ada/sinfo-utils.adb | |
| parent | a5b5cabc91c38710adbe5c8a2b53882abe994441 (diff) | |
| parent | fba228e259dd5112851527f2dbb62c5601100985 (diff) | |
| download | gcc-0b6b70a0733672600644c8df96942cda5bf86d3d.zip gcc-0b6b70a0733672600644c8df96942cda5bf86d3d.tar.gz gcc-0b6b70a0733672600644c8df96942cda5bf86d3d.tar.bz2 | |
Merge from trunk revision fba228e259dd5112851527f2dbb62c5601100985.
Diffstat (limited to 'gcc/ada/sinfo-utils.adb')
| -rw-r--r-- | gcc/ada/sinfo-utils.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/sinfo-utils.adb b/gcc/ada/sinfo-utils.adb index 083c12e..cf0ecc1 100644 --- a/gcc/ada/sinfo-utils.adb +++ b/gcc/ada/sinfo-utils.adb @@ -23,7 +23,7 @@ -- -- ------------------------------------------------------------------------------ -with Atree; +with Atree; use Atree; with Debug; use Debug; with Output; use Output; with Seinfo; @@ -55,7 +55,7 @@ package body Sinfo.Utils is -- The second method is much faster if the amount of Ada code being -- compiled is large. - ww : Node_Id'Base := Node_Id'First - 1; + ww : Node_Id'Base := Node_Low_Bound - 1; pragma Export (Ada, ww); Watch_Node : Node_Id'Base renames ww; -- Node to "watch"; that is, whenever a node is created, we check if it @@ -72,8 +72,8 @@ package body Sinfo.Utils is procedure nnd (N : Node_Id); pragma Export (Ada, nnd); - -- For debugging. If debugging is turned on, New_Node and New_Entity call - -- this. If debug flag N is turned on, this prints out the new node. + -- For debugging. If debugging is turned on, New_Node and New_Entity (etc.) + -- call this. If debug flag N is turned on, this prints out the new node. -- -- If Node = Watch_Node, this prints out the new node and calls -- New_Node_Breakpoint. Otherwise, does nothing. @@ -265,7 +265,7 @@ package body Sinfo.Utils is if Fields (J) /= F_Link then -- Don't walk Parent! declare Desc : Field_Descriptor renames - Node_Field_Descriptors (Fields (J)); + Field_Descriptors (Fields (J)); begin if Is_In_Union_Id (Desc.Kind) then Action (Get_Node_Field_Union (N, Desc.Offset)); @@ -290,7 +290,7 @@ package body Sinfo.Utils is if Fields (J) /= F_Link then -- Don't walk Parent! declare Desc : Field_Descriptor renames - Node_Field_Descriptors (Fields (J)); + Field_Descriptors (Fields (J)); begin if Is_In_Union_Id (Desc.Kind) then Set_Node_Field_Union |