diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-07-15 19:40:33 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-07-15 19:40:33 (GMT) |
| commit | a1c3c7ffeed2676f47e4fdd65083b962cd90cce2 (patch) | |
| tree | 48845410ef798fd91e8246e9d6b9925f4bbe3ad8 /generic/tclCompCmdsSZ.c | |
| parent | f9146b26cc187c4e7d984fadb4c078667376ff62 (diff) | |
| parent | dc4d18c45f92e98a2a02d8f71766bb55a75b4c73 (diff) | |
| download | tcl-a1c3c7ffeed2676f47e4fdd65083b962cd90cce2.zip tcl-a1c3c7ffeed2676f47e4fdd65083b962cd90cce2.tar.gz tcl-a1c3c7ffeed2676f47e4fdd65083b962cd90cce2.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. */ |