Message ID | 20190820095123.GA75482@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Improve generated code for initialization of atomics | expand |
--- gcc/ada/freeze.adb +++ gcc/ada/freeze.adb @@ -1771,6 +1771,7 @@ package body Freeze is New_N := Make_Object_Declaration (Loc, Defining_Identifier => Temp, + Constant_Present => True, Object_Definition => New_Occurrence_Of (Typ, Loc), Expression => Relocate_Node (N)); Insert_Before (Par, New_N);