diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-26 15:30:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-26 15:30:12 (GMT) |
commit | 4a86cf8b0011b3ea785b6e92ca8ab5aa5372a707 (patch) | |
tree | b261466d664c677482fb51adb1e4fe0fe5efb2eb /generic | |
parent | d2444449ecef364e9a2cb59094941ae4be702c48 (diff) | |
download | tcl-4a86cf8b0011b3ea785b6e92ca8ab5aa5372a707.zip tcl-4a86cf8b0011b3ea785b6e92ca8ab5aa5372a707.tar.gz tcl-4a86cf8b0011b3ea785b6e92ca8ab5aa5372a707.tar.bz2 |
Since Tcl_NumUtfChars() now can return a value of more that 32 bits ....
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclDisassemble.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index 85a17b0..9cb899e 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -1194,10 +1194,10 @@ DisassembleByteCodeAsDicts( */ Tcl_DictObjPut(NULL, cmd, Tcl_NewStringObj("scriptfrom", -1), - Tcl_NewIntObj(Tcl_NumUtfChars(codePtr->source, + Tcl_NewWideIntObj(Tcl_NumUtfChars(codePtr->source, sourceOffset))); Tcl_DictObjPut(NULL, cmd, Tcl_NewStringObj("scriptto", -1), - Tcl_NewIntObj(Tcl_NumUtfChars(codePtr->source, + Tcl_NewWideIntObj(Tcl_NumUtfChars(codePtr->source, sourceOffset + sourceLength - 1))); Tcl_DictObjPut(NULL, cmd, Tcl_NewStringObj("script", -1), Tcl_NewStringObj(codePtr->source+sourceOffset, sourceLength)); |