diff options
Diffstat (limited to 'gcc/ada/debug_a.ads')
| -rw-r--r-- | gcc/ada/debug_a.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/debug_a.ads b/gcc/ada/debug_a.ads index c0fa7e51ce6..c805a438259 100644 --- a/gcc/ada/debug_a.ads +++ b/gcc/ada/debug_a.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -36,7 +36,7 @@ package Debug_A is -- an exit call matching each entry call. This means that they can keep -- track of the current node being worked on, with the entry call setting -- a new value, by pushing the Node_Id value on a stack, and the exit call - -- popping this value off. Comperr.Current_Error_Node is set by both the + -- popping this value off. Atree.Current_Error_Node is set by both the -- entry and exit routines to point to the current node so that an abort -- message indicates the node involved as accurately as possible. @@ -48,7 +48,7 @@ package Debug_A is -- (analyzing, expanding etc), followed by the node number and its kind. -- This output is generated only if the debug A flag is set. If the debug -- A flag is not set, then no output is generated. This call also sets the - -- Node_Id value in Comperr.Current_Error_Node in case a bomb occurs. This + -- Node_Id value in Atree.Current_Error_Node in case a bomb occurs. This -- is done unconditionally, whether or not the debug A flag is set. procedure Debug_A_Exit (S : String; N : Node_Id; Comment : String); @@ -58,7 +58,7 @@ package Debug_A is -- a trailing comment (e.g. " (already evaluated)"). This output is -- generated only if the debug A flag is set. If the debug A flag is not -- set, then no output is generated. This call also resets the value in - -- Comperr.Current_Error_Node to what it was before the corresponding call + -- Atree.Current_Error_Node to what it was before the corresponding call -- to Debug_A_Entry. end Debug_A; |