From 7866776ca0619c0323fffb362f54bb39c6c6b5cb Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sun, 29 Jul 2001 20:39:38 +0000 Subject: (scm_vtable_index_vcell): Removed. Renumbered subsequent indices. --- libguile/struct.h | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'libguile/struct.h') diff --git a/libguile/struct.h b/libguile/struct.h index ed330818d..ec5ae8cff 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -62,11 +62,13 @@ #define scm_struct_i_n_words -2 /* How many words allocated to this struct? */ #define scm_struct_i_size -1 /* Instance size */ #define scm_struct_i_flags -1 /* Upper 12 bits used as flags */ + +/* These indices must correspond to required_vtable_fields in + struct.c. */ #define scm_vtable_index_layout 0 /* A symbol describing the physical arrangement of this type. */ -#define scm_vtable_index_vcell 1 /* XXX - remove this, it is unused. */ -#define scm_vtable_index_vtable 2 /* A pointer to the handle for this vtable. */ -#define scm_vtable_index_printer 3 /* A printer for this struct type. */ -#define scm_vtable_offset_user 4 /* Where do user fields start? */ +#define scm_vtable_index_vtable 1 /* A pointer to the handle for this vtable. */ +#define scm_vtable_index_printer 2 /* A printer for this struct type. */ +#define scm_vtable_offset_user 3 /* Where do user fields start? */ typedef size_t (*scm_t_struct_free) (scm_t_bits * vtable, scm_t_bits * data); -- cgit v1.2.3