diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 09:31:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 09:31:37 (GMT) |
| commit | b89c01475a4aa977cfa56b2292504c60de9a7427 (patch) | |
| tree | 4a2fd384cf9bd128a79d1713e710adeb4174a647 /generic/tclCompile.h | |
| parent | 8f2b15e6db98e069f1a7296f7c96da79b5515aad (diff) | |
| parent | b924d89e299f95beaf3c6bd1ae4adf16aa3c38d4 (diff) | |
| download | tcl-b89c01475a4aa977cfa56b2292504c60de9a7427.zip tcl-b89c01475a4aa977cfa56b2292504c60de9a7427.tar.gz tcl-b89c01475a4aa977cfa56b2292504c60de9a7427.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 6b30f8b..5e39a21 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1217,7 +1217,7 @@ MODULE_SCOPE Tcl_Obj *TclGetInnerContext(Tcl_Interp *interp, const unsigned char *pc, Tcl_Obj **tosPtr); MODULE_SCOPE Tcl_Obj *TclNewInstNameObj(unsigned char inst); MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, - register Tcl_Interp *interp, int objc, + Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int isLambda); @@ -1405,7 +1405,7 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, #define TclEmitPush(objIndex, envPtr) \ do { \ - register int _objIndexCopy = (objIndex); \ + int _objIndexCopy = (objIndex); \ if (_objIndexCopy <= 255) { \ TclEmitInstInt1(INST_PUSH1, _objIndexCopy, (envPtr)); \ } else { \ |