From: Samuel Tardieu Date: Tue, 13 Nov 2007 14:11:18 +0000 (+0000) Subject: a-tasatt.adb: Add a comment at the beginning of the package explaining why in general... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0e506c4b4f1efe03e05b80fbc09bb77f474372a1;p=gcc.git a-tasatt.adb: Add a comment at the beginning of the package explaining why in general... 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. From-SVN: r130139 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1ea33a6c0a2..1e8cd52ee07 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2007-11-13 Samuel Tardieu + + * 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 * 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 97e024c0657..cc6977fd8c0 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;