diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-20 10:07:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-20 10:07:19 (GMT) |
| commit | b27acbe84f73b35a0b28f078eb6a758f26a57595 (patch) | |
| tree | 7c7ea7c9bbdbfbe030cf936560bcce477e3c0e78 /generic/tclExecute.c | |
| parent | 6643ceb1413079a9b7175b6c9fae4d81e0a0d40a (diff) | |
| download | tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.zip tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.tar.gz tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.tar.bz2 | |
More int/Tcl_Size backport
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 422eb19..31926a9 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -7866,8 +7866,8 @@ TEBCresume( while (auxObjList) { if ((catchTop != initCatchTop) - && (PTR2UINT(*catchTop) > - PTR2UINT(auxObjList->internalRep.twoPtrValue.ptr2))) { + && (PTR2INT(*catchTop) > + PTR2INT(auxObjList->internalRep.twoPtrValue.ptr2))) { break; } POP_TAUX_OBJ(); @@ -7948,10 +7948,10 @@ TEBCresume( } #ifdef TCL_COMPILE_DEBUG if (traceInstructions) { - fprintf(stdout, " ... found catch at %d, catchTop=%" TCL_Z_MODIFIER "u, " - "unwound to %" TCL_Z_MODIFIER "u, new pc %" TCL_Z_MODIFIER "u\n", - rangePtr->codeOffset, (size_t)(catchTop - initCatchTop - 1), - PTR2UINT(*catchTop), (size_t)rangePtr->catchOffset); + fprintf(stdout, " ... found catch at %d, catchTop=%" TCL_T_MODIFIER "d, " + "unwound to %" TCL_T_MODIFIER "d, new pc %" TCL_T_MODIFIER "d\n", + rangePtr->codeOffset, (catchTop - initCatchTop - 1), + PTR2INT(*catchTop), rangePtr->catchOffset); } #endif pc = (codePtr->codeStart + rangePtr->catchOffset); |