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/tclExecute.c | |
| 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/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 86e1db2..f15f66e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.257 2006/12/07 23:35:29 dgp Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.258 2006/12/08 18:08:36 dgp Exp $ */ #include "tclInt.h" @@ -349,8 +349,6 @@ static Tcl_ObjType dictIteratorType = { * Declarations for local procedures to this file: */ -static int TclExecuteByteCode(Tcl_Interp *interp, - ByteCode *codePtr); #ifdef TCL_COMPILE_STATS static int EvalStatsCmd(ClientData clientData, Tcl_Interp *interp, int objc, @@ -1142,7 +1140,7 @@ TclIncrObj( *---------------------------------------------------------------------- */ -static int +int TclExecuteByteCode( Tcl_Interp *interp, /* Token for command interpreter. */ ByteCode *codePtr) /* The bytecode sequence to interpret. */ |