Ticket #62: abs-64bit.diff.txt

File abs-64bit.diff.txt, 458 bytes (added by Jim Ursetto, 15 years ago)
Line 
1Index: runtime.c
2===================================================================
3--- runtime.c   (revision 15090)
4+++ runtime.c   (working copy)
5@@ -5382,7 +5382,7 @@
6 
7 C_regparm C_word C_fcall C_a_i_abs(C_word **a, int c, C_word x)
8 {
9-  if(x & C_FIXNUM_BIT) return C_fix(abs(C_unfix(x)));
10+  if(x & C_FIXNUM_BIT) return C_fix(labs(C_unfix(x)));
11 
12   if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG)
13     barf(C_BAD_ARGUMENT_TYPE_ERROR, "abs", x);