summaryrefslogtreecommitdiffstats
path: root/generic/tclDisassemble.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-09-14 17:11:33 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-09-14 17:11:33 (GMT)
commit7a7fd48731220a5a2b1ca9f05e08a193371453b1 (patch)
tree594d7e033b20573fb99877ffe8ebdca4e97f76b8 /generic/tclDisassemble.c
parent271b5469d26171f90501fd3dc1eea1bf2bd83b08 (diff)
downloadtcl-7a7fd48731220a5a2b1ca9f05e08a193371453b1.zip
tcl-7a7fd48731220a5a2b1ca9f05e08a193371453b1.tar.gz
tcl-7a7fd48731220a5a2b1ca9f05e08a193371453b1.tar.bz2
whitespace tweak
Diffstat (limited to 'generic/tclDisassemble.c')
-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)));