* fixed overflow checking for $8000000000000000 in generic int64 mul

    routine (constants >high(int64) are currently always interpreted as
    int64 (and thus < 0) by the compiler if there is no explicit typecast)

git-svn-id: trunk@10412 -

rtl/inc/int64.inc

@@ -349,7 +349,7 @@
                 { the bit 63 can be only set if we have $80000000 00000000 }
                 { and sign is true                                         }
                 (q3 shr 63<>0) and
-                 ((q3<>(qword(1) shl 63)) or not(sign))
+                 ((q3<>qword(qword(1) shl 63)) or not(sign))
                 ) then
                 HandleErrorFrame(215,get_frame);