diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-04-08 14:35:35 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-08 16:35:35 +0200 |
| commit | 0c7f524198fbbc48a459ee281c39b12a5ecefc4b (patch) | |
| tree | 5e296a93ff433896a975a2288dac8f036a71059c | |
| parent | ae8c7d8762ad36ce460e495cd82e46f7ebd9552d (diff) | |
| download | gcc-0c7f524198fbbc48a459ee281c39b12a5ecefc4b.zip gcc-0c7f524198fbbc48a459ee281c39b12a5ecefc4b.tar.gz gcc-0c7f524198fbbc48a459ee281c39b12a5ecefc4b.tar.bz2 | |
gnat_rm.texi: Minor reformatting
2009-04-08 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Minor reformatting
* par-ch2.adb: Minor reformatting
From-SVN: r145742
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/gnat_rm.texi | 28 | ||||
| -rw-r--r-- | gcc/ada/par-ch2.adb | 2 |
3 files changed, 22 insertions, 14 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 80c2376..0606a77 100644 --- 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 --- 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 --- 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 |