diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-07-29 20:39:38 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-07-29 20:39:38 +0000 |
commit | 7866776ca0619c0323fffb362f54bb39c6c6b5cb (patch) | |
tree | f4e3a34ff42826202556a07119f6950ca22eed9b /libguile/struct.h | |
parent | 024001c213e229f9a6ba0066184f59349559003a (diff) | |
download | guile-7866776ca0619c0323fffb362f54bb39c6c6b5cb.tar.gz |
(scm_vtable_index_vcell): Removed. Renumbered subsequent indices.
Diffstat (limited to 'libguile/struct.h')
-rw-r--r-- | libguile/struct.h | 10 |
1 files changed, 6 insertions, 4 deletions
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); |