Changeset 15291 in project for chicken


Ignore:
Timestamp:
07/31/09 21:45:17 (10 years ago)
Author:
felix
Message:

fixed abs(3) overflow by applying patch from zbigniew

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/runtime.c

    r15270 r15291  
    53875387C_regparm C_word C_fcall C_a_i_abs(C_word **a, int c, C_word x)
    53885388{
    5389   if(x & C_FIXNUM_BIT) return C_fix(abs(C_unfix(x)));
     5389  if(x & C_FIXNUM_BIT) return C_fix(labs(C_unfix(x)));
    53905390
    53915391  if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG)
Note: See TracChangeset for help on using the changeset viewer.