Changeset 15291 in project

Timestamp:

07/31/09 21:45:17 (12 years ago)

Author:

felix winkelmann

Message:

fixed abs(3) overflow by applying patch from zbigniew

File:

• chicken/trunk/runtime.c (modified) (1 diff)

chicken/trunk/runtime.c

@@ -5387 +5387 @@
 C_regparm C_word C_fcall C_a_i_abs(C_word **a, int c, C_word x)
 {
-  if(x & C_FIXNUM_BIT) return C_fix(abs(C_unfix(x)));
+  if(x & C_FIXNUM_BIT) return C_fix(labs(C_unfix(x)));
 
   if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG)