OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gnat_rm.texi: Minor reformatting

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

	* gnat_rm.texi: Minor reformatting

	* par-ch2.adb: Minor reformatting

From-SVN: r145742
This commit is contained in:
Robert Dewar 2009-04-08 14:35:35 +00:00 committed by Arnaud Charlet
parent ae8c7d8762
commit 0c7f524198
3 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
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.

28
gcc/ada/gnat_rm.texi
View File

@ -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

2
gcc/ada/par-ch2.adb
View File

@ -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