Browse Source

- Remove another test for u64bit now unnecessary.

git-svn-id: trunk@7647 -
daniel 18 years ago
parent
commit
563b325382
1 changed files with 2 additions and 8 deletions
  1. 2 8
      compiler/htypechk.pas

+ 2 - 8
compiler/htypechk.pas

@@ -2040,14 +2040,8 @@ implementation
                    eq:=te_equal;
                    hp^.ordinal_distance:=hp^.ordinal_distance+
                      abs(bestreal(torddef(def_from).low)-bestreal(torddef(def_to).low));
-                   if (torddef(def_to).ordtype=u64bit) then
-                     rth:=bestreal(qword(torddef(def_to).high))
-                   else
-                     rth:=bestreal(torddef(def_to).high);
-                   if (torddef(def_from).ordtype=u64bit) then
-                     rfh:=bestreal(qword(torddef(def_from).high))
-                   else
-                     rfh:=bestreal(torddef(def_from).high);
+                   rth:=bestreal(torddef(def_to).high);
+                   rfh:=bestreal(torddef(def_from).high);
                    hp^.ordinal_distance:=hp^.ordinal_distance+abs(rth-rfh);
                    { Give wrong sign a small penalty, this is need to get a diffrence
                      from word->[longword,longint] }