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

* objects.h (SCM_CLASSF_GOOPS_VALID): Added.

Browse source 
(scm_si_redfined, scm_si_hashsets): Moved.
This commit is contained in:
Mikael Djurfeldt 1999-08-04 11:28:20 +00:00
parent 7151229df3
commit f057455746
1 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/objects.h
View file

@ -175,12 +175,23 @@ struct scm_metaclass_operator {
*/
/* Internal representation of Goops objects. */
#define SCM_CLASSF_GOOPS (0x10 << 24)
#define scm_si_redefined 18
#define scm_si_hashsets 20
#define SCM_CLASSF_GOOPS_VALID (0x080 << 20)
#define SCM_CLASSF_GOOPS (0x100 << 20)
#define scm_si_redefined 9
#define scm_si_hashsets 10
#define SCM_CLASS_OF(x) SCM_STRUCT_VTABLE (x)
#define SCM_OBJ_CLASS_REDEF(x) (SCM_STRUCT_VTABLE_DATA(x)[scm_si_redefined])
typedef struct scm_effective_slot_definition {
SCM name;
long location;
SCM init_value;
SCM (*get) (SCM obj, SCM slotdef);
SCM (*set) (SCM obj, SCM slotdef, SCM value);
} scm_effective_slot_definition;
#define SCM_ESLOTDEF(x) ((scm_effective_slot_definition *) SCM_CDR (x))
/* Port classes */
#define SCM_IN_PCLASS_INDEX 0x000
#define SCM_OUT_PCLASS_INDEX 0x100