diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-15 19:40:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-15 19:40:33 (GMT) |
| commit | cb0803df0cdcda3e486b73757f4522b467d90a83 (patch) | |
| tree | 48845410ef798fd91e8246e9d6b9925f4bbe3ad8 /generic/tclCompCmdsSZ.c | |
| parent | d86dc18415900f56ffc3591cf7dceb210f3b3c9d (diff) | |
| parent | a398b126a43e46efa6d6044b0bcf57a4b9385c4e (diff) | |
| download | tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.zip tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.tar.gz tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 58a5ba5..320ed57 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -85,8 +85,6 @@ const AuxDataType tclJumptableInfoType = { TclEmitInstInt1(INST_##name,(val1),envPtr);TclEmitInt4((val2),envPtr) #define OP44(name,val1,val2) \ TclEmitInstInt4(INST_##name,(val1),envPtr);TclEmitInt4((val2),envPtr) -#define BODY(token,index) \ - SetLineInformation((index));CompileBody(envPtr,(token),interp) #define PUSH(str) \ PushStringLiteral(envPtr, str) #define JUMP4(name,var) \ @@ -1287,8 +1285,7 @@ TclCompileSwitchCmd( */ /* Both methods push the value to match against onto the stack. */ - SetLineInformation(valueIndex); - CompileTokens(envPtr, valueTokenPtr, interp); + CompileWord(envPtr, valueTokenPtr, interp, valueIndex); if (mode == Switch_Exact) { IssueSwitchJumpTable(interp, envPtr, valueIndex, numWords, bodyToken, @@ -1502,7 +1499,7 @@ IssueSwitchChainedTests( } /* - * Now do the actual compilation. Note that we do not use CompileBody + * Now do the actual compilation. Note that we do not use BODY() * because we may have synthesized the tokens in a non-standard * pattern. */ |