diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-01 08:42:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-01 08:42:33 (GMT) |
| commit | 9a1c1f5e11679feeaafd9c788631fc98faf6945e (patch) | |
| tree | 4835a5e1b4e1296978b848aa35e35bf0e240dede /generic/tclCompCmdsSZ.c | |
| parent | 33eea6856d85ce80c6097dd8d3673632e57b38bf (diff) | |
| download | tcl-9a1c1f5e11679feeaafd9c788631fc98faf6945e.zip tcl-9a1c1f5e11679feeaafd9c788631fc98faf6945e.tar.gz tcl-9a1c1f5e11679feeaafd9c788631fc98faf6945e.tar.bz2 | |
Use size_t in AuxDataPrintProc
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index dc07e49..0dad757 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2586,13 +2586,13 @@ PrintJumptableInfo( ClientData clientData, Tcl_Obj *appendObj, TCL_UNUSED(ByteCode *), - unsigned int pcOffset) + size_t pcOffset) { JumptableInfo *jtPtr = (JumptableInfo *)clientData; Tcl_HashEntry *hPtr; Tcl_HashSearch search; const char *keyPtr; - int offset, i = 0; + size_t offset, i = 0; hPtr = Tcl_FirstHashEntry(&jtPtr->hashTable, &search); for (; hPtr ; hPtr = Tcl_NextHashEntry(&search)) { @@ -2605,7 +2605,7 @@ PrintJumptableInfo( Tcl_AppendToObj(appendObj, "\n\t\t", -1); } } - Tcl_AppendPrintfToObj(appendObj, "\"%s\"->pc %d", + Tcl_AppendPrintfToObj(appendObj, "\"%s\"->pc %" TCL_Z_MODIFIER "u", keyPtr, pcOffset + offset); } } @@ -2615,7 +2615,7 @@ DisassembleJumptableInfo( ClientData clientData, Tcl_Obj *dictObj, TCL_UNUSED(ByteCode *), - TCL_UNUSED(unsigned int)) + TCL_UNUSED(size_t)) { JumptableInfo *jtPtr = (JumptableInfo *)clientData; Tcl_Obj *mapping; |