diff options
Diffstat (limited to 'gcc/ada/debug.ads')
| -rw-r--r-- | gcc/ada/debug.ads | 70 |
1 files changed, 69 insertions, 1 deletions
diff --git a/gcc/ada/debug.ads b/gcc/ada/debug.ads index feb5d5a19d0..4019a1774d2 100644 --- a/gcc/ada/debug.ads +++ b/gcc/ada/debug.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -115,6 +115,70 @@ pragma Preelaborate (Debug); Debug_Flag_8 : Boolean := False; Debug_Flag_9 : Boolean := False; + Debug_Flag_Dot_A : Boolean := False; + Debug_Flag_Dot_B : Boolean := False; + Debug_Flag_Dot_C : Boolean := False; + Debug_Flag_Dot_D : Boolean := False; + Debug_Flag_Dot_E : Boolean := False; + Debug_Flag_Dot_F : Boolean := False; + Debug_Flag_Dot_G : Boolean := False; + Debug_Flag_Dot_H : Boolean := False; + Debug_Flag_Dot_I : Boolean := False; + Debug_Flag_Dot_J : Boolean := False; + Debug_Flag_Dot_K : Boolean := False; + Debug_Flag_Dot_L : Boolean := False; + Debug_Flag_Dot_M : Boolean := False; + Debug_Flag_Dot_N : Boolean := False; + Debug_Flag_Dot_O : Boolean := False; + Debug_Flag_Dot_P : Boolean := False; + Debug_Flag_Dot_Q : Boolean := False; + Debug_Flag_Dot_R : Boolean := False; + Debug_Flag_Dot_S : Boolean := False; + Debug_Flag_Dot_T : Boolean := False; + Debug_Flag_Dot_U : Boolean := False; + Debug_Flag_Dot_V : Boolean := False; + Debug_Flag_Dot_W : Boolean := False; + Debug_Flag_Dot_X : Boolean := False; + Debug_Flag_Dot_Y : Boolean := False; + Debug_Flag_Dot_Z : Boolean := False; + + Debug_Flag_Dot_AA : Boolean := False; + Debug_Flag_Dot_BB : Boolean := False; + Debug_Flag_Dot_CC : Boolean := False; + Debug_Flag_Dot_DD : Boolean := False; + Debug_Flag_Dot_EE : Boolean := False; + Debug_Flag_Dot_FF : Boolean := False; + Debug_Flag_Dot_GG : Boolean := False; + Debug_Flag_Dot_HH : Boolean := False; + Debug_Flag_Dot_II : Boolean := False; + Debug_Flag_Dot_JJ : Boolean := False; + Debug_Flag_Dot_KK : Boolean := False; + Debug_Flag_Dot_LL : Boolean := False; + Debug_Flag_Dot_MM : Boolean := False; + Debug_Flag_Dot_NN : Boolean := False; + Debug_Flag_Dot_OO : Boolean := False; + Debug_Flag_Dot_PP : Boolean := False; + Debug_Flag_Dot_QQ : Boolean := False; + Debug_Flag_Dot_RR : Boolean := False; + Debug_Flag_Dot_SS : Boolean := False; + Debug_Flag_Dot_TT : Boolean := False; + Debug_Flag_Dot_UU : Boolean := False; + Debug_Flag_Dot_VV : Boolean := False; + Debug_Flag_Dot_WW : Boolean := False; + Debug_Flag_Dot_XX : Boolean := False; + Debug_Flag_Dot_YY : Boolean := False; + Debug_Flag_Dot_ZZ : Boolean := False; + + Debug_Flag_Dot_1 : Boolean := False; + Debug_Flag_Dot_2 : Boolean := False; + Debug_Flag_Dot_3 : Boolean := False; + Debug_Flag_Dot_4 : Boolean := False; + Debug_Flag_Dot_5 : Boolean := False; + Debug_Flag_Dot_6 : Boolean := False; + Debug_Flag_Dot_7 : Boolean := False; + 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). @@ -124,4 +188,8 @@ pragma Preelaborate (Debug); -- the given value. In the checks off version of debug, the call to -- Set_Debug_Flag is always a null operation. + procedure Set_Dotted_Debug_Flag (C : Character; Val : Boolean := True); + -- Where C is 0-9, A-Z, or a-z, sets the corresponding dotted debug + -- flag (e.g. call with C = 'a' for the .a flag). + end Debug; |