Esempio n. 1
0
File: gc.c Progetto: 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;
}
Esempio n. 2
0
File: gc.c Progetto: 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;
}