Function pSingular_register_init

factory/threadsupport.cc:24–30

}

void pSingular_register_init(void (*f)()) {
  InitList *next = (InitList *) malloc(sizeof(InitList));
  next->next = inits;
  next->func = f;
  inits = next;
  (*f)();
}

void pSingular_init_var(void *s, void *t, long n) {
  memcpy(s, t, n);