diff mbox series

[Ada] Fix layout in description of aspects and pragmas

Message ID 20220511085428.GA2166181@adacore.com
State New
Headers show
Series [Ada] Fix layout in description of aspects and pragmas | expand

Commit Message

Pierre-Marie de Rodat May 11, 2022, 8:54 a.m. UTC 
Remove extra whitespace in examples of pragmas and aspects.

Spotted while adding description of pragma Ada_2022.

Tested on x86_64-pc-linux-gnu, committed on trunk

gcc/ada/

	* doc/gnat_rm/implementation_defined_aspects.rst,
	doc/gnat_rm/implementation_defined_pragmas.rst: Remove extra
	whitespace.
	* gnat_rm.texi: Regenerate.
diff mbox series

Patch

diff --git a/gcc/ada/doc/gnat_rm/implementation_defined_aspects.rst b/gcc/ada/doc/gnat_rm/implementation_defined_aspects.rst
--- 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
--- 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
--- 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