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

* tags.h: (SCM_GCTYPE16, SCM_GCCDR, SCM_GC[8]MARKP,

Browse source 
SCM_SETGC[8]MARK, SCM_CLRGC[8]MARK): moved from here into gc.h.
some (most) of these are probably going to be deprecated.
This commit is contained in:
Michael Livshin 2000-08-17 20:37:55 +00:00
parent 2fb8bdabd2
commit ee4413093e
1 changed files with 0 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/tags.h
View file

@ -330,20 +330,6 @@ typedef long scm_bits_t;
#define SCM_TYP16(x) (0xffff & SCM_CELL_TYPE (x))
#define SCM_TYP16S(x) (0xfeff & SCM_CELL_TYPE (x))
#define SCM_GCTYP16(x) (0xff7f & SCM_CELL_TYPE (x))
/* Testing and Changing GC Marks in Various Standard Positions
*/
#define SCM_GCCDR(x) SCM_PACK(~1L & SCM_UNPACK (SCM_CDR (x)))
#define SCM_GCMARKP(x) (1 & SCM_UNPACK (SCM_CDR (x)))
#define SCM_GC8MARKP(x) (0x80 & SCM_CELL_TYPE (x))
#define SCM_SETGCMARK(x) SCM_SETOR_CDR (x, 1)
#define SCM_CLRGCMARK(x) SCM_SETAND_CDR (x, ~1L)
#define SCM_SETGC8MARK(x) SCM_SETOR_CAR (x, 0x80)
#define SCM_CLRGC8MARK(x) SCM_SETAND_CAR (x, ~0x80L)