Ticket #62: abs-64bit.diff.txt
File abs-64bit.diff.txt, 458 bytes (added by , 15 years ago) |
---|
Line | |
---|---|
1 | Index: 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); |