diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-22 18:13:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-22 18:13:17 (GMT) |
| commit | a52a0147b7b9491e17b69cda754de7fe2476540f (patch) | |
| tree | 8618cf39a9aa59709a21be76dd8b16b6d1c5752a /generic/tclCompile.h | |
| parent | 3f2f704c28a23ff932110f2eab0daeb1536b7bdd (diff) | |
| download | tcl-a52a0147b7b9491e17b69cda754de7fe2476540f.zip tcl-a52a0147b7b9491e17b69cda754de7fe2476540f.tar.gz tcl-a52a0147b7b9491e17b69cda754de7fe2476540f.tar.bz2 | |
Refactor bytecode cleanup.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index d5bc86b..86a9db0 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1067,7 +1067,6 @@ MODULE_SCOPE ByteCode * TclCompileObj(Tcl_Interp *interp, Tcl_Obj *objPtr, MODULE_SCOPE int TclAttemptCompileProc(Tcl_Interp *interp, Tcl_Parse *parsePtr, int depth, Command *cmdPtr, CompileEnv *envPtr); -MODULE_SCOPE void TclCleanupByteCode(ByteCode *codePtr); MODULE_SCOPE void TclCleanupStackForBreakContinue(CompileEnv *envPtr, ExceptionAux *auxPtr); MODULE_SCOPE void TclCompileCmdWord(Tcl_Interp *interp, @@ -1157,6 +1156,8 @@ MODULE_SCOPE void TclPushVarName(Tcl_Interp *interp, Tcl_Token *varTokenPtr, CompileEnv *envPtr, int flags, int *localIndexPtr, int *isScalarPtr); +MODULE_SCOPE void TclPreserveByteCode(ByteCode *codePtr); +MODULE_SCOPE void TclReleaseByteCode(ByteCode *codePtr); MODULE_SCOPE void TclReleaseLiteral(Tcl_Interp *interp, Tcl_Obj *objPtr); MODULE_SCOPE void TclInvalidateCmdLiteral(Tcl_Interp *interp, const char *name, Namespace *nsPtr); |