[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile struct.h
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile struct.h |
Date: |
Sun, 29 Jul 2001 13:39:38 -0700 |
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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile struct.h,
Marius Vollmer <=