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

* objects.h (SCM_CLASS_FLAGS, SCM_OBJ_CLASS_FLAGS,

Browse source 
SCM_SET_CLASS_INSTANCE_SIZE), struct.h (SCM_STRUCT_VTABLE_DATA),
proc.h (SCM_CLOSCAR): SCM_ASSCM/WORD fixes.
This commit is contained in:
Mikael Djurfeldt 2000-03-11 15:10:16 +00:00
parent 9374451b7e
commit a54367e2da
3 changed files with 17 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.h
View file

@ -2,7 +2,7 @@
#ifndef STRUCTH
#define STRUCTH
/* Copyright (C) 1995, 1997, 1999 Free Software Foundation, Inc.
/* Copyright (C) 1995, 1997, 1999, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -79,7 +79,7 @@ typedef scm_sizet (*scm_struct_free_t) (SCM *vtable, SCM *data);
#define SCM_STRUCTP(X) (SCM_NIMP(X) && (SCM_TYP3(X) == scm_tc3_cons_gloc))
#define SCM_STRUCT_DATA(X) ((SCM*)(SCM_CDR(X)))
#define SCM_STRUCT_VTABLE_DATA(X) ((SCM *)(SCM_CAR(X) - 1))
#define SCM_STRUCT_VTABLE_DATA(X) ((SCM *)(SCM_ASWORD (SCM_CAR(X)) - 1))
#define SCM_STRUCT_LAYOUT(X) (SCM_STRUCT_VTABLE_DATA(X)[scm_vtable_index_layout])
#define SCM_STRUCT_VTABLE(X) (SCM_STRUCT_VTABLE_DATA(X)[scm_vtable_index_vtable])
#define SCM_STRUCT_PRINTER(X) (SCM_STRUCT_VTABLE_DATA(X)[scm_vtable_index_printer])