Object * gc_alloc() { Object *object; if (ff == NULL) { gc_collect_garbage(); } object = ff; ff = ff->Cons.cdr; gc_header(object)->type = 0; alloc_counter++; return object; }
Object * gc_alloc() { Object *object; static unsigned _id = 0; if (ff == NULL) { gc_collect_garbage(); } object = ff; ff = ff->Cons.cdr; gc_header(object)->type = 0; gc_header(object)->id = _id; alloc_counter++; return object; }