(28 . 9)(28 . 9)
125 procedure Check_Standard_Allocator is
126 begin
127 if not Elaboration_In_Progress then
128 raise Program_Error with
129 "standard allocator after elaboration is complete is not allowed "
130 & "(No_Standard_Allocators_After_Elaboration restriction active)";
131 raise Program_Error;-- with
132 --"standard allocator after elaboration is complete is not allowed "
133 --& "(No_Standard_Allocators_After_Elaboration restriction active)";
134 end if;
135 end Check_Standard_Allocator;
136