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 3ed9326..91130c4 100644 --- a/gcc/ada/debug.ads +++ b/gcc/ada/debug.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, 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- -- @@ -176,6 +176,70 @@ package Debug is Debug_Flag_Dot_8 : Boolean := False; Debug_Flag_Dot_9 : Boolean := False; + Debug_Flag_Underscore_A : Boolean := False; + Debug_Flag_Underscore_B : Boolean := False; + Debug_Flag_Underscore_C : Boolean := False; + Debug_Flag_Underscore_D : Boolean := False; + Debug_Flag_Underscore_E : Boolean := False; + Debug_Flag_Underscore_F : Boolean := False; + Debug_Flag_Underscore_G : Boolean := False; + Debug_Flag_Underscore_H : Boolean := False; + Debug_Flag_Underscore_I : Boolean := False; + Debug_Flag_Underscore_J : Boolean := False; + Debug_Flag_Underscore_K : Boolean := False; + Debug_Flag_Underscore_L : Boolean := False; + Debug_Flag_Underscore_M : Boolean := False; + Debug_Flag_Underscore_N : Boolean := False; + Debug_Flag_Underscore_O : Boolean := False; + Debug_Flag_Underscore_P : Boolean := False; + Debug_Flag_Underscore_Q : Boolean := False; + Debug_Flag_Underscore_R : Boolean := False; + Debug_Flag_Underscore_S : Boolean := False; + Debug_Flag_Underscore_T : Boolean := False; + Debug_Flag_Underscore_U : Boolean := False; + Debug_Flag_Underscore_V : Boolean := False; + Debug_Flag_Underscore_W : Boolean := False; + Debug_Flag_Underscore_X : Boolean := False; + Debug_Flag_Underscore_Y : Boolean := False; + Debug_Flag_Underscore_Z : Boolean := False; + + Debug_Flag_Underscore_AA : Boolean := False; + Debug_Flag_Underscore_BB : Boolean := False; + Debug_Flag_Underscore_CC : Boolean := False; + Debug_Flag_Underscore_DD : Boolean := False; + Debug_Flag_Underscore_EE : Boolean := False; + Debug_Flag_Underscore_FF : Boolean := False; + Debug_Flag_Underscore_GG : Boolean := False; + Debug_Flag_Underscore_HH : Boolean := False; + Debug_Flag_Underscore_II : Boolean := False; + Debug_Flag_Underscore_JJ : Boolean := False; + Debug_Flag_Underscore_KK : Boolean := False; + Debug_Flag_Underscore_LL : Boolean := False; + Debug_Flag_Underscore_MM : Boolean := False; + Debug_Flag_Underscore_NN : Boolean := False; + Debug_Flag_Underscore_OO : Boolean := False; + Debug_Flag_Underscore_PP : Boolean := False; + Debug_Flag_Underscore_QQ : Boolean := False; + Debug_Flag_Underscore_RR : Boolean := False; + Debug_Flag_Underscore_SS : Boolean := False; + Debug_Flag_Underscore_TT : Boolean := False; + Debug_Flag_Underscore_UU : Boolean := False; + Debug_Flag_Underscore_VV : Boolean := False; + Debug_Flag_Underscore_WW : Boolean := False; + Debug_Flag_Underscore_XX : Boolean := False; + Debug_Flag_Underscore_YY : Boolean := False; + Debug_Flag_Underscore_ZZ : Boolean := False; + + Debug_Flag_Underscore_1 : Boolean := False; + Debug_Flag_Underscore_2 : Boolean := False; + Debug_Flag_Underscore_3 : Boolean := False; + Debug_Flag_Underscore_4 : Boolean := False; + Debug_Flag_Underscore_5 : Boolean := False; + Debug_Flag_Underscore_6 : Boolean := False; + Debug_Flag_Underscore_7 : Boolean := False; + Debug_Flag_Underscore_8 : Boolean := False; + Debug_Flag_Underscore_9 : Boolean := False; + 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 @@ -185,4 +249,8 @@ package Debug is -- 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). + procedure Set_Underscored_Debug_Flag (C : Character; Val : Boolean := True); + -- Where C is 0-9, A-Z, or a-z, sets the corresponding underscored debug + -- flag (e.g. call with C = 'a' for the _a flag). + end Debug; |