diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 10:12:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 10:12:54 +0200 |
| commit | 2400f4e50b3e5b58f7e6f52acc7a820afd8ed0ed (patch) | |
| tree | 36fdb392b68deeb010246291a9ecc191ec3a1346 /gcc/ada | |
| parent | 1525324e88f255394b263aa852e1f4d057139caa (diff) | |
| download | gcc-2400f4e50b3e5b58f7e6f52acc7a820afd8ed0ed.zip gcc-2400f4e50b3e5b58f7e6f52acc7a820afd8ed0ed.tar.gz gcc-2400f4e50b3e5b58f7e6f52acc7a820afd8ed0ed.tar.bz2 | |
Minor reformatting.
Regenerated.
From-SVN: r103897
Diffstat (limited to 'gcc/ada')
| -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 7c3d247..47953e8 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 |