mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(scm_vtable_index_vcell): Removed. Renumbered subsequent indices.

Browse source
This commit is contained in:
Marius Vollmer 2001-07-29 20:39:38 +00:00
parent 024001c213
commit 7866776ca0
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/struct.h
View file

@ -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);