From 0c7f524198fbbc48a459ee281c39b12a5ecefc4b Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 8 Apr 2009 14:35:35 +0000 Subject: [PATCH] gnat_rm.texi: Minor reformatting 2009-04-08 Robert Dewar * gnat_rm.texi: Minor reformatting * par-ch2.adb: Minor reformatting From-SVN: r145742 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/gnat_rm.texi | 28 +++++++++++++++------------- gcc/ada/par-ch2.adb | 2 +- 3 files changed, 22 insertions(+), 14 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 80c23763f87..0606a77e7ac 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2009-04-08 Robert Dewar + + * gnat_rm.texi: Minor reformatting + + * par-ch2.adb: Minor reformatting + 2009-04-08 Robert Dewar * exp_attr.adb, sem_attr.adb, sem_util.adb: Code clean up. diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi index f72a0d16093..98ecae04462 100644 --- 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 d77e2c5a2b4..5a382a13f0b 100644 --- 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