0.8.5.47:
[sbcl.git] / src / runtime / gc-internal.h
1 /*
2  * garbage collection - shared definitions for modules "inside" the GC system
3  */
4
5 /*
6  * This software is part of the SBCL system. See the README file for
7  * more information.
8  *
9  * This software is derived from the CMU CL system, which was
10  * written at Carnegie Mellon University and released into the
11  * public domain. The software is in the public domain and is
12  * provided with absolutely no warranty. See the COPYING and CREDITS
13  * files for more information.
14  */
15
16 #ifndef _GC_INTERNAL_H_
17 #define _GC_INTERNAL_H_
18
19 #if 1
20 #define gc_assert(ex) do { \
21         if (!(ex)) gc_abort(); \
22 } while (0)
23 #else
24 #define gc_assert(ex)
25 #endif
26 #define gc_abort() lose("GC invariant lost, file \"%s\", line %d", \
27                         __FILE__, __LINE__)
28
29 #define CEILING(x,y) (((x) + ((y) - 1)) & (~((y) - 1)))
30 #define NWORDS(x,y) (CEILING((x),(y)) / (y))
31
32 /* FIXME: Shouldn't this be defined in sbcl.h? */
33 #define FUN_RAW_ADDR_OFFSET (6*sizeof(lispobj) - FUN_POINTER_LOWTAG)
34
35 /* values for the *_alloc_* parameters */
36 #define FREE_PAGE 0
37 #define BOXED_PAGE 1
38 #define UNBOXED_PAGE 2
39 #define OPEN_REGION_PAGE 4
40
41 #define ALLOC_BOXED 0
42 #define ALLOC_UNBOXED 1
43 #define ALLOC_QUICK 1
44
45 void *gc_general_alloc(int nbytes,int unboxed_p,int quick_p);
46
47 extern int (*scavtab[256])(lispobj *where, lispobj object);
48 extern lispobj (*transother[256])(lispobj object);
49 extern int (*sizetab[256])(lispobj *where);
50
51 extern struct weak_pointer *weak_pointers; /* in gc-common.c */
52
53 extern void scavenge(lispobj *start, long n_words);
54 extern void scan_weak_pointers(void);
55
56 lispobj  copy_large_unboxed_object(lispobj object, int nwords);
57 lispobj  copy_unboxed_object(lispobj object, int nwords);
58 lispobj  copy_large_object(lispobj object, int nwords);
59 lispobj  copy_object(lispobj object, int nwords);
60
61 #ifdef LISP_FEATURE_GENCGC
62 #include "gencgc-internal.h"
63 #else
64 #include "cheneygc-internal.h"
65 #endif
66
67 #endif /* _GC_INTERNAL_H_ */