guile/guile-core/libguile struct.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/07/29 13:39:38

Modified files:
        guile-core/libguile: struct.h 

Log message:
        (scm_vtable_index_vcell): Removed.  Renumbered subsequent indices.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/struct.h.diff?cvsroot=OldCVS&tr1=1.41&tr2=1.42&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/struct.h
diff -u guile/guile-core/libguile/struct.h:1.41 
guile/guile-core/libguile/struct.h:1.42
--- guile/guile-core/libguile/struct.h:1.41     Thu Jul 26 14:40:17 2001
+++ guile/guile-core/libguile/struct.h  Sun Jul 29 13:39:38 2001
@@ -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);