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-dgp_read_chars.zip tcl-dgp_read_chars.tar.gz tcl-dgp_read_chars.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: { |