paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 19:50:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Also disable overflow where range check is disabled in aasmcpu unit

Browse Source 
git-svn-id: trunk@29989 -
This commit is contained in:
pierre 2015-02-24 15:58:49 +00:00
parent 422df4bc77
commit da55d9ded2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/aasmcpu.pas
View File

@ -1212,7 +1212,7 @@ implementation
currsym:=objdata.symbolref(ref^.symbol);
l:=ref^.offset;
{$push}
{$r-}
{$r-,q-} { disable also overflow as address returns a qword for x86_64 }
if assigned(currsym) then
inc(l,currsym.address);
{$pop}
@ -2786,7 +2786,7 @@ implementation
getvalsym(c-40);
data:=currval-insend;
{$push}
{$r-}
{$r-,q-} { disable also overflow as address returns a qword for x86_64 }
if assigned(currsym) then
inc(data,currsym.address);
{$pop}