paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:33:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid arithmetic overflow inside heaptrc unit on this test

Browse Source 
git-svn-id: trunk@41883 -
This commit is contained in:
pierre 2019-04-16 15:10:40 +00:00
parent 7b3e027dc8
commit 8ff0aaa369
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw17430.pp
View File

@ -6,7 +6,13 @@ var
p:pointer; p:pointer;
begin begin
returnnilifgrowheapfails:=true; returnnilifgrowheapfails:=true;
GetMem(p,ptruint(-128)); { 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 if assigned(p) then
halt(1); halt(1);
end. end.