diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-07-12 18:44:15 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-07-12 18:44:15 (GMT) |
| commit | 94705f49f02e9f72f96e316df9fcda0204ec9272 (patch) | |
| tree | 07bde983f1188b92211e23515f8be056cb53360e /generic/tclCompCmdsSZ.c | |
| parent | bac5db92979ca185bba0c90095b68f1e2919a81a (diff) | |
| download | tcl-94705f49f02e9f72f96e316df9fcda0204ec9272.zip tcl-94705f49f02e9f72f96e316df9fcda0204ec9272.tar.gz tcl-94705f49f02e9f72f96e316df9fcda0204ec9272.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. */ |