mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
28 lines
359 B
ObjectPascal
28 lines
359 B
ObjectPascal
{ %target=win32,win64,wince,os2 }
|
|
{ %needlibrary }
|
|
{ %norun }
|
|
library tw12987a;
|
|
|
|
uses
|
|
popuperr;
|
|
|
|
procedure test;
|
|
var
|
|
p1,p2 : pointer;
|
|
i : longint;
|
|
begin
|
|
for i:=1 to 200000 do
|
|
begin
|
|
getmem(p1,random(1000));
|
|
getmem(p2,random(100));
|
|
freemem(p1);
|
|
freemem(p2);
|
|
end;
|
|
end;
|
|
|
|
exports
|
|
test;
|
|
|
|
begin
|
|
end.
|