~ chicken-core (chicken-5) 56ad8c3845f67548ccf1675c15c7e0941381663d
commit 56ad8c3845f67548ccf1675c15c7e0941381663d
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Feb 27 09:59:05 2012 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Feb 27 09:59:05 2012 +0100
add aliases for old C-level SRFI-4 accessors to keep bootstrap working (suggested by sjamaan)
diff --git a/chicken.h b/chicken.h
index 98a8ce85..b304d222 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1320,6 +1320,10 @@ extern double trunc(double);
#define C_u_i_u32vector_ref(x, i) C_fix(((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
#define C_u_i_s32vector_ref(x, i) C_fix(((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
+/* DEPRECATED */
+#define C_a_i_u32vector_ref C_a_u_i_u32vector_ref
+#define C_a_i_s32vector_ref C_a_u_i_s32vector_ref
+
#define C_a_u_i_u32vector_ref(ptr, c, x, i) C_unsigned_int_to_num(ptr, ((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
#define C_a_u_i_s32vector_ref(ptr, c, x, i) C_int_to_num(ptr, ((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ])
@@ -1454,6 +1458,10 @@ extern double trunc(double);
#define C_a_i_flonum_floor(ptr, n, x) C_flonum(ptr, C_floor(C_flonum_magnitude(x)))
#define C_a_i_flonum_round(ptr, n, x) C_flonum(ptr, C_round(C_flonum_magnitude(x)))
+/* DEPRECATED */
+#define C_a_i_f32vector_ref C_a_u_i_f32vector_ref
+#define C_a_i_f64vector_ref C_a_u_i_f64vector_ref
+
#define C_a_u_i_f32vector_ref(ptr, n, b, i) C_flonum(ptr, ((float *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ])
#define C_a_u_i_f64vector_ref(ptr, n, b, i) C_flonum(ptr, ((double *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ])
#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)
Trap