paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:10:24 +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

6
compiler/x86/aasmcpu.pas
View File

@ -1212,7 +1212,7 @@ implementation
currsym:=objdata.symbolref(ref^.symbol); currsym:=objdata.symbolref(ref^.symbol);
l:=ref^.offset; l:=ref^.offset;
{$push} {$push}
{$r-} {$r-,q-} { disable also overflow as address returns a qword for x86_64 }
if assigned(currsym) then if assigned(currsym) then
inc(l,currsym.address); inc(l,currsym.address);
{$pop} {$pop}
@ -1267,7 +1267,7 @@ implementation
begin begin
{ allow 2nd, 3rd or 4th operand being a constant and expect no size for shuf* etc. } { allow 2nd, 3rd or 4th operand being a constant and expect no size for shuf* etc. }
{ further, allow AAD and AAM with imm. operand } { further, allow AAD and AAM with imm. operand }
if (opsize=S_NO) and not((i in [1,2,3]) if (opsize=S_NO) and not((i in [1,2,3])
{$ifndef x86_64} {$ifndef x86_64}
or ((i=0) and (opcode in [A_AAD,A_AAM])) or ((i=0) and (opcode in [A_AAD,A_AAM]))
{$endif x86_64} {$endif x86_64}
@ -2786,7 +2786,7 @@ implementation
getvalsym(c-40); getvalsym(c-40);
data:=currval-insend; data:=currval-insend;
{$push} {$push}
{$r-} {$r-,q-} { disable also overflow as address returns a qword for x86_64 }
if assigned(currsym) then if assigned(currsym) then
inc(data,currsym.address); inc(data,currsym.address);
{$pop} {$pop}