Browse Source

Also disable overflow where range check is disabled in aasmcpu unit

git-svn-id: trunk@29989 -
pierre 10 years ago
parent
commit
da55d9ded2
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/x86/aasmcpu.pas

+ 3 - 3
compiler/x86/aasmcpu.pas

@@ -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}