void free_func_chain(nasl_func* f) { if (f == NULL) return; free_func_chain(f->next_func); free_func(f); }
void free_lex_ctxt (lex_ctxt * c) { int i; #if 0 if (c->exit_flag && c->up_ctxt != NULL) ((lex_ctxt *) c->up_ctxt)->exit_flag = 1; #endif deref_cell (c->ret_val); free_array (&c->ctx_vars); for (i = 0; i < FUNC_NAME_HASH; i++) { free_func_chain (c->functions[i]); } efree (&c); }