FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ada: Put back conversion to interface in more cases

Browse source 
This needs to be done for all expressions with class-wide type.

gcc/ada/

	* exp_ch3.adb (Make_Allocator_For_Return): Put back an interface
	conversion for expressions with non-interface class-wide type.
This commit is contained in:
Eric Botcazou 2023-01-03 08:20:30 +01:00 • committed by Marc Poulhiès
parent 24993939b7
commit e59cd0db82
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/ada/exp_ch3.adb
View file

@ -7185,7 +7185,7 @@ package body Exp_Ch3 is
-- remove earlier in the processing.
if Is_Interface (Typ)
and then Is_Interface (Etype (Alloc_Expr))
and then Is_Class_Wide_Type (Etype (Alloc_Expr))
and then Typ /= Etype (Alloc_Expr)
then
Alloc_Expr := Convert_To (Typ, Alloc_Expr);