[Ada] Fix typos in syntax for implementation-defined pragmas
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 4 Feb 2022 08:16:53 +0000 (09:16 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 12 May 2022 12:38:33 +0000 (12:38 +0000)
Documentation cleanup. Spotted while looking at description of
configuration pragmas.

gcc/ada/

* doc/gnat_rm/implementation_defined_pragmas.rst:
(Export_Object, Import_Object, Short_Descriptors): Fix pragma
syntax specification.
* gnat_rm.texi: Regenerate.

gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst
gcc/ada/gnat_rm.texi

index 823db1c..af85600 100644 (file)
@@ -1985,10 +1985,10 @@ Syntax:
 
 ::
 
-  pragma Export_Object
+  pragma Export_Object (
         [Internal =>] LOCAL_NAME
      [, [External =>] EXTERNAL_SYMBOL]
-     [, [Size     =>] EXTERNAL_SYMBOL]
+     [, [Size     =>] EXTERNAL_SYMBOL]);
 
   EXTERNAL_SYMBOL ::=
     IDENTIFIER
@@ -2911,7 +2911,7 @@ Syntax:
 
 ::
 
-  pragma Import_Object
+  pragma Import_Object (
        [Internal =>] LOCAL_NAME
     [, [External =>] EXTERNAL_SYMBOL]
     [, [Size     =>] EXTERNAL_SYMBOL]);
@@ -6031,7 +6031,7 @@ Syntax:
 
 .. code-block:: ada
 
-  pragma Short_Descriptors
+  pragma Short_Descriptors;
 
 
 This pragma is provided for compatibility with other Ada implementations. It
index a002498..f8f1c6a 100644 (file)
@@ -3426,10 +3426,10 @@ still allows the specification of parameter mechanisms.
 Syntax:
 
 @example
-pragma Export_Object
+pragma Export_Object (
       [Internal =>] LOCAL_NAME
    [, [External =>] EXTERNAL_SYMBOL]
-   [, [Size     =>] EXTERNAL_SYMBOL]
+   [, [Size     =>] EXTERNAL_SYMBOL]);
 
 EXTERNAL_SYMBOL ::=
   IDENTIFIER
@@ -4385,7 +4385,7 @@ is used.
 Syntax:
 
 @example
-pragma Import_Object
+pragma Import_Object (
      [Internal =>] LOCAL_NAME
   [, [External =>] EXTERNAL_SYMBOL]
   [, [Size     =>] EXTERNAL_SYMBOL]);
@@ -7597,7 +7597,7 @@ There is no requirement that all units in a partition use this option.
 Syntax:
 
 @example
-pragma Short_Descriptors
+pragma Short_Descriptors;
 @end example
 
 This pragma is provided for compatibility with other Ada implementations. It