[Ada] Compiler crash on call to function instance

gcc/ada/

	* exp_ch6.adb (Is_Build_In_Place_Result_Type): Further narrow
	the conditions under which we enable build-in-place for
	controlled types.
This commit is contained in:
Bob Duff 2020-11-16 15:02:47 -05:00 committed by Pierre-Marie de Rodat
parent d983a9d050
commit 2c40c60ecb
1 changed files with 1 additions and 0 deletions

View File

@ -8091,6 +8091,7 @@ package body Exp_Ch6 is
if True then
Result := Is_Controlled (T)
and then not Is_Generic_Actual_Type (T)
and then Present (Enclosing_Subprogram (T))
and then not Is_Compilation_Unit (Enclosing_Subprogram (T))
and then Ekind (Enclosing_Subprogram (T)) = E_Procedure;