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

* struct.c, struct.h: Replace 4 procedure slots with one.

Browse source 
(scm_struct_i_procedure): Replaces scm_struct_i_procedure.
This commit is contained in:
Mikael Djurfeldt 1999-08-29 03:27:55 +00:00
parent 4c6fe5fca5
commit 2c53acd5c3
2 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/struct.c
View file

@ -391,10 +391,7 @@ scm_make_struct (vtable, tail_array_size, init)
data = scm_alloc_struct (basic_size + tail_elts, data = scm_alloc_struct (basic_size + tail_elts,
scm_struct_entity_n_extra_words, scm_struct_entity_n_extra_words,
"make-struct"); "make-struct");
data[scm_struct_i_proc + 0] = SCM_BOOL_F; data[scm_struct_i_procedure] = SCM_BOOL_F;
data[scm_struct_i_proc + 1] = SCM_BOOL_F;
data[scm_struct_i_proc + 2] = SCM_BOOL_F;
data[scm_struct_i_proc + 3] = SCM_BOOL_F;
data[scm_struct_i_setter] = SCM_BOOL_F; data[scm_struct_i_setter] = SCM_BOOL_F;
} }
else else

6
libguile/struct.h
View file

@ -51,11 +51,11 @@
/* Number of words with negative index */ /* Number of words with negative index */
#define scm_struct_n_extra_words 4 #define scm_struct_n_extra_words 4
#define scm_struct_entity_n_extra_words 9 #define scm_struct_entity_n_extra_words 6
/* These are how the initial words of a vtable are allocated. */ /* These are how the initial words of a vtable are allocated. */
#define scm_struct_i_setter -9 /* Setter */ #define scm_struct_i_setter -6 /* Setter */
#define scm_struct_i_proc -8 /* Optional procedure slots */ #define scm_struct_i_procedure -5 /* Optional procedure slot */
#define scm_struct_i_free -4 /* Destructor */ #define scm_struct_i_free -4 /* Destructor */
#define scm_struct_i_ptr -3 /* Start of block (see alloc_struct) */ #define scm_struct_i_ptr -3 /* Start of block (see alloc_struct) */
#define scm_struct_i_n_words -2 /* How many words allocated to this struct? */ #define scm_struct_i_n_words -2 /* How many words allocated to this struct? */