diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 08:12:54 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 08:12:54 +0000 |
| commit | 31574aa18eb1a644122d044528f352f4c656c566 (patch) | |
| tree | 36fdb392b68deeb010246291a9ecc191ec3a1346 /gcc/ada/csinfo.adb | |
| parent | 97fb2d6bde3f6b1a6a11a9a26c6c02cfa54070e0 (diff) | |
| download | gcc-31574aa18eb1a644122d044528f352f4c656c566.tar.gz | |
Minor reformatting.
Regenerated.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103897 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/csinfo.adb')
| -rw-r--r-- | gcc/ada/csinfo.adb | 61 |
1 files changed, 30 insertions, 31 deletions
diff --git a/gcc/ada/csinfo.adb b/gcc/ada/csinfo.adb index 7c3d247c641..47953e89ce2 100644 --- a/gcc/ada/csinfo.adb +++ b/gcc/ada/csinfo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2001 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- -- @@ -149,7 +149,6 @@ procedure CSinfo is procedure Sort (A : in out VStringA) is Temp : VString; - begin <<Sort>> for J in 1 .. A'Length - 1 loop @@ -189,34 +188,35 @@ begin Set (Flags, "18", V ("R")); -- Special fields table. The following fields are not recorded or checked - -- by Csinfo, since they are specially handled. This means that he both - -- the field definitions, and the corresponding subprograms are ignored. - - Set (Special, "Analyzed", True); - Set (Special, "Assignment_OK", True); - Set (Special, "Associated_Node", True); - Set (Special, "Cannot_Be_Constant", True); - Set (Special, "Chars", True); - Set (Special, "Comes_From_Source", True); - Set (Special, "Do_Overflow_Check", True); - Set (Special, "Do_Range_Check", True); - Set (Special, "Entity", True); - Set (Special, "Error_Posted", True); - Set (Special, "Etype", True); - Set (Special, "Evaluate_Once", True); - Set (Special, "First_Itype", True); - Set (Special, "Has_Dynamic_Itype", True); - Set (Special, "Has_Dynamic_Range_Check", True); - Set (Special, "Has_Dynamic_Length_Check", True); - Set (Special, "Has_Private_View", True); - Set (Special, "Is_Controlling_Actual", True); - Set (Special, "Is_Overloaded", True); - Set (Special, "Is_Static_Expression", True); - Set (Special, "Left_Opnd", True); - Set (Special, "Must_Not_Freeze", True); - Set (Special, "Parens", True); - Set (Special, "Raises_Constraint_Error", True); - Set (Special, "Right_Opnd", True); + -- by Csinfo, since they are specially handled. This means that both the + -- field definitions, and the corresponding subprograms are ignored. + + Set (Special, "Analyzed", True); + Set (Special, "Assignment_OK", True); + Set (Special, "Associated_Node", True); + Set (Special, "Cannot_Be_Constant", True); + Set (Special, "Chars", True); + Set (Special, "Comes_From_Source", True); + Set (Special, "Do_Overflow_Check", True); + Set (Special, "Do_Range_Check", True); + Set (Special, "Entity", True); + Set (Special, "Entity_Or_Associated_Node", True); + Set (Special, "Error_Posted", True); + Set (Special, "Etype", True); + Set (Special, "Evaluate_Once", True); + Set (Special, "First_Itype", True); + Set (Special, "Has_Dynamic_Itype", True); + Set (Special, "Has_Dynamic_Range_Check", True); + Set (Special, "Has_Dynamic_Length_Check", True); + Set (Special, "Has_Private_View", True); + Set (Special, "Is_Controlling_Actual", True); + Set (Special, "Is_Overloaded", True); + Set (Special, "Is_Static_Expression", True); + Set (Special, "Left_Opnd", True); + Set (Special, "Must_Not_Freeze", True); + Set (Special, "Parens", True); + Set (Special, "Raises_Constraint_Error", True); + Set (Special, "Right_Opnd", True); -- Loop to acquire information from node definitions in sinfo.ads, -- checking for consistency in Op/Flag assignments to each synonym @@ -256,7 +256,6 @@ begin Match (Field, Break_Field); if not Present (Special, Synonym) then - if Present (Fields, Synonym) then if Field /= Get (Fields, Synonym) then Put_Line |