From 0e506c4b4f1efe03e05b80fbc09bb77f474372a1 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Tue, 13 Nov 2007 14:11:18 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/a-tasatt.adb | 4 ++++ 2 files changed, 10 insertions(+) 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; -- 2.30.2