mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
18 lines
327 B
ObjectPascal
18 lines
327 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4308 }
|
|
{ Submitted by "Olle" on 2005-08-22 }
|
|
{ e-mail: olle.r@automagika.se }
|
|
program loop_var_assgn;
|
|
|
|
procedure ZeroBlock (startAddr: PtrUInt; length: SizeUInt);
|
|
|
|
var
|
|
i: PtrUInt;
|
|
|
|
begin
|
|
for i := startAddr to startAddr + length - 1 do
|
|
PByte(i)^ := 0;
|
|
end;
|
|
|
|
begin
|
|
end.
|