diff options
| author | griffin <briang42@easystreet.net> | 2023-06-30 14:34:09 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-06-30 14:34:09 (GMT) |
| commit | eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e (patch) | |
| tree | dab4b59fd48a4f8fc04057e2901fe1a6603afb54 /generic/tclExecute.c | |
| parent | bd647296865ed931db4903444b182da472f91cae (diff) | |
| parent | cd82527608d6856590780a5c0cf5b6fde1dfbadf (diff) | |
| download | tcl-eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e.zip tcl-eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e.tar.gz tcl-eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2be02c6..ef3a0f9 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8985,7 +8985,7 @@ ValidatePcAndStackTop( } if (checkStack && (stackTop > stackUpperBound)) { - size_t numChars; + Tcl_Size numChars; const char *cmd = GetSrcInfoForPc(pc, codePtr, &numChars, NULL, NULL); fprintf(stderr, "\nBad stack top %" TCL_Z_MODIFIER "u at pc %" TCL_Z_MODIFIER "u in TclNRExecuteByteCode (min 0, max %" TCL_Z_MODIFIER "u)", @@ -9525,7 +9525,8 @@ EvalStatsCmd( double numInstructions, currentHeaderBytes; size_t numCurrentByteCodes, numByteCodeLits; size_t refCountSum, literalMgmtBytes, sum, decadeHigh, length; - size_t numSharedMultX, numSharedOnce, minSizeDecade, maxSizeDecade, i; + size_t numSharedMultX, numSharedOnce, minSizeDecade, maxSizeDecade; + Tcl_Size i; char *litTableStats; LiteralEntry *entryPtr; Tcl_Obj *objPtr; |