mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 04:19:28 +02:00
242016312f
in the range high(ptruint)-$fffe .. high(ptruint), because all large
allocations are rounded up to the next multiple of 64kb, which is 0 in
that case (mantis #17430)
git-svn-id: trunk@16001 -
13 lines
164 B
ObjectPascal
13 lines
164 B
ObjectPascal
program Project1;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
var
|
|
p:pointer;
|
|
begin
|
|
returnnilifgrowheapfails:=true;
|
|
GetMem(p,ptruint(-128));
|
|
if assigned(p) then
|
|
halt(1);
|
|
end.
|