2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@24980 -
florian 12 жил өмнө
parent
commit
b78d6108fd

+ 8 - 0
compiler/constexp.pas

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