diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-06 14:40:27 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-06 14:40:27 (GMT) |
commit | 517053cc1d72cef6525a8b477a7b1cdda5439fbc (patch) | |
tree | 6fb8d9e993fc772d89d9c6f6b3e4e6986dbdb5c6 /generic/tclCompCmdsSZ.c | |
parent | c3d21eded52d256192df9f39ca7c3eda05545491 (diff) | |
parent | 665e03a336861b9001cec4f01cb7ed37177578cc (diff) | |
download | tcl-517053cc1d72cef6525a8b477a7b1cdda5439fbc.zip tcl-517053cc1d72cef6525a8b477a7b1cdda5439fbc.tar.gz tcl-517053cc1d72cef6525a8b477a7b1cdda5439fbc.tar.bz2 |
Merge 9.0
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 08508f0..d1b33c8 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2585,13 +2585,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)) { @@ -2604,7 +2604,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); } } @@ -2614,7 +2614,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; |