summaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorEd Schonberg <schonber@gnat.com>2001-10-26 01:12:44 +0000
committerGeert Bosch <bosch@gcc.gnu.org>2001-10-26 03:12:44 +0200
commit578053f234aaeacfcec9742a348cf87959df75d7 (patch)
tree23659a5d664ce116e5370a8fe2b85c8183685970 /gcc/ada
parent0597ce0bbff39bfcd0e00f02c3da423f3afa21d9 (diff)
downloadgcc-578053f234aaeacfcec9742a348cf87959df75d7.tar.gz
sem_elab.adb (Check_A_Call): refine message when call is in an instance but callee is not declared in the...
* sem_elab.adb (Check_A_Call): refine message when call is in an instance but callee is not declared in the generic unit. From-SVN: r46513
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog5
-rw-r--r--gcc/ada/sem_elab.adb1
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a3bdfef7997..410f1178dfe 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,4 +1,9 @@
2001-10-25 Ed Schonberg <schonber@gnat.com>
+
+ * sem_elab.adb (Check_A_Call): refine message when call is in an
+ instance but callee is not declared in the generic unit.
+
+2001-10-25 Ed Schonberg <schonber@gnat.com>
* sem_elab.adb (Check_A_Call): check for renaming before finding the
enclosing unit, which may already be different from the calling unit.
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb
index 943161addac..53dc7f82a89 100644
--- a/gcc/ada/sem_elab.adb
+++ b/gcc/ada/sem_elab.adb
@@ -521,6 +521,7 @@ package body Sem_Elab is
if Unit_Caller /= No_Unit
and then Unit_Callee /= Unit_Caller
+ and then Unit_Callee /= No_Unit
and then not Dynamic_Elaboration_Checks
then
E_Scope := Spec_Entity (Cunit_Entity (Unit_Caller));