diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-06-28 21:24:19 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-06-28 21:24:19 (GMT) |
| commit | 32f7f3937935614ec8b97fbf6129de88b8e7a25d (patch) | |
| tree | 5c960f835e745ff60159a4b2cb85cdc62e4b0076 /generic/tclCompile.h | |
| parent | 886ba893b55833fb102f7849f51540124df6ca58 (diff) | |
| download | tcl-32f7f3937935614ec8b97fbf6129de88b8e7a25d.zip tcl-32f7f3937935614ec8b97fbf6129de88b8e7a25d.tar.gz tcl-32f7f3937935614ec8b97fbf6129de88b8e7a25d.tar.bz2 | |
* generic/tclCompile.h: modified the macro TclEmitPush
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 8a04dac..d76d405 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.27 2002/05/30 15:03:57 msofer Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.28 2002/06/28 21:24:19 msofer Exp $ */ #ifndef _TCLCOMPILATION @@ -932,10 +932,13 @@ EXTERN void TclVerifyLocalLiteralTable _ANSI_ARGS_(( */ #define TclEmitPush(objIndex, envPtr) \ - if ((objIndex) <= 255) { \ - TclEmitInstInt1(INST_PUSH1, (objIndex), (envPtr)); \ - } else { \ - TclEmitInstInt4(INST_PUSH4, (objIndex), (envPtr)); \ + {\ + register int objIndexCopy = (objIndex);\ + if (objIndexCopy <= 255) { \ + TclEmitInstInt1(INST_PUSH1, objIndexCopy, (envPtr)); \ + } else { \ + TclEmitInstInt4(INST_PUSH4, objIndexCopy, (envPtr)); \ + }\ } /* |