paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 21:48:35 +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 }
if direction=-1 then
begin
if qword(align(-lasttemp-alignmismatch,alignment))+size+alignmismatch>MaxLocalsSize then
if Int64(align(-lasttemp-alignmismatch,alignment))+size+alignmismatch>MaxLocalsSize then
begin
CGMessage(cg_e_localsize_too_big);
size:=0; // Prevent further range check errors
@ -436,7 +436,7 @@ implementation
else
begin
tl^.pos:=align(lasttemp+alignmismatch,alignment)-alignmismatch;
if qword(tl^.pos)+size>MaxLocalsSize then
if Int64(tl^.pos)+size>MaxLocalsSize then
begin
CGMessage(cg_e_localsize_too_big);
size:=0; // Prevent further range check errors