blob: 37e2bc572fd3d2b7c27337abfb7a4dec513636ff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ 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.
|
