From: sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 13 Nov 2007 14:11:18 +0000 (+0000)
Subject:     gcc/ada/
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=62e369b3a7e2a62037d4b22f55f96530b76bb9f8;p=thirdparty%2Fgcc.git

gcc/ada/
	* a-tasatt.adb: Add a comment at the beginning of the package
	explaining why in general 'Unchecked_Access must be used instead
	of 'Access.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130139 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1ea33a6c0a29..1e8cd52ee078 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-13  Samuel Tardieu  <sam@rfc1149.net>
+
+	* a-tasatt.adb: Add a comment at the beginning of the package
+	explaining why in general 'Unchecked_Access must be used instead
+	of 'Access.
+
 2007-11-10  Samuel Tardieu  <sam@rfc1149.net>
 
 	* a-tasatt.adb: Revert previous change for this file as it will
diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb
index 97e024c06574..cc6977fd8c03 100644
--- a/gcc/ada/a-tasatt.adb
+++ b/gcc/ada/a-tasatt.adb
@@ -217,6 +217,10 @@
 --  "passed" in via access discriminants. GNAT was having trouble with access
 --  discriminants, so all this work was moved to the package body.
 
+--  Note that references to objects declared in this package body must in
+--  general use 'Unchecked_Access instead of 'Access as the package can be
+--  instantiated from within a local context.
+
 with System.Error_Reporting;
 --  Used for Shutdown;