mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-24 10:01:33 +02:00
* no longer free memory to avoid endless loops on systems where you can
allocate 2GB of contiguous memory git-svn-id: trunk@865 -
This commit is contained in:
parent
96e7fa7d36
commit
7196302522
@ -39,7 +39,7 @@ begin
|
|||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
writeln('getmem() was successful');
|
writeln('getmem() was successful');
|
||||||
freemem(l,storage);
|
// freemem(l,storage);
|
||||||
end;
|
end;
|
||||||
until (done);
|
until (done);
|
||||||
domem(mem);
|
domem(mem);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user