mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
11 lines
152 B
ObjectPascal
11 lines
152 B
ObjectPascal
{ %norun }
|
|
|
|
type
|
|
ta = bitpacked array[0..high(longint)-1] of 0..1;
|
|
var
|
|
p: pointer;
|
|
begin
|
|
getmem(p,sizeof(ta));
|
|
ta(p^)[high(longint)-1]:=1;
|
|
end.
|