14 lines
209 B
Ada
14 lines
209 B
Ada
|
package Loop_Optimization14 is
|
||
|
|
||
|
type Rec is record
|
||
|
A : Boolean;
|
||
|
pragma Atomic (A);
|
||
|
|
||
|
B : Boolean;
|
||
|
|
||
|
end record;
|
||
|
|
||
|
procedure Finalize_Pool (Pool : in out Rec);
|
||
|
|
||
|
end Loop_Optimization14;
|