From fbe0e1ad3ff312ef5284f3a3c8a659dd84b7d177 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 4 Aug 2008 11:05:01 +0200 Subject: [PATCH] par-ch10.adb: Minor reformatting 2008-08-04 Robert Dewar * par-ch10.adb: Minor reformatting From-SVN: r138581 --- gcc/ada/par-ch10.adb | 9 ++++----- 1 file 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; -- 2.7.4