diff options
author | dgp <dgp@noemail.net> | 2013-07-12 18:44:15 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-07-12 18:44:15 (GMT) |
commit | 30a27a0717240765daa4a4d5d7b575f4df8d5923 (patch) | |
tree | 53e39f614a893c79813c2a8d45e724a63c493fee /generic/tclCompile.h | |
parent | bbdfac27d5d81cc4970574596e5d2a6bd7e7f51c (diff) | |
download | tcl-30a27a0717240765daa4a4d5d7b575f4df8d5923.zip tcl-30a27a0717240765daa4a4d5d7b575f4df8d5923.tar.gz tcl-30a27a0717240765daa4a4d5d7b575f4df8d5923.tar.bz2 |
Global replace: CompileBody() -> BODY().
FossilOrigin-Name: 8338d07129e181ea7b994a92c3eb5b4e77cc46f6
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 |