diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-14 17:11:33 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-14 17:11:33 (GMT) |
| commit | 7a7fd48731220a5a2b1ca9f05e08a193371453b1 (patch) | |
| tree | 594d7e033b20573fb99877ffe8ebdca4e97f76b8 | |
| parent | 271b5469d26171f90501fd3dc1eea1bf2bd83b08 (diff) | |
| download | tcl-7a7fd48731220a5a2b1ca9f05e08a193371453b1.zip tcl-7a7fd48731220a5a2b1ca9f05e08a193371453b1.tar.gz tcl-7a7fd48731220a5a2b1ca9f05e08a193371453b1.tar.bz2 | |
whitespace tweak
| -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))); |