public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r13-295] [Ada] Fix layout in description of aspects and pragmas
@ 2022-05-11  8:55 Pierre-Marie de Rodat
  0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-05-11  8:55 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:9b7f7fa72491289b49082ef3f234498b18e55535

commit r13-295-g9b7f7fa72491289b49082ef3f234498b18e55535
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Fri Jan 28 15:27:47 2022 +0100

    [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.

Diff:
---
 .../doc/gnat_rm/implementation_defined_aspects.rst |  8 ++---
 .../doc/gnat_rm/implementation_defined_pragmas.rst | 32 ++++++++---------
 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 b09a4bb0796..6ef00c25ab6 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 8d753f70c2b..4f1d1ae63f5 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 358232c46ef..c0da6de8700 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


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2022-05-11  8:55 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-11  8:55 [gcc r13-295] [Ada] Fix layout in description of aspects and pragmas Pierre-Marie de Rodat

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).