diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-12 18:44:15 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-12 18:44:15 (GMT) |
| commit | 5e4c2308ce99d3d1349d0defd0585b05cd11e3fe (patch) | |
| tree | 07bde983f1188b92211e23515f8be056cb53360e /generic/tclCompCmdsSZ.c | |
| parent | 979b26b406c0679a35edba070797e94d3ecb656a (diff) | |
| download | tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.zip tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.tar.gz tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.tar.bz2 | |
Global replace: CompileBody() -> BODY().
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 0497e8a..19e636d 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) \ @@ -1499,7 +1497,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. */ |