diff options
| author | dgp <dgp@noemail.net> | 2013-07-17 13:57:23 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2013-07-17 13:57:23 (GMT) |
| commit | 3689eb18af9cbf82a23db71c6ff3f47930e0b1c5 (patch) | |
| tree | cbdd67fd889403cf19263fd6e764e58ba8949f00 /generic/tclCompile.h | |
| parent | 9ce7a92ae04513423b68771e28aefb86c0042682 (diff) | |
| download | tcl-3689eb18af9cbf82a23db71c6ff3f47930e0b1c5.zip tcl-3689eb18af9cbf82a23db71c6ff3f47930e0b1c5.tar.gz tcl-3689eb18af9cbf82a23db71c6ff3f47930e0b1c5.tar.bz2 | |
Factor out the call to a compileProc into one place used by both ensemble
subcommand compiles and toplevel command compiles in TclCompileScript.
FossilOrigin-Name: 2c30f7e0294560e62a297c31147dc51179383dcf
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index f70f8f7..56315db 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -984,6 +984,9 @@ 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); |