diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-12-08 18:08:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-12-08 18:08:33 (GMT) |
| commit | c31a5d22b7398ccaa6b9d0e17e4865563253b0f5 (patch) | |
| tree | fb63e564b3c47e38440f42ab67e1d573b49d5a5e /generic/tclCompile.h | |
| parent | 075c0449ce2a01114dcd419a912889ce694a35cc (diff) | |
| download | tcl-c31a5d22b7398ccaa6b9d0e17e4865563253b0f5.zip tcl-c31a5d22b7398ccaa6b9d0e17e4865563253b0f5.tar.gz tcl-c31a5d22b7398ccaa6b9d0e17e4865563253b0f5.tar.bz2 | |
* generic/tclCompExpr.c: Revised implementation of TclInvertOpCmd
* generic/tclMathOp.c: to perform a bytecode compile / execute
sequence. This demonstrates a path toward avoiding mountains of
code duplication in tclMathOp.c and tclExecute.c.
* generic/tclCompile.h: Change TclExecuteByteCode() from static to
* generic/tclExecute.c: MODULE_SCOPE so all files including
tclCompile.h may call it.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index b5416cd..5dc9cd7 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -8,7 +8,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.62 2006/11/28 22:20:28 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.63 2006/12/08 18:08:35 dgp Exp $ */ #ifndef _TCLCOMPILATION @@ -804,6 +804,8 @@ MODULE_SCOPE void TclEmitForwardJump(CompileEnv *envPtr, MODULE_SCOPE ExceptionRange * TclGetExceptionRangeForPc(unsigned char *pc, int catchOnly, ByteCode* codePtr); MODULE_SCOPE void TclExpandJumpFixupArray(JumpFixupArray *fixupArrayPtr); +MODULE_SCOPE int TclExecuteByteCode(Tcl_Interp *interp, + ByteCode *codePtr); MODULE_SCOPE void TclFinalizeAuxDataTypeTable(void); MODULE_SCOPE int TclFindCompiledLocal(CONST char *name, int nameChars, int create, int flags, Proc *procPtr); |