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/tclCompile.h | |
| parent | 979b26b406c0679a35edba070797e94d3ecb656a (diff) | |
| download | tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.zip tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.tar.gz tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.tar.bz2 | |
Global replace: CompileBody() -> BODY().
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index a4ebd96..cf8475d 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1407,16 +1407,16 @@ MODULE_SCOPE Tcl_Obj *TclNewInstNameObj(unsigned char inst); #define TclMax(i, j) ((((int) i) > ((int) j))? (i) : (j)) /* - * Convenience macro for use when compiling bodies of commands. The ANSI C - * "prototype" for this macro is: + * Convenience macros for use when compiling bodies of commands. The ANSI C + * "prototype" for these macros are: * - * static void CompileBody(CompileEnv *envPtr, Tcl_Token *tokenPtr, - * Tcl_Interp *interp); + * static void BODY(Tcl_Token *tokenPtr, int word); */ -#define CompileBody(envPtr, tokenPtr, interp) \ - TclCompileCmdWord((interp), (tokenPtr)+1, (tokenPtr)->numComponents, \ - (envPtr)) +#define BODY(tokenPtr, word) \ + SetLineInformation((word)); \ + TclCompileCmdWord(interp, (tokenPtr)+1, (tokenPtr)->numComponents, \ + envPtr) /* * Convenience macro for use when compiling tokens to be pushed. The ANSI C |