From e845160a0829f66ff65f9a720fa9c4757fa50798 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 4 Feb 2022 09:16:53 +0100 Subject: [PATCH] [Ada] Fix typos in syntax for implementation-defined pragmas 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 | 8 ++++---- gcc/ada/gnat_rm.texi | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst b/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst index 823db1c..af85600 100644 --- a/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst +++ b/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst @@ -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 diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi index a002498..f8f1c6a 100644 --- a/gcc/ada/gnat_rm.texi +++ b/gcc/ada/gnat_rm.texi @@ -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 -- 2.7.4