diff options
author | ferrieux <ferrieux@noemail.net> | 2010-10-20 20:52:26 (GMT) |
---|---|---|
committer | ferrieux <ferrieux@noemail.net> | 2010-10-20 20:52:26 (GMT) |
commit | f60ab542f84fbe95aab930a9767f3e9f9bdfb1f8 (patch) | |
tree | 84c8b9df46479aa446214b23882ada73c2296ccb /generic/tclCompile.h | |
parent | 9fe66d74b2de1290dbbe58269823461aa456d1da (diff) | |
download | tcl-f60ab542f84fbe95aab930a9767f3e9f9bdfb1f8.zip tcl-f60ab542f84fbe95aab930a9767f3e9f9bdfb1f8.tar.gz tcl-f60ab542f84fbe95aab930a9767f3e9f9bdfb1f8.tar.bz2 |
[Patch 2995655] Report inner contexts in [info errorstack]
FossilOrigin-Name: 14d357357cdf6363ddf9b3cc605f253acafb302b
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); + /* *---------------------------------------------------------------- |