diff options
Diffstat (limited to 'gcc/ada/sinfo.h')
| -rw-r--r-- | gcc/ada/sinfo.h | 38 |
1 files changed, 25 insertions, 13 deletions
diff --git a/gcc/ada/sinfo.h b/gcc/ada/sinfo.h index 7874b7ce037..fd5d13d2b89 100644 --- a/gcc/ada/sinfo.h +++ b/gcc/ada/sinfo.h @@ -6,10 +6,7 @@ /* */ /* C Header File */ /* */ -/* Generated by xsinfo revision using */ -/* sinfo.ads revision 1.439 */ -/* */ -/* 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- */ @@ -54,12 +51,12 @@ #define N_Character_Literal 17 #define N_Op_Add 18 #define N_Op_Concat 19 - #define N_Op_Divide 20 - #define N_Op_Expon 21 - #define N_Op_Mod 22 - #define N_Op_Multiply 23 - #define N_Op_Rem 24 - #define N_Op_Subtract 25 + #define N_Op_Expon 20 + #define N_Op_Subtract 21 + #define N_Op_Divide 22 + #define N_Op_Mod 23 + #define N_Op_Multiply 24 + #define N_Op_Rem 25 #define N_Op_And 26 #define N_Op_Eq 27 #define N_Op_Ge 28 @@ -284,6 +281,9 @@ SUBTYPE (N_Has_Etype, Node_Kind, N_Error, N_Subtype_Indication) + SUBTYPE (N_Has_Treat_Fixed_As_Integer, Node_Kind, + N_Op_Divide, + N_Op_Rem) SUBTYPE (N_Later_Decl_Item, Node_Kind, N_Task_Type_Declaration, N_Generic_Subprogram_Declaration) @@ -389,6 +389,8 @@ { return Char_Code2 (N); } INLINE Name_Id Chars (Node_Id N) { return Name1 (N); } + INLINE Boolean Check_Address_Alignment (Node_Id N) + { return Flag11 (N); } INLINE Node_Id Choice_Parameter (Node_Id N) { return Node2 (N); } INLINE List_Id Choices (Node_Id N) @@ -409,6 +411,8 @@ { return Node1 (N); } INLINE List_Id Condition_Actions (Node_Id N) { return List3 (N); } + INLINE List_Id Config_Pragmas (Node_Id N) + { return List4 (N); } INLINE Boolean Constant_Present (Node_Id N) { return Flag17 (N); } INLINE Node_Id Constraint (Node_Id N) @@ -471,8 +475,6 @@ { return List4 (N); } INLINE Node_Id Discriminant_Type (Node_Id N) { return Node5 (N); } - INLINE Boolean Do_Access_Check (Node_Id N) - { return Flag11 (N); } INLINE Boolean Do_Accessibility_Check (Node_Id N) { return Flag13 (N); } INLINE Boolean Do_Discriminant_Check (Node_Id N) @@ -598,7 +600,7 @@ INLINE Node_Id Identifier (Node_Id N) { return Node1 (N); } INLINE Boolean Implicit_With (Node_Id N) - { return Flag17 (N); } + { return Flag16 (N); } INLINE Boolean In_Present (Node_Id N) { return Flag15 (N); } INLINE Boolean Includes_Infinities (Node_Id N) @@ -615,8 +617,12 @@ { return Flag14 (N); } INLINE Boolean Is_Controlling_Actual (Node_Id N) { return Flag16 (N); } + INLINE Boolean Is_In_Discriminant_Check (Node_Id N) + { return Flag11 (N); } INLINE Boolean Is_Machine_Number (Node_Id N) { return Flag11 (N); } + INLINE Boolean Is_Null_Loop (Node_Id N) + { return Flag16 (N); } INLINE Boolean Is_Overloaded (Node_Id N) { return Flag5 (N); } INLINE Boolean Is_Power_Of_2_For_Shift (Node_Id N) @@ -647,6 +653,8 @@ { return Flag6 (N); } INLINE Node_Id Library_Unit (Node_Id N) { return Node4 (N); } + INLINE Boolean Limited_View_Installed (Node_Id N) + { return Flag18 (N); } INLINE Boolean Limited_Present (Node_Id N) { return Flag17 (N); } INLINE List_Id Literals (Node_Id N) @@ -683,6 +691,8 @@ { return Flag8 (N); } INLINE Boolean No_Initialization (Node_Id N) { return Flag13 (N); } + INLINE Boolean No_Truncation (Node_Id N) + { return Flag17 (N); } INLINE Boolean Null_Present (Node_Id N) { return Flag13 (N); } INLINE Boolean Null_Record_Present (Node_Id N) @@ -693,6 +703,8 @@ { return Flag4 (N); } INLINE Node_Id Original_Discriminant (Node_Id N) { return Node2 (N); } + INLINE Entity_Id Original_Entity (Node_Id N) + { return Node2 (N); } INLINE List_Id Others_Discrete_Choices (Node_Id N) { return List1 (N); } INLINE Boolean Out_Present (Node_Id N) |