Browse Source

* qword(-int64) can cause an overflow error in case of low(int64). Harmless, so
disable overflow checking around it.

git-svn-id: trunk@8124 -

daniel 18 năm trước cách đây
mục cha
commit
6065bee1c2
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  1. 4 0
      compiler/constexp.pas

+ 4 - 0
compiler/constexp.pas

@@ -342,12 +342,16 @@ begin
   result.overflow:=false;
   sa:=a.signed and (a.svalue<0);
   if sa then
+    {$Q-}
     aa:=qword(-a.svalue)
+    {$ifdef ena_q}{$Q+}{$endif}
   else
     aa:=a.uvalue;
   sb:=b.signed and (b.svalue<0);
   if sb then
+    {$Q-}
     bb:=qword(-b.svalue)
+    {$ifdef ena_q}{$Q+}{$endif}
   else
     bb:=b.uvalue;