示例#1
0
文件: gc.c 项目: carld/lispkit
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;
}
示例#2
0
文件: gc.c 项目: tmishra/lispkit
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;
}