sem_elab.adb (Check_A_Call): refine message when call is in an instance but…

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

gcc/ada/ChangeLog

 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.
 

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));