mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
28 lines
426 B
ObjectPascal
28 lines
426 B
ObjectPascal
{ %opt=-O2 }
|
|
{ %norun }
|
|
|
|
procedure Analyze(buf: pByte);
|
|
var
|
|
i: SizeInt;
|
|
begin
|
|
for i := 0 to 9 do write(buf[i], ' ');
|
|
end;
|
|
|
|
procedure DoSomething(index, cellSize: SizeUint);
|
|
var
|
|
buf: array[0 .. 127] of byte;
|
|
begin
|
|
(pByte(buf) + index * cellSize)^ := 5;
|
|
Analyze(buf);
|
|
end;
|
|
|
|
procedure DoSomething2(index, cellSize: SizeUint);
|
|
var
|
|
buf: array[0 .. 127] of byte;
|
|
begin
|
|
(pByte(buf) + index * cellSize)^ := 5;
|
|
end;
|
|
|
|
begin
|
|
end.
|