diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-04 11:05:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 11:05:01 +0200 |
| commit | fbe0e1ad3ff312ef5284f3a3c8a659dd84b7d177 (patch) | |
| tree | 4791d5abb1041c4df0f4a97d3fe6906fd024b734 /gcc | |
| parent | fc1b906a0a960dd5cd65fe6939369d6f7bcc4ac9 (diff) | |
| download | gcc-fbe0e1ad3ff312ef5284f3a3c8a659dd84b7d177.zip gcc-fbe0e1ad3ff312ef5284f3a3c8a659dd84b7d177.tar.gz gcc-fbe0e1ad3ff312ef5284f3a3c8a659dd84b7d177.tar.bz2 | |
par-ch10.adb: Minor reformatting
2008-08-04 Robert Dewar <dewar@adacore.com>
* par-ch10.adb: Minor reformatting
From-SVN: r138581
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/par-ch10.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index eb16fb1..f433352 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -115,7 +115,7 @@ package body Ch10 is P : Node_Id; SR_Present : Boolean; - Cunit_Error_Flag : Boolean := False; + Cunit_Error_Flag : Boolean := False; -- This flag is set True if we have to scan for a compilation unit -- token. It is used to ensure clean termination in such cases by -- not insisting on being at the end of file, and, in the syntax only @@ -140,8 +140,8 @@ package body Ch10 is Config_Pragmas := No_List; - -- If we have an initial Source_Reference pragma, then remember - -- the fact to generate an NR parameter in the output line. + -- If we have an initial Source_Reference pragma, then remember the fact + -- to generate an NR parameter in the output line. SR_Present := False; @@ -180,8 +180,7 @@ package body Ch10 is Item := P_Pragma; if Item = Error - or else not - Is_Configuration_Pragma_Name (Pragma_Name (Item)) + or else not Is_Configuration_Pragma_Name (Pragma_Name (Item)) then Restore_Scan_State (Scan_State); exit; |