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

File abs-64bit.diff.txt, 458 bytes (added by Jim Ursetto, 16 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);