Defines | |
#define | NO_GC 0 |
#define | SLIDING_GC 1 |
#define | COPYING_GC 2 |
#define | INDIRECTION_SLIDE_GC 3 |
#define | GC_GC_HEAP 1 |
#define | GC_GC_STRINGS 2 |
#define | GC_GC_CLAUSES 4 |
#define | GC_GC_TABLED_PREDS 8 |
#define | mark_string_safe(tstr, msg) |
#define | mark_string(tstr, msg) |
#define | mark_if_string(tcell, msg) |
|
|
|
|
|
|
|
|
|
|
|
|
|
Value: do {Cell acell = (tcell); \ if (isstring(acell)) \ mark_string(string_val(acell),msg); \ } while(0) |
|
Value: do {char *str = (tstr); \ if (str && string_find_safe(str) == str) { \ Integer *pptr = ((Integer *)(str))-1; \ if (!( *(pptr) & 7)) *(pptr) |= 1; \ } else if (str) \ printf("Not interned: %s: '%s',%p\n",msg,str,str); \ } while(0) |
|
Value: |
|
|
|
|