Commit fbe0e1ad by Robert Dewar Committed by Arnaud Charlet

par-ch10.adb: Minor reformatting

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

	* par-ch10.adb: Minor reformatting

From-SVN: r138581
parent fc1b906a
...@@ -115,7 +115,7 @@ package body Ch10 is ...@@ -115,7 +115,7 @@ package body Ch10 is
P : Node_Id; P : Node_Id;
SR_Present : Boolean; 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 -- 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 -- 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 -- not insisting on being at the end of file, and, in the syntax only
...@@ -140,8 +140,8 @@ package body Ch10 is ...@@ -140,8 +140,8 @@ package body Ch10 is
Config_Pragmas := No_List; Config_Pragmas := No_List;
-- If we have an initial Source_Reference pragma, then remember -- If we have an initial Source_Reference pragma, then remember the fact
-- the fact to generate an NR parameter in the output line. -- to generate an NR parameter in the output line.
SR_Present := False; SR_Present := False;
...@@ -180,8 +180,7 @@ package body Ch10 is ...@@ -180,8 +180,7 @@ package body Ch10 is
Item := P_Pragma; Item := P_Pragma;
if Item = Error if Item = Error
or else not or else not Is_Configuration_Pragma_Name (Pragma_Name (Item))
Is_Configuration_Pragma_Name (Pragma_Name (Item))
then then
Restore_Scan_State (Scan_State); Restore_Scan_State (Scan_State);
exit; exit;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment