OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

par-ch10.adb: Minor reformatting 

2008-08-04  Robert Dewar  <dewar@adacore.com>

	* par-ch10.adb: Minor reformatting

From-SVN: r138581
This commit is contained in:
Robert Dewar 2008-08-04 11:05:01 +02:00 committed by Arnaud Charlet
parent fc1b906a0a
commit fbe0e1ad3f
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/par-ch10.adb
View File

@ -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;