+
+scm_t_signed_bits
+scm_foreign_object_signed_ref (SCM obj, size_t n)
+{
+ scm_t_bits bits = scm_foreign_object_unsigned_ref (obj, n);
+ return (scm_t_signed_bits) bits;
+}
+
+void
+scm_foreign_object_signed_set_x (SCM obj, size_t n, scm_t_signed_bits val)
+{
+ scm_t_bits bits = (scm_t_bits) val;
+ scm_foreign_object_unsigned_set_x (obj, n, bits);
+}
+
+void*
+scm_foreign_object_ref (SCM obj, size_t n)
+{
+ scm_t_bits bits = scm_foreign_object_unsigned_ref (obj, n);
+ return (void *) bits;
+}
+
+void
+scm_foreign_object_set_x (SCM obj, size_t n, void *val)
+{
+ scm_t_bits bits = (scm_t_bits) val;
+ scm_foreign_object_unsigned_set_x (obj, n, bits);
+}