diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-05 09:27:11 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-11-05 09:27:11 (GMT) |
| commit | dbfc7435e69aa3a7868caf8625a89647a2e1cd25 (patch) | |
| tree | 9410cf1b924acdd15f1f15a241f0210ce2031d85 /generic/tclCompile.h | |
| parent | f768eb3bf2d09ebf310ed07f664dc114e1c1412d (diff) | |
| parent | 6ab05e04d1c2e4d0a473c114f67d7a8f1cab4dbd (diff) | |
| download | tcl-dbfc7435e69aa3a7868caf8625a89647a2e1cd25.zip tcl-dbfc7435e69aa3a7868caf8625a89647a2e1cd25.tar.gz tcl-dbfc7435e69aa3a7868caf8625a89647a2e1cd25.tar.bz2 | |
Merge core-8-branch
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 71ceede..a5942de 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1214,7 +1214,6 @@ MODULE_SCOPE Tcl_Obj *TclNewInstNameObj(unsigned char inst); MODULE_SCOPE int TclPushProcCallFrame(void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int isLambda); - /* *---------------------------------------------------------------- @@ -1262,10 +1261,10 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, #define TclCheckStackDepth(depth, envPtr) \ do { \ - int _dd = (depth); \ - if (_dd != (envPtr)->currStackDepth) { \ - Tcl_Panic("bad stack depth computations: is %i, should be %i", \ - (envPtr)->currStackDepth, _dd); \ + size_t _dd = (depth); \ + if (_dd != (size_t)(envPtr)->currStackDepth) { \ + Tcl_Panic("bad stack depth computations: is %" TCL_Z_MODIFIER "u, should be %" TCL_Z_MODIFIER "u", \ + (size_t)(envPtr)->currStackDepth, _dd); \ } \ } while (0) @@ -1582,9 +1581,9 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, * of LOOP ranges is an interesting datum for debugging purposes, and that is * what we compute now. * - * static int ExceptionRangeStarts(CompileEnv *envPtr, int index); - * static void ExceptionRangeEnds(CompileEnv *envPtr, int index); - * static void ExceptionRangeTarget(CompileEnv *envPtr, int index, LABEL); + * static int ExceptionRangeStarts(CompileEnv *envPtr, Tcl_Size index); + * static void ExceptionRangeEnds(CompileEnv *envPtr, Tcl_Size index); + * static void ExceptionRangeTarget(CompileEnv *envPtr, Tcl_Size index, LABEL); */ #define ExceptionRangeStarts(envPtr, index) \ @@ -1643,7 +1642,7 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, #define DefineLineInformation \ ExtCmdLoc *mapPtr = envPtr->extCmdMapPtr; \ - int eclIndex = mapPtr->nuloc - 1 + Tcl_Size eclIndex = mapPtr->nuloc - 1 #define SetLineInformation(word) \ envPtr->line = mapPtr->loc[eclIndex].line[(word)]; \ |