mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:09:32 +02:00
11 lines
152 B
ObjectPascal
11 lines
152 B
ObjectPascal
var
|
|
l : dword;
|
|
begin
|
|
l:=$deadbeef;
|
|
if SwapEndian(l)=l then
|
|
halt(1);
|
|
if SwapEndian(SwapEndian(l))<>l then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|