diff options
author | dkf <dkf@noemail.net> | 2014-09-14 17:11:33 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2014-09-14 17:11:33 (GMT) |
commit | 4835df718b0a2c852946f9014ae00d4eeefbe6ef (patch) | |
tree | 594d7e033b20573fb99877ffe8ebdca4e97f76b8 | |
parent | 9bfb7892f8f9050c4c4e8661dc6685ff388b0ccc (diff) | |
download | tcl-4835df718b0a2c852946f9014ae00d4eeefbe6ef.zip tcl-4835df718b0a2c852946f9014ae00d4eeefbe6ef.tar.gz tcl-4835df718b0a2c852946f9014ae00d4eeefbe6ef.tar.bz2 |
whitespace tweak
FossilOrigin-Name: 61b66a0f2176d1c2869dc2f15ff0c1ad332c1f27
-rw-r--r-- | generic/tclDisassemble.c | 2 |
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))); |