From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sat, 26 Oct 2024 13:16:57 +0000 (+0200)
Subject: Fix old glitch in the GNAT Reference Manual
X-Git-Tag: basepoints/gcc-16~4857
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ecf80e7daf7f27defe1ca724e265f723d10e7681;p=thirdparty%2Fgcc.git

Fix old glitch in the GNAT Reference Manual

gcc/ada
	PR ada/62122
	* doc/gnat_rm/implementation_defined_attributes.rst
	(Unrestricted_Access): Remove null exclusion.
	* gnat_rm.texi: Regenerate.
---

diff --git a/gcc/ada/doc/gnat_rm/implementation_defined_attributes.rst b/gcc/ada/doc/gnat_rm/implementation_defined_attributes.rst
index 2db245a0b884..f0518106853f 100644
--- a/gcc/ada/doc/gnat_rm/implementation_defined_attributes.rst
+++ b/gcc/ada/doc/gnat_rm/implementation_defined_attributes.rst
@@ -1382,7 +1382,7 @@ has returned, such calls are erroneous. For example:
 
   package body P is
 
-     type Less_Nested is not null access procedure;
+     type Less_Nested is access procedure;
      Global : Less_Nested;
 
      procedure P1 is
diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi
index 4bcdcf6781d4..647207f89e9d 100644
--- a/gcc/ada/gnat_rm.texi
+++ b/gcc/ada/gnat_rm.texi
@@ -12066,7 +12066,7 @@ has returned, such calls are erroneous. For example:
 @example
 package body P is
 
-   type Less_Nested is not null access procedure;
+   type Less_Nested is access procedure;
    Global : Less_Nested;
 
    procedure P1 is