void ffelab_finish (void) { ffelab l; ffelab pl; for (pl = NULL, l = ffelab_list_; l != NULL; pl = l, l = l->next) if (pl != NULL) malloc_kill_ks (ffe_pool_any_unit (), pl, sizeof (*pl)); if (pl != NULL) malloc_kill_ks (ffe_pool_any_unit (), pl, sizeof (*pl)); }
void ffename_space_kill (ffenameSpace ns) { assert (ns != NULL); while (ns->first != (ffename) &ns->first) ffename_kill (ns, ns->first); malloc_kill_ks (ns->pool, ns, sizeof (*ns)); }
void ffename_kill (ffenameSpace ns, ffename n) { assert (ns != NULL); assert (n != NULL); ffelex_token_kill (n->t); n->next->previous = n->previous; n->previous->next = n->next; malloc_kill_ks (ns->pool, n, sizeof (*n)); }