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

	* gnat_rm.texi: Minor reformatting

	* par-ch2.adb: Minor reformatting

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145742 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 80c2376..0606a77 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,11 @@
 2009-04-08  Robert Dewar  <dewar@adacore.com>
 
+       * gnat_rm.texi: Minor reformatting
+
+       * par-ch2.adb: Minor reformatting
+
+2009-04-08  Robert Dewar  <dewar@adacore.com>
+
        * exp_attr.adb, sem_attr.adb, sem_util.adb: Code clean up.
 
 2009-04-08  Robert Dewar  <dewar@adacore.com>

diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi
index f72a0d1..98ecae0 100644 (file)
--- a/gcc/ada/gnat_rm.texi
+++ b/gcc/ada/gnat_rm.texi
@@ -2857,7 +2857,9 @@ maskable interrupts, in place of the normal return instruction.
 Syntax:
 
 @smallexample @c ada
-pragma Interrupt_State (Name => value, State => SYSTEM | RUNTIME | USER);
+pragma Interrupt_State
+ ([Name  =>] value,
+  [State =>] SYSTEM | RUNTIME | USER);
 @end smallexample
 
 @noindent
@@ -3276,9 +3278,9 @@ pragma Main
  (MAIN_OPTION [, MAIN_OPTION]);
 
 MAIN_OPTION ::=
-  [STACK_SIZE              =>] static_integer_EXPRESSION
-| [TASK_STACK_SIZE_DEFAULT =>] static_integer_EXPRESSION
-| [TIME_SLICING_ENABLED    =>] static_boolean_EXPRESSION
+  [Stack_Size              =>] static_integer_EXPRESSION
+| [Task_Stack_Size_Default =>] static_integer_EXPRESSION
+| [Time_Slicing_Enabled    =>] static_boolean_EXPRESSION
 @end smallexample
 
 @noindent
@@ -4238,19 +4240,19 @@ to apply to all files.
 
 @smallexample @c ada
 pragma Source_File_Name
-  (Spec_File_Name => STRING_LITERAL
-   [,Casing => CASING_SPEC]
-   [,Dot_Replacement => STRING_LITERAL]);
+  (  [Spec_File_Name  =>] STRING_LITERAL
+   [,[Casing          =>] CASING_SPEC]
+   [,[Dot_Replacement =>] STRING_LITERAL]);
 
 pragma Source_File_Name
-  (Body_File_Name => STRING_LITERAL
-   [,Casing => CASING_SPEC]
-   [,Dot_Replacement => STRING_LITERAL]);
+  (  [Body_File_Name  =>] STRING_LITERAL
+   [,[Casing          =>] CASING_SPEC]
+   [,[Dot_Replacement =>] STRING_LITERAL]);
 
 pragma Source_File_Name
-  (Subunit_File_Name => STRING_LITERAL
-   [,Casing => CASING_SPEC]
-   [,Dot_Replacement => STRING_LITERAL]);
+  (  [Subunit_File_Name =>] STRING_LITERAL
+   [,[Casing            =>] CASING_SPEC]
+   [,[Dot_Replacement   =>] STRING_LITERAL]);
 
 CASING_SPEC ::= Lowercase | Uppercase | Mixedcase
 @end smallexample

diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb
index d77e2c5..5a382a1 100644 (file)
--- a/gcc/ada/par-ch2.adb
+++ b/gcc/ada/par-ch2.adb
@@ -484,7 +484,7 @@ package body Ch2 is
             Scan; -- past arrow
             Set_Chars (Association, Chars (Identifier_Node));
 
-            --  Case of argument with no identifier
+         --  Case of argument with no identifier
 
          else
             Restore_Scan_State (Scan_State); -- to Identifier