diff options
author | dgp <dgp@users.sourceforge.net> | 2014-02-28 18:28:16 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-02-28 18:28:16 (GMT) |
commit | 7b66d219bab6b6710a22b4b18ca563239ffdc050 (patch) | |
tree | 7355902e5cd5ce6da908ca69cdabc67ca9de6dbb /generic | |
parent | 607601abc11ec2e965fedc5d3cb1e6d83c3a4a10 (diff) | |
download | tcl-7b66d219bab6b6710a22b4b18ca563239ffdc050.zip tcl-7b66d219bab6b6710a22b4b18ca563239ffdc050.tar.gz tcl-7b66d219bab6b6710a22b4b18ca563239ffdc050.tar.bz2 |
tidy up.dgp_read_chars
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index ec71991..a0a349f 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -5928,9 +5928,8 @@ TranslateInputEOL( if (*src == '\r') { src++; if (src >= srcMax) { -// SetFlag(statePtr, INPUT_NEED_NL); -//fprintf(stdout, "BREAK!\n"); fflush(stdout); -src--; break; + src--; + break; } else if (*src == '\n') { *dst++ = *src++; } else { @@ -5942,7 +5941,6 @@ src--; break; } srcLen = src - srcStart; dstLen = dst - dstStart; -//fprintf(stdout, "eh? %d %d\n", srcLen, dstLen); fflush(stdout); break; } case TCL_TRANSLATE_AUTO: { |