diff --git a/libguile/goops.c b/libguile/goops.c index 6d8043f8e..b0266c9a3 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -448,8 +448,6 @@ SCM_DEFINE (scm_sys_init_layout_x, "%init-layout!", 2, 0, 0, } #undef FUNC_NAME -static void prep_hashsets (SCM); - SCM_DEFINE (scm_sys_inherit_magic_x, "%inherit-magic!", 2, 0, 0, (SCM class, SCM dsupers), "") @@ -459,21 +457,10 @@ SCM_DEFINE (scm_sys_inherit_magic_x, "%inherit-magic!", 2, 0, 0, scm_i_struct_inherit_vtable_magic (SCM_CLASS_OF (class), class); SCM_SET_CLASS_FLAGS (class, SCM_CLASSF_GOOPS_OR_VALID); - prep_hashsets (class); - return SCM_UNSPECIFIED; } #undef FUNC_NAME -static void -prep_hashsets (SCM class) -{ - unsigned int i; - - for (i = 0; i < 8; ++i) - SCM_SET_HASHSET (class, i, scm_c_uniform32 (goops_rstate)); -} - /******************************************************************************/ SCM @@ -508,8 +495,6 @@ SCM_DEFINE (scm_sys_make_root_class, "%make-root-class", 3, 0, 0, SCM_SET_SLOT (z, scm_si_getters_n_setters, getters_n_setters); /* will be changed */ SCM_SET_SLOT (z, scm_si_redefined, SCM_BOOL_F); - prep_hashsets (z); - return z; } #undef FUNC_NAME diff --git a/libguile/goops.h b/libguile/goops.h index 657c8ff64..077efc60a 100644 --- a/libguile/goops.h +++ b/libguile/goops.h @@ -63,14 +63,6 @@ /* see also, SCM_VTABLE_BASE_LAYOUT, and build_class_class_slots */ #define SCM_CLASS_CLASS_LAYOUT \ "pw" /* redefined */ \ - "uw" /* h0 */ \ - "uw" /* h1 */ \ - "uw" /* h2 */ \ - "uw" /* h3 */ \ - "uw" /* h4 */ \ - "uw" /* h5 */ \ - "uw" /* h6 */ \ - "uw" /* h7 */ \ "pw" /* direct supers */ \ "pw" /* direct slots */ \ "pw" /* direct subclasses */ \ @@ -81,24 +73,15 @@ "pw" /* nfields */ #define scm_si_redefined (scm_vtable_offset_user + 0) -#define scm_si_h0 (scm_vtable_offset_user + 1) -#define scm_si_hashsets scm_si_h0 -#define scm_si_h1 (scm_vtable_offset_user + 2) -#define scm_si_h2 (scm_vtable_offset_user + 3) -#define scm_si_h3 (scm_vtable_offset_user + 4) -#define scm_si_h4 (scm_vtable_offset_user + 5) -#define scm_si_h5 (scm_vtable_offset_user + 6) -#define scm_si_h6 (scm_vtable_offset_user + 7) -#define scm_si_h7 (scm_vtable_offset_user + 8) -#define scm_si_direct_supers (scm_vtable_offset_user + 9) /* (class ...) */ -#define scm_si_direct_slots (scm_vtable_offset_user + 10) /* ((name . options) ...) */ -#define scm_si_direct_subclasses (scm_vtable_offset_user + 11) /* (class ...) */ -#define scm_si_direct_methods (scm_vtable_offset_user + 12) /* (methods ...) */ -#define scm_si_cpl (scm_vtable_offset_user + 13) /* (class ...) */ -#define scm_si_slots (scm_vtable_offset_user + 14) /* ((name . options) ...) */ -#define scm_si_getters_n_setters (scm_vtable_offset_user + 15) -#define scm_si_nfields (scm_vtable_offset_user + 16) /* an integer */ -#define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 17) +#define scm_si_direct_supers (scm_vtable_offset_user + 1) /* (class ...) */ +#define scm_si_direct_slots (scm_vtable_offset_user + 2) /* ((name . options) ...) */ +#define scm_si_direct_subclasses (scm_vtable_offset_user + 3) /* (class ...) */ +#define scm_si_direct_methods (scm_vtable_offset_user + 4) /* (methods ...) */ +#define scm_si_cpl (scm_vtable_offset_user + 5) /* (class ...) */ +#define scm_si_slots (scm_vtable_offset_user + 6) /* ((name . options) ...) */ +#define scm_si_getters_n_setters (scm_vtable_offset_user + 7) +#define scm_si_nfields (scm_vtable_offset_user + 8) /* an integer */ +#define SCM_N_CLASS_SLOTS (scm_vtable_offset_user + 9) #define SCM_OBJ_CLASS_REDEF(x) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (x) [scm_si_redefined])) #define SCM_INST(x) SCM_STRUCT_DATA (x) @@ -120,8 +103,6 @@ #define SCM_SLOT(x, i) (SCM_STRUCT_SLOT_REF (x, i)) #define SCM_SET_SLOT(x, i, v) (SCM_STRUCT_SLOT_SET (x, i, v)) -#define SCM_INSTANCE_HASH(c, i) (SCM_INST (c) [scm_si_hashsets + (i)]) -#define SCM_SET_HASHSET(c, i, h) (SCM_INST (c) [scm_si_hashsets + (i)] = (h)) #define SCM_SUBCLASSP(c1, c2) (scm_is_true (scm_c_memq (c2, SCM_SLOT (c1, scm_si_cpl)))) #define SCM_IS_A_P(x, c) \ diff --git a/module/oop/goops.scm b/module/oop/goops.scm index bac9600e3..70edcfeb1 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -226,14 +226,6 @@ (specialized-slot reserved-0 ) (specialized-slot reserved-1 ) (unspecialized-slot redefined) - (specialized-slot h0 ) - (specialized-slot h1 ) - (specialized-slot h2 ) - (specialized-slot h3 ) - (specialized-slot h4 ) - (specialized-slot h5 ) - (specialized-slot h6 ) - (specialized-slot h7 ) (unspecialized-slot direct-supers) (unspecialized-slot direct-slots) (unspecialized-slot direct-subclasses)