Changeset 30583 in project


Ignore:
Timestamp:
03/18/14 21:32:57 (7 years ago)
Author:
sjamaan
Message:

numbers: Use builtin C_i_flonump() instead of own copy of flonump

Location:
release/4/numbers/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/numbers-c.c

    r30582 r30583  
    4343
    4444#define fix_to_flo(p, n, f)       C_flonum(p, C_unfix(f))
    45 #define flonump(x)                C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG)
    4645#define big_of(v)                 ((bignum_type)C_data_pointer(C_block_item(v, 1)))
    4746#define big_negp(b)               C_mk_bool(BIGNUM_NEGATIVE_P(big_of(b)))
  • release/4/numbers/trunk/numbers.scm

    r30553 r30583  
    125125(define-inline (fp< x y) (##core#inline "C_flonum_lessp" x y))
    126126
    127 (define-inline (%flonum? x) (##core#inline "flonump" x))
     127(define-inline (%flonum? x) (##core#inline "C_i_flonump" x))
    128128(define-inline (%flo-integer? x) (##core#inline "C_u_i_fpintegerp" x))
    129129
Note: See TracChangeset for help on using the changeset viewer.