Explorar o código

* workaround for 2.6.x to avoid overflow errors when compiled with -CRiot

git-svn-id: trunk@24980 -
florian %!s(int64=12) %!d(string=hai) anos
pai
achega
b78d6108fd
Modificáronse 1 ficheiros con 8 adicións e 0 borrados
  1. 8 0
      compiler/constexp.pas

+ 8 - 0
compiler/constexp.pas

@@ -189,6 +189,10 @@ try_qword:
   result.overflow:=true;
 end;
 
+{ workaround for 2.6.x bug }
+{$ifdef VER2_6}
+    {$push} {$Q-}
+{$endif VER2_6}
 function sub_from(const a:Tconstexprint;b:qword):Tconstexprint;
 
 const abs_low_int64=qword(9223372036854775808);   {abs(low(int64)) -> overflow error}
@@ -231,6 +235,10 @@ try_qword:
 ov:
   result.overflow:=true;
 end;
+{ workaround for 2.6.x bug }
+{$ifdef VER2_6}
+    {$pop}
+{$endif VER2_6}
 
 operator + (const a,b:Tconstexprint):Tconstexprint;