~ chicken-core (chicken-5) c91666347129d533a79957b2038f3c493e243968

commit c91666347129d533a79957b2038f3c493e243968
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 17 22:57:52 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Sep 19 14:05:20 2010 +0200

    applied fix by Kon Lovett for serious bug in unboxing of pointer-setters

diff --git a/unboxing.scm b/unboxing.scm
index cd5c7370..fc0ff825 100644
--- a/unboxing.scm
+++ b/unboxing.scm
@@ -448,12 +448,12 @@
   (C_u_i_pointer_s32_ref (pointer) fixnum "C_ub_i_pointer_s32_ref")
   (C_u_i_pointer_f32_ref (pointer) flonum "C_ub_i_pointer_f32_ref")
   (C_u_i_pointer_f64_ref (pointer) flonum "C_ub_i_pointer_f64_ref")
-  (C_u_i_pointer_u8_set (pointer fixnum) fixnum "C_ub_i_pointer_u8_ref")
-  (C_u_i_pointer_s8_set (pointer fixnum) fixnum "C_ub_i_pointer_s8_ref")
-  (C_u_i_pointer_u16_set (pointer fixnum) fixnum "C_ub_i_pointer_u16_ref")
-  (C_u_i_pointer_s16_set (pointer fixnum) fixnum "C_ub_i_pointer_s16_ref")
-  (C_u_i_pointer_u32_set (pointer fixnum) fixnum "C_ub_i_pointer_u32_ref")
-  (C_u_i_pointer_s32_set (pointer fixnum) fixnum "C_ub_i_pointer_s32_ref")
-  (C_u_i_pointer_f32_set (pointer flonum) flonum "C_ub_i_pointer_f32_ref")
-  (C_u_i_pointer_f64_set (pointer flonum) flonum "C_ub_i_pointer_f64_ref")
+  (C_u_i_pointer_u8_set (pointer fixnum) fixnum "C_ub_i_pointer_u8_set")
+  (C_u_i_pointer_s8_set (pointer fixnum) fixnum "C_ub_i_pointer_s8_set")
+  (C_u_i_pointer_u16_set (pointer fixnum) fixnum "C_ub_i_pointer_u16_set")
+  (C_u_i_pointer_s16_set (pointer fixnum) fixnum "C_ub_i_pointer_s16_set")
+  (C_u_i_pointer_u32_set (pointer fixnum) fixnum "C_ub_i_pointer_u32_set")
+  (C_u_i_pointer_s32_set (pointer fixnum) fixnum "C_ub_i_pointer_s32_set")
+  (C_u_i_pointer_f32_set (pointer flonum) flonum "C_ub_i_pointer_f32_set")
+  (C_u_i_pointer_f64_set (pointer flonum) flonum "C_ub_i_pointer_f64_set")
   (C_null_pointerp (pointer) bool "C_ub_i_null_pointerp"))