diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2010-10-20 20:52:26 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2010-10-20 20:52:26 (GMT) |
| commit | e2b1415b27c47fed243c2c335fb46306497f4020 (patch) | |
| tree | 84c8b9df46479aa446214b23882ada73c2296ccb /generic/tclCompile.h | |
| parent | af0efce59e0440d75633b2dac8ab9ecd39806a30 (diff) | |
| download | tcl-e2b1415b27c47fed243c2c335fb46306497f4020.zip tcl-e2b1415b27c47fed243c2c335fb46306497f4020.tar.gz tcl-e2b1415b27c47fed243c2c335fb46306497f4020.tar.bz2 | |
[Patch 2995655] Report inner contexts in [info errorstack]
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index e6b0411..0df13d9 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.127 2010/09/27 19:42:38 msofer Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.128 2010/10/20 20:52:28 ferrieux Exp $ */ #ifndef _TCLCOMPILATION @@ -975,6 +975,14 @@ MODULE_SCOPE void TclVerifyLocalLiteralTable(CompileEnv *envPtr); #endif MODULE_SCOPE int TclWordKnownAtCompileTime(Tcl_Token *tokenPtr, Tcl_Obj *valuePtr); +MODULE_SCOPE void TclLogCommandInfo(Tcl_Interp *interp, + const char *script, + const char *command, int length, + const unsigned char *pc, Tcl_Obj **tosPtr); +MODULE_SCOPE Tcl_Obj *TclGetInnerContext(Tcl_Interp *interp, + const unsigned char *pc, Tcl_Obj **tosPtr); +MODULE_SCOPE Tcl_Obj *TclNewInstNameObj(unsigned char inst); + /* *---------------------------------------------------------------- |