>From 65f4bf67446e47bfb891d6aa669bd92d6e9d7a1a Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sun, 23 Sep 2012 22:06:52 +0200 Subject: [PATCH 2/2] Remove unboxing macros and inline procedures which are no longer being used. --- chicken.h | 53 ----------------------------------------------------- 1 files changed, 0 insertions(+), 53 deletions(-) diff --git a/chicken.h b/chicken.h index 90a1475..92eba2f 100644 --- a/chicken.h +++ b/chicken.h @@ -1408,38 +1408,6 @@ extern double trunc(double); # endif #endif -#define C_ub_i_flonum_plus(x, y) ((x) + (y)) -#define C_ub_i_flonum_difference(x, y) ((x) - (y)) -#define C_ub_i_flonum_times(x, y) ((x) * (y)) -#define C_ub_i_flonum_quotient(x, y) ((x) / (y)) - -#define C_ub_i_flonum_equalp(n1, n2) ((n1) == (n2)) -#define C_ub_i_flonum_greaterp(n1, n2) ((n1) > (n2)) -#define C_ub_i_flonum_lessp(n1, n2) ((n1) < (n2)) -#define C_ub_i_flonum_greater_or_equal_p(n1, n2) ((n1) >= (n2)) -#define C_ub_i_flonum_less_or_equal_p(n1, n2) ((n1) <= (n2)) - -#define C_ub_i_pointer_inc(p, n) ((void *)((unsigned char *)(p) + (n))) -#define C_ub_i_pointer_eqp(p1, p2) ((p1) == (p2)) -#define C_ub_i_null_pointerp(p) ((p) == NULL) - -#define C_ub_i_pointer_u8_ref(p) (*((unsigned char *)(p))) -#define C_ub_i_pointer_s8_ref(p) (*((char *)(p))) -#define C_ub_i_pointer_u16_ref(p) (*((unsigned short *)(p))) -#define C_ub_i_pointer_s16_ref(p) (*((short *)(p))) -#define C_ub_i_pointer_u32_ref(p) (*((C_u32 *)(p))) -#define C_ub_i_pointer_s32_ref(p) (*((C_s32 *)(p))) -#define C_ub_i_pointer_f32_ref(p) (*((float *)(p))) -#define C_ub_i_pointer_f64_ref(p) (*((double *)(p))) -#define C_ub_i_pointer_u8_set(p, n) (*((unsigned char *)(p)) = (n)) -#define C_ub_i_pointer_s8_set(p, n) (*((char *)(p)) = (n)) -#define C_ub_i_pointer_u16_set(p, n) (*((unsigned short *)(p)) = (n)) -#define C_ub_i_pointer_s16_set(p, n) (*((short *)(p)) = (n)) -#define C_ub_i_pointer_u32_set(p, n) (*((C_u32 *)(p)) = (n)) -#define C_ub_i_pointer_s32_set(p, n) (*((C_s32 *)(p)) = (n)) -#define C_ub_i_pointer_f32_set(p, n) (*((float *)(p)) = (n)) -#define C_ub_i_pointer_f64_set(p, n) (*((double *)(p)) = (n)) - #ifdef C_PRIVATE_REPOSITORY # define C_private_repository(fname) C_use_private_repository(C_path_to_executable(fname)) #else @@ -1494,11 +1462,6 @@ extern double trunc(double); #define C_u_i_f32vector_set(v, i, x) ((((float *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = C_flonum_magnitude(x)), C_SCHEME_UNDEFINED) #define C_u_i_f64vector_set(v, i, x) ((((double *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = C_flonum_magnitude(x)), C_SCHEME_UNDEFINED) -#define C_ub_i_f32vector_ref(b, i) (((float *)C_data_pointer(C_block_item((b), 1)))[ i ]) -#define C_ub_i_f64vector_ref(b, i) (((double *)C_data_pointer(C_block_item((b), 1)))[ i ]) -#define C_ub_i_f32vector_set(v, i, x) ((((float *)C_data_pointer(C_block_item((v), 1)))[ i ] = (x)), 0) -#define C_ub_i_f64vector_set(v, i, x) ((((double *)C_data_pointer(C_block_item((v), 1)))[ i ] = (x)), 0) - #define C_a_i_flonum_sin(ptr, c, x) C_flonum(ptr, C_sin(C_flonum_magnitude(x))) #define C_a_i_flonum_cos(ptr, c, x) C_flonum(ptr, C_cos(C_flonum_magnitude(x))) #define C_a_i_flonum_tan(ptr, c, x) C_flonum(ptr, C_tan(C_flonum_magnitude(x))) @@ -2228,14 +2191,6 @@ C_inline C_word C_u_i_fpintegerp(C_word x) } -C_inline int C_ub_i_fpintegerp(double x) -{ - double dummy; - - return C_modf(x, &dummy) == 0.0; -} - - C_inline C_word C_i_integerp(C_word x) { double dummy, val; @@ -2333,14 +2288,6 @@ C_a_i_flonum_quotient_checked(C_word **ptr, int c, C_word n1, C_word n2) } -C_inline double -C_ub_i_flonum_quotient_checked(double n1, double n2) -{ - if(n2 == 0.0) C_div_by_zero_error("fp/?"); - return n1 / n2; -} - - C_inline C_word C_i_safe_pointerp(C_word x) { if(C_immediatep(x)) return C_SCHEME_FALSE; -- 1.7.9.1