diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-09 09:49:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-09 09:49:23 (GMT) |
| commit | 162004aac0ba129446958a4148b2d7c308d433b2 (patch) | |
| tree | 18779a3fd49602f0e6c1dbda4c9d0243e59c0d86 /generic/tclCompile.h | |
| parent | 435fd1ab8b987021ad8a7220a1f4fc89c3a4c872 (diff) | |
| parent | 57d6529dcc314ab996a90d55270e3dae7dc1f92e (diff) | |
| download | tcl-162004aac0ba129446958a4148b2d7c308d433b2.zip tcl-162004aac0ba129446958a4148b2d7c308d433b2.tar.gz tcl-162004aac0ba129446958a4148b2d7c308d433b2.tar.bz2 | |
merge core-8-6-branch
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 46e447f..bd7aaab 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1240,10 +1240,10 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, #define TclCheckStackDepth(depth, envPtr) \ do { \ - int dd = (depth); \ - if (dd != (envPtr)->currStackDepth) { \ + int _dd = (depth); \ + if (_dd != (envPtr)->currStackDepth) { \ Tcl_Panic("bad stack depth computations: is %i, should be %i", \ - (envPtr)->currStackDepth, dd); \ + (envPtr)->currStackDepth, _dd); \ } \ } while (0) @@ -1259,12 +1259,12 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, #define TclUpdateStackReqs(op, i, envPtr) \ do { \ - int delta = tclInstructionTable[(op)].stackEffect; \ - if (delta) { \ - if (delta == INT_MIN) { \ - delta = 1 - (i); \ + int _delta = tclInstructionTable[(op)].stackEffect; \ + if (_delta) { \ + if (_delta == INT_MIN) { \ + _delta = 1 - (i); \ } \ - TclAdjustStackDepth(delta, envPtr); \ + TclAdjustStackDepth(_delta, envPtr); \ } \ } while (0) @@ -1378,11 +1378,11 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, #define TclEmitPush(objIndex, envPtr) \ do { \ - register int objIndexCopy = (objIndex); \ - if (objIndexCopy <= 255) { \ - TclEmitInstInt1(INST_PUSH1, objIndexCopy, (envPtr)); \ + register int _objIndexCopy = (objIndex); \ + if (_objIndexCopy <= 255) { \ + TclEmitInstInt1(INST_PUSH1, _objIndexCopy, (envPtr)); \ } else { \ - TclEmitInstInt4(INST_PUSH4, objIndexCopy, (envPtr)); \ + TclEmitInstInt4(INST_PUSH4, _objIndexCopy, (envPtr)); \ } \ } while (0) |