1 with System, System.Storage_Elements;
2 use System.Storage_Elements;
4 package body Allocator_Maxalign2 is
6 Max_Align : constant Storage_Offset := Standard'Maximum_Alignment;
9 use type System.Address;
11 if Addr mod Max_Align /= 0 then
19 type Block_Access is access all Block;
27 Addr := A.all'Address;