guile/guile-core/libguile goops.h

[Marius Vollmer]

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

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

Log message:
        Renumbered slot indices. (SCM_CLASS_CLASS_LAYOUT):
        Removed vcell slot layout code.
        (scm_si_vcell): Removed.

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

Patches:
Index: guile/guile-core/libguile/goops.h
diff -u guile/guile-core/libguile/goops.h:1.19 
guile/guile-core/libguile/goops.h:1.20
--- guile/guile-core/libguile/goops.h:1.19      Thu Jun 14 12:50:43 2001
+++ guile/guile-core/libguile/goops.h   Sun Jul 29 13:46:23 2001
@@ -59,34 +59,33 @@
  * scm_class_class
  */
 
-#define SCM_CLASS_CLASS_LAYOUT 
"pruosrpwpopopwururururururururpwpwpwpwpwpwpwpwpwpwpwpw"
+#define SCM_CLASS_CLASS_LAYOUT 
"prsrpwpopopwururururururururpwpwpwpwpwpwpwpwpwpwpwpw"
 
 #define scm_si_layout            0 /* the struct layout */
-#define scm_si_vcell             1 
-#define scm_si_vtable            2 
-#define scm_si_print             3 /* the struct print closure */
-#define scm_si_proc              4
-#define scm_si_setter            5 
+#define scm_si_vtable            1 
+#define scm_si_print             2 /* the struct print closure */
+#define scm_si_proc              3
+#define scm_si_setter            4 
 
-#define scm_si_goops_fields      6
+#define scm_si_goops_fields      5
 
-/* Defined in libguile/objects.c:
-#define scm_si_redefined         6    The class to which class was redefined.
-#define scm_si_hashsets                  7
+/* Defined in libguile/objects.h:
+#define scm_si_redefined         5    The class to which class was redefined.
+#define scm_si_hashsets                  6
 */
-#define scm_si_name             15 /* a symbol */
-#define scm_si_direct_supers    16 /* (class ...) */
-#define scm_si_direct_slots     17 /* ((name . options) ...) */
-#define scm_si_direct_subclasses 18 /* (class ...) */
-#define scm_si_direct_methods   19 /* (methods ...) */
-#define scm_si_cpl              20 /* (class ...) */
-#define scm_si_slotdef_class    21 
-#define scm_si_slots            22 /* ((name . options) ...) */
-#define scm_si_name_access      23 
-#define scm_si_keyword_access   24 
-#define scm_si_nfields          25 /* an integer */
-#define scm_si_environment      26 /* The environment in which class is built  
*/
-#define SCM_N_CLASS_SLOTS       27
+#define scm_si_name             14 /* a symbol */
+#define scm_si_direct_supers    15 /* (class ...) */
+#define scm_si_direct_slots     16 /* ((name . options) ...) */
+#define scm_si_direct_subclasses 17 /* (class ...) */
+#define scm_si_direct_methods   18 /* (methods ...) */
+#define scm_si_cpl              19 /* (class ...) */
+#define scm_si_slotdef_class    20 
+#define scm_si_slots            21 /* ((name . options) ...) */
+#define scm_si_name_access      22 
+#define scm_si_keyword_access   23 
+#define scm_si_nfields          24 /* an integer */
+#define scm_si_environment      25 /* The environment in which class is built  
*/
+#define SCM_N_CLASS_SLOTS       26
 
 typedef struct scm_t_method {
   SCM generic_function;