diff options
Diffstat (limited to 'gcc/ada/debug.adb')
| -rw-r--r-- | gcc/ada/debug.adb | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb index e0823fa70c5..1ddd1f6ded8 100644 --- a/gcc/ada/debug.adb +++ b/gcc/ada/debug.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, 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- -- @@ -326,7 +326,7 @@ package body Debug is -- an interepretation is incompatible with the context. -- dw Write semantic scope stack messages. Each time a scope is created - -- or removed, a message is output (see the Sem_Ch8.New_Scope and + -- or removed, a message is output (see the Sem_Ch8.Push_Scope and -- Sem_Ch8.Pop_Scope subprograms). -- dx Force expansion on, even if no code being generated. Normally the @@ -604,15 +604,6 @@ package body Debug is -- dw Prints the list of units withed by the unit currently explored -- during the main loop of Make.Compile_Sources. - ---------------------- - -- Get_Debug_Flag_K -- - ---------------------- - - function Get_Debug_Flag_K return Boolean is - begin - return Debug_Flag_K; - end Get_Debug_Flag_K; - -------------------- -- Set_Debug_Flag -- -------------------- |