diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-11 08:19:56 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-11 08:19:56 (GMT) |
| commit | 8aa1ab62e1501d779f07a7c0df073f852b5dce4d (patch) | |
| tree | 0a9b5a6c169615e6e9b9dae2591a2976e0975d33 /generic/tclCompile.h | |
| parent | 7585d9a6fde12d67972b07247cb3e527ad224f51 (diff) | |
| download | tcl-8aa1ab62e1501d779f07a7c0df073f852b5dce4d.zip tcl-8aa1ab62e1501d779f07a7c0df073f852b5dce4d.tar.gz tcl-8aa1ab62e1501d779f07a7c0df073f852b5dce4d.tar.bz2 | |
Move the disassembler to its own file.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 9af4911..f28403d 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -48,6 +48,13 @@ MODULE_SCOPE int tclTraceCompile; MODULE_SCOPE int tclTraceExec; #endif + +/* + * The type of lambda expressions. Note that every lambda will *always* have a + * string representation. + */ + +MODULE_SCOPE const Tcl_ObjType tclLambdaType; /* *------------------------------------------------------------------------ @@ -1099,12 +1106,15 @@ MODULE_SCOPE void TclVerifyLocalLiteralTable(CompileEnv *envPtr); 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); + 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); + const unsigned char *pc, Tcl_Obj **tosPtr); MODULE_SCOPE Tcl_Obj *TclNewInstNameObj(unsigned char inst); +MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, + register Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[], int isLambda); /* |