[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:
parent
d983a9d050
commit
2c40c60ecb
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue