paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 11:49:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed range check errors.

Browse Source 
git-svn-id: trunk@39963 -
This commit is contained in:
yury 2018-10-17 19:12:27 +00:00
parent 7eb9b23fa5
commit e8d43c8fed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/tgobj.pas
View File

@ -425,7 +425,7 @@ implementation
{ Extend the temp } { Extend the temp }
if direction=-1 then if direction=-1 then
begin begin
if qword(align(-lasttemp-alignmismatch,alignment))+size+alignmismatch>MaxLocalsSize then if Int64(align(-lasttemp-alignmismatch,alignment))+size+alignmismatch>MaxLocalsSize then
begin begin
CGMessage(cg_e_localsize_too_big); CGMessage(cg_e_localsize_too_big);
size:=0; // Prevent further range check errors size:=0; // Prevent further range check errors
@ -436,7 +436,7 @@ implementation
else else
begin begin
tl^.pos:=align(lasttemp+alignmismatch,alignment)-alignmismatch; tl^.pos:=align(lasttemp+alignmismatch,alignment)-alignmismatch;
if qword(tl^.pos)+size>MaxLocalsSize then if Int64(tl^.pos)+size>MaxLocalsSize then
begin begin
CGMessage(cg_e_localsize_too_big); CGMessage(cg_e_localsize_too_big);
size:=0; // Prevent further range check errors size:=0; // Prevent further range check errors