diff options
Diffstat (limited to 'gcc/ada/atree.h')
| -rw-r--r-- | gcc/ada/atree.h | 92 |
1 files changed, 87 insertions, 5 deletions
diff --git a/gcc/ada/atree.h b/gcc/ada/atree.h index 3c40799..0d06969 100644 --- a/gcc/ada/atree.h +++ b/gcc/ada/atree.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2003, Free Software Foundation, Inc. * + * Copyright (C) 1992-2005, 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- * @@ -216,6 +216,46 @@ struct Flag_Word3 Boolean flag183 : 1; }; +/* Structure used for extra flags in fifth component overlaying Field11 */ +struct Flag_Word4 +{ + Boolean flag184 : 1; + Boolean flag185 : 1; + Boolean flag186 : 1; + Boolean flag187 : 1; + Boolean flag188 : 1; + Boolean flag189 : 1; + Boolean flag190 : 1; + Boolean flag191 : 1; + + Boolean flag192 : 1; + Boolean flag193 : 1; + Boolean flag194 : 1; + Boolean flag195 : 1; + Boolean flag196 : 1; + Boolean flag197 : 1; + Boolean flag198 : 1; + Boolean flag199 : 1; + + Boolean flag200 : 1; + Boolean flag201 : 1; + Boolean flag202 : 1; + Boolean flag203 : 1; + Boolean flag204 : 1; + Boolean flag205 : 1; + Boolean flag206 : 1; + Boolean flag207 : 1; + + Boolean flag208 : 1; + Boolean flag209 : 1; + Boolean flag210 : 1; + Boolean flag211 : 1; + Boolean flag212 : 1; + Boolean flag213 : 1; + Boolean flag214 : 1; + Boolean flag215 : 1; +}; + struct Non_Extended { Source_Ptr sloc; @@ -238,14 +278,15 @@ struct Extended union { Int field11; - struct Flag_Word3 fw3; + struct Flag_Word3 fw3; + struct Flag_Word4 fw4; } X; union { Int field12; - struct Flag_Word fw; - struct Flag_Word2 fw2; + struct Flag_Word fw; + struct Flag_Word2 fw2; } U; }; @@ -272,7 +313,6 @@ struct Node that Node_Id values can be used as subscripts. */ extern struct Node *Nodes_Ptr; - #define Parent atree__parent extern Node_Id Parent (Node_Id); @@ -338,6 +378,10 @@ extern Node_Id Current_Error_Node; #define Field21(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field8) #define Field22(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field9) #define Field23(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field10) +#define Field24(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field6) +#define Field25(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field7) +#define Field26(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.field8) +#define Field27(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.field9) #define Node1(N) Field1 (N) #define Node2(N) Field2 (N) @@ -362,6 +406,10 @@ extern Node_Id Current_Error_Node; #define Node21(N) Field21 (N) #define Node22(N) Field22 (N) #define Node23(N) Field23 (N) +#define Node24(N) Field24 (N) +#define Node25(N) Field25 (N) +#define Node26(N) Field26 (N) +#define Node27(N) Field27 (N) #define List1(N) Field1 (N) #define List2(N) Field2 (N) @@ -388,6 +436,7 @@ extern Node_Id Current_Error_Node; #define Str3(N) Field3 (N) +#define Uint2(N) ((Field2 (N) == 0) ? Uint_0 : Field2 (N)) #define Uint3(N) ((Field3 (N) == 0) ? Uint_0 : Field3 (N)) #define Uint4(N) ((Field4 (N) == 0) ? Uint_0 : Field4 (N)) #define Uint5(N) ((Field5 (N) == 0) ? Uint_0 : Field5 (N)) @@ -599,3 +648,36 @@ extern Node_Id Current_Error_Node; #define Flag181(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag181) #define Flag182(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag182) #define Flag183(N) (Nodes_Ptr[(N) - First_Node_Id + 3].V.EX.X.fw3.flag183) + +#define Flag184(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag184) +#define Flag185(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag185) +#define Flag186(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag186) +#define Flag187(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag187) +#define Flag188(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag188) +#define Flag189(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag189) +#define Flag190(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag190) +#define Flag191(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag191) +#define Flag192(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag192) +#define Flag193(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag193) +#define Flag194(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag194) +#define Flag195(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag195) +#define Flag196(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag196) +#define Flag197(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag197) +#define Flag198(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag198) +#define Flag199(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag199) +#define Flag200(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag200) +#define Flag201(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag201) +#define Flag202(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag202) +#define Flag203(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag203) +#define Flag204(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag204) +#define Flag205(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag205) +#define Flag206(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag206) +#define Flag207(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag207) +#define Flag208(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag208) +#define Flag209(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag209) +#define Flag210(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag210) +#define Flag211(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag211) +#define Flag212(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag212) +#define Flag213(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag213) +#define Flag214(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag214) +#define Flag215(N) (Nodes_Ptr[(N) - First_Node_Id + 4].V.EX.X.fw4.flag215) |