diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2022-01-28 15:27:47 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-11 08:53:18 +0000 |
commit | 9b7f7fa72491289b49082ef3f234498b18e55535 (patch) | |
tree | aaca29053b4805847ec6b8e429de4a563b00693a | |
parent | 089b43b11d1312b9e7daff9b881a4cdc6f5fa641 (diff) | |
download | gcc-9b7f7fa72491289b49082ef3f234498b18e55535.zip gcc-9b7f7fa72491289b49082ef3f234498b18e55535.tar.gz gcc-9b7f7fa72491289b49082ef3f234498b18e55535.tar.bz2 |
[Ada] Fix layout in description of aspects and pragmas
Remove extra whitespace in examples of pragmas and aspects.
Spotted while adding description of pragma Ada_2022.
gcc/ada/
* doc/gnat_rm/implementation_defined_aspects.rst,
doc/gnat_rm/implementation_defined_pragmas.rst: Remove extra
whitespace.
* gnat_rm.texi: Regenerate.
-rw-r--r-- | gcc/ada/doc/gnat_rm/implementation_defined_aspects.rst | 8 | ||||
-rw-r--r-- | gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst | 32 | ||||
-rw-r--r-- | gcc/ada/gnat_rm.texi | 40 |
3 files changed, 40 insertions, 40 deletions
diff --git a/gcc/ada/doc/gnat_rm/implementation_defined_aspects.rst b/gcc/ada/doc/gnat_rm/implementation_defined_aspects.rst index b09a4bb..6ef00c2 100644 --- a/gcc/ada/doc/gnat_rm/implementation_defined_aspects.rst +++ b/gcc/ada/doc/gnat_rm/implementation_defined_aspects.rst @@ -315,10 +315,10 @@ The following is a typical example of use: .. code-block:: ada type List is private with - Iterable => (First => First_Cursor, - Next => Advance, - Has_Element => Cursor_Has_Element, - [Element => Get_Element]); + Iterable => (First => First_Cursor, + Next => Advance, + Has_Element => Cursor_Has_Element, + [Element => Get_Element]); * The value denoted by ``First`` must denote a primitive operation of the container type that returns a ``Cursor``, which must a be a type declared in diff --git a/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst b/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst index 8d753f7..4f1d1ae 100644 --- a/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst +++ b/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst @@ -2847,12 +2847,12 @@ Syntax: :: pragma Import_Function ( - [Internal =>] LOCAL_NAME, - [, [External =>] EXTERNAL_SYMBOL] - [, [Parameter_Types =>] PARAMETER_TYPES] - [, [Result_Type =>] SUBTYPE_MARK] - [, [Mechanism =>] MECHANISM] - [, [Result_Mechanism =>] MECHANISM_NAME]); + [Internal =>] LOCAL_NAME, + [, [External =>] EXTERNAL_SYMBOL] + [, [Parameter_Types =>] PARAMETER_TYPES] + [, [Result_Type =>] SUBTYPE_MARK] + [, [Mechanism =>] MECHANISM] + [, [Result_Mechanism =>] MECHANISM_NAME]); EXTERNAL_SYMBOL ::= IDENTIFIER @@ -2938,10 +2938,10 @@ Syntax: :: pragma Import_Procedure ( - [Internal =>] LOCAL_NAME - [, [External =>] EXTERNAL_SYMBOL] - [, [Parameter_Types =>] PARAMETER_TYPES] - [, [Mechanism =>] MECHANISM]); + [Internal =>] LOCAL_NAME + [, [External =>] EXTERNAL_SYMBOL] + [, [Parameter_Types =>] PARAMETER_TYPES] + [, [Mechanism =>] MECHANISM]); EXTERNAL_SYMBOL ::= IDENTIFIER @@ -2978,10 +2978,10 @@ Syntax: :: pragma Import_Valued_Procedure ( - [Internal =>] LOCAL_NAME - [, [External =>] EXTERNAL_SYMBOL] - [, [Parameter_Types =>] PARAMETER_TYPES] - [, [Mechanism =>] MECHANISM]); + [Internal =>] LOCAL_NAME + [, [External =>] EXTERNAL_SYMBOL] + [, [Parameter_Types =>] PARAMETER_TYPES] + [, [Mechanism =>] MECHANISM]); EXTERNAL_SYMBOL ::= IDENTIFIER @@ -6121,12 +6121,12 @@ Syntax: :: pragma Source_File_Name ( - [Unit_Name =>] unit_NAME, + [Unit_Name =>] unit_NAME, Spec_File_Name => STRING_LITERAL, [Index => INTEGER_LITERAL]); pragma Source_File_Name ( - [Unit_Name =>] unit_NAME, + [Unit_Name =>] unit_NAME, Body_File_Name => STRING_LITERAL, [Index => INTEGER_LITERAL]); diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi index 358232c..c0da6de 100644 --- a/gcc/ada/gnat_rm.texi +++ b/gcc/ada/gnat_rm.texi @@ -4320,12 +4320,12 @@ Syntax: @example pragma Import_Function ( - [Internal =>] LOCAL_NAME, - [, [External =>] EXTERNAL_SYMBOL] - [, [Parameter_Types =>] PARAMETER_TYPES] - [, [Result_Type =>] SUBTYPE_MARK] - [, [Mechanism =>] MECHANISM] - [, [Result_Mechanism =>] MECHANISM_NAME]); + [Internal =>] LOCAL_NAME, + [, [External =>] EXTERNAL_SYMBOL] + [, [Parameter_Types =>] PARAMETER_TYPES] + [, [Result_Type =>] SUBTYPE_MARK] + [, [Mechanism =>] MECHANISM] + [, [Result_Mechanism =>] MECHANISM_NAME]); EXTERNAL_SYMBOL ::= IDENTIFIER @@ -4411,10 +4411,10 @@ Syntax: @example pragma Import_Procedure ( - [Internal =>] LOCAL_NAME - [, [External =>] EXTERNAL_SYMBOL] - [, [Parameter_Types =>] PARAMETER_TYPES] - [, [Mechanism =>] MECHANISM]); + [Internal =>] LOCAL_NAME + [, [External =>] EXTERNAL_SYMBOL] + [, [Parameter_Types =>] PARAMETER_TYPES] + [, [Mechanism =>] MECHANISM]); EXTERNAL_SYMBOL ::= IDENTIFIER @@ -4451,10 +4451,10 @@ Syntax: @example pragma Import_Valued_Procedure ( - [Internal =>] LOCAL_NAME - [, [External =>] EXTERNAL_SYMBOL] - [, [Parameter_Types =>] PARAMETER_TYPES] - [, [Mechanism =>] MECHANISM]); + [Internal =>] LOCAL_NAME + [, [External =>] EXTERNAL_SYMBOL] + [, [Parameter_Types =>] PARAMETER_TYPES] + [, [Mechanism =>] MECHANISM]); EXTERNAL_SYMBOL ::= IDENTIFIER @@ -7679,12 +7679,12 @@ Syntax: @example pragma Source_File_Name ( - [Unit_Name =>] unit_NAME, + [Unit_Name =>] unit_NAME, Spec_File_Name => STRING_LITERAL, [Index => INTEGER_LITERAL]); pragma Source_File_Name ( - [Unit_Name =>] unit_NAME, + [Unit_Name =>] unit_NAME, Body_File_Name => STRING_LITERAL, [Index => INTEGER_LITERAL]); @end example @@ -9768,10 +9768,10 @@ The following is a typical example of use: @example type List is private with - Iterable => (First => First_Cursor, - Next => Advance, - Has_Element => Cursor_Has_Element, - [Element => Get_Element]); + Iterable => (First => First_Cursor, + Next => Advance, + Has_Element => Cursor_Has_Element, + [Element => Get_Element]); @end example |