浏览代码

* added longint typecase to odd(smallint_var) call to avoid overload
problem

Jonas Maebe 22 年之前
父节点
当前提交
a399f7898c
共有 1 个文件被更改,包括 8 次插入2 次删除
  1. 8 2
      rtl/inc/genmath.inc

+ 8 - 2
rtl/inc/genmath.inc

@@ -797,7 +797,9 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
 
       j := Trunc(z); { convert to integer for tests on the phase angle }
       { map zeros to origin }
-      if odd( j ) then
+      { typecast is to avoid "can't determine which overloaded function }
+      { to call"                                                        }
+      if odd( longint(j) ) then
       begin
          inc(j);
          y := y + 1.0;
@@ -1081,7 +1083,11 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
 
 {
   $Log$
-  Revision 1.12  2003-05-02 15:12:19  jonas
+  Revision 1.13  2003-05-23 22:58:31  jonas
+    * added longint typecase to odd(smallint_var) call to avoid overload
+      problem
+
+  Revision 1.12  2003/05/02 15:12:19  jonas
     - removed empty ppc-specific frac()
     + added correct generic frac() implementation for doubles (translated
       from glibc code)