Explorar o código

* omit first not, helps the reg. allocator to find a workable colouring, resolves #36611

git-svn-id: trunk@44005 -
florian %!s(int64=5) %!d(string=hai) anos
pai
achega
ae8d2dc69a
Modificáronse 1 ficheiros con 5 adicións e 3 borrados
  1. 5 3
      rtl/inc/int64.inc

+ 5 - 3
rtl/inc/int64.inc

@@ -530,14 +530,16 @@
          sign : boolean;
          q1,q2,q3 : qword;
       begin
-        sign:=false;
         if f1<0 then
           begin
-            sign:=not(sign);
             q1:=qword(-f1);
+            sign:=true;
           end
         else
-          q1:=f1;
+          begin
+            q1:=f1;
+            sign:=false;
+          end;
         if f2<0 then
           begin
             sign:=not(sign);