Message ID | 20180111090427.GA102885@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Missing finalization in case expression | expand |
--- gcc/ada/exp_ch4.adb +++ gcc/ada/exp_ch4.adb @@ -5340,7 +5340,7 @@ package body Exp_Ch4 is and then Is_Finalizable_Transient (Act, N) then Process_Transient_In_Expression (Act, N, Acts); - return Abandon; + return Skip; -- Avoid processing temporary function results multiple times when -- dealing with nested expression_with_actions.