summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclDisassemble.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c
index 00b5549..9556d46 100644
--- a/generic/tclDisassemble.c
+++ b/generic/tclDisassemble.c
@@ -1107,10 +1107,12 @@ DisassembleByteCodeAsDicts(
Tcl_NewIntObj(codeOffset));
Tcl_DictObjPut(NULL, cmd, Tcl_NewStringObj("codeto", -1),
Tcl_NewIntObj(codeOffset + codeLength - 1));
+
/*
* Convert byte offsets to character offsets; important if multibyte
* characters are present in the source!
*/
+
Tcl_DictObjPut(NULL, cmd, Tcl_NewStringObj("scriptfrom", -1),
Tcl_NewIntObj(Tcl_NumUtfChars(codePtr->source,
sourceOffset)));