Lines Matching defs:cleanup
279 String *incode, *cleanup, *outarg, *argstr, *args;
294 cleanup = NewString("");
419 /* Insert cleanup code */
425 Printv(cleanup, tm, "\n", NIL);
482 /* Dump the argument cleanup code */
483 Printv(f->code, cleanup, NIL);
485 /* Look for any remaining cleanup */
501 Printv(f->code, "fail:\n", cleanup, "return TCL_ERROR;\n", NIL);
504 /* Substitute the cleanup code */
505 Replaceall(f->code, "$cleanup", cleanup);
542 Delete(cleanup);