blob: 90ef6892f8bdaedd3eb8a8879dd62b11123de615 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
program Project1;
{$mode delphi}{$H+}
var
p:pointer;
begin
returnnilifgrowheapfails:=true;
{ Use a bigger absoulte value to avoid
getting a overflow inside heaptrc
if compiled with -gh option:
-128 changed to -1024,
which should be larger than typical
size of extra memory used by heaptrc }
GetMem(p,ptruint(-1024));
if assigned(p) then
halt(1);
end.
|
