HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0493cd8
)
* gc.h (SCM_MARKEDP, SCM_NMARKEDP): New macros.
author
Mikael Djurfeldt
<djurfeldt@nada.kth.se>
Wed, 23 Dec 1998 05:55:01 +0000
(
05:55
+0000)
committer
Mikael Djurfeldt
<djurfeldt@nada.kth.se>
Wed, 23 Dec 1998 05:55:01 +0000
(
05:55
+0000)
libguile/gc.h
patch
|
blob
|
blame
|
history
diff --git
a/libguile/gc.h
b/libguile/gc.h
index
709227d
..
05be00b
100644
(file)
--- a/
libguile/gc.h
+++ b/
libguile/gc.h
@@
-50,6
+50,13
@@
#define SCM_FREEP(x) (SCM_CAR(x)==scm_tc_free_cell)
#define SCM_NFREEP(x) (!SCM_FREEP(x))
+/* 1. This shouldn't be used on immediates.
+ 2. It thinks that subrs are always unmarked (harmless). */
+#define SCM_MARKEDP(x) ((SCM_CAR(x) & 5) == 5 \
+ ? SCM_GC8MARKP(x) \
+ : SCM_GCMARKP(x))
+#define SCM_NMARKEDP(x) (!SCM_MARKEDP(x))
+
extern struct scm_heap_seg_data *scm_heap_table;
extern int scm_n_heap_segs;
extern int scm_take_stdin;