mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
26 lines
435 B
ObjectPascal
26 lines
435 B
ObjectPascal
var
|
|
hl : record
|
|
hashnext : pqword;
|
|
end;
|
|
fs : dword;
|
|
sr : record
|
|
slot : dword;
|
|
end;
|
|
|
|
procedure p;
|
|
begin
|
|
hl.hashnext[sr.slot] := (qword(fs) shl 32) or dword(hl.hashnext[sr.slot]);
|
|
end;
|
|
|
|
begin
|
|
fs:=$12341234;
|
|
sr.slot:=0;
|
|
getmem(hl.hashnext,sizeof(qword));
|
|
hl.hashnext[sr.slot]:=$1eadbeef00000000;
|
|
p;
|
|
if hl.hashnext[sr.slot]<>$1234123400000000 then
|
|
halt(1);
|
|
freemem(hl.hashnext);
|
|
writeln('ok');
|
|
end.
|