From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 19 Nov 2015 16:40:37 +0000 (+0000)
Subject: 2015-11-19  Bob Duff  <duff@adacore.com>
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=104f5d68b2f1e548971cfce985e41fa1e97439e3;p=thirdparty%2Fgcc.git

2015-11-19  Bob Duff  <duff@adacore.com>

	* sem_elab.adb (Check_Internal_Call_Continue): Correction to previous
	change: correctly handle generic formals/actuals that look like
	renamings.



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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 77ac16211cc5..ddfe03e1aecd 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2015-11-19  Bob Duff  <duff@adacore.com>
+
+	* sem_elab.adb (Check_Internal_Call_Continue): Correction to previous
+	change: correctly handle generic formals/actuals that look like
+	renamings.
+
 2015-11-18  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/trans.c (elaborate_all_entities_for_package): New
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb
index b229c1bd9b0c..92118abdc846 100644
--- a/gcc/ada/sem_elab.adb
+++ b/gcc/ada/sem_elab.adb
@@ -2407,7 +2407,7 @@ package body Sem_Elab is
                Error_Msg_NE
                  ("cannot call& before body seen<<", N, Orig_Ent);
 
-            else
+            elsif not Is_Generic_Actual_Subprogram (Orig_Ent) then
                Insert_Check := False;
             end if;