summaryrefslogtreecommitdiff
path: root/gcc/ada/debug.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/debug.ads')
-rw-r--r--gcc/ada/debug.ads6
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/debug.ads b/gcc/ada/debug.ads
index 2a1ae50ce97..4c7bd51876a 100644
--- a/gcc/ada/debug.ads
+++ b/gcc/ada/debug.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2005, 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- --
@@ -179,10 +179,6 @@ package Debug is
Debug_Flag_Dot_8 : Boolean := False;
Debug_Flag_Dot_9 : Boolean := False;
- function Get_Debug_Flag_K return Boolean;
- -- This function is called from C code to get the setting of the K flag
- -- (it does not work to try to access a constant object directly).
-
procedure Set_Debug_Flag (C : Character; Val : Boolean := True);
-- Where C is 0-9, A-Z, or a-z, sets the corresponding debug flag to
-- the given value. In the checks off version of debug, the call to