mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 10:35:07 +02:00
18 lines
206 B
ObjectPascal
18 lines
206 B
ObjectPascal
{ %opt=-Sew }
|
|
|
|
type
|
|
PUI32 = ^Longword;
|
|
var
|
|
P : PUI32;
|
|
Count : Longint;
|
|
Dw : Longword;
|
|
begin
|
|
Dw:=1;
|
|
Count:=1;
|
|
p:=@DW;
|
|
// Increase pointer
|
|
Inc(P,Count);
|
|
if Dw<>1 then
|
|
halt(1);
|
|
end.
|