diff options
author | dgp <dgp@users.sourceforge.net> | 2013-12-30 16:36:12 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-12-30 16:36:12 (GMT) |
commit | c53d98725fb23b759e0fa9b4cff521758ab054ef (patch) | |
tree | fab9b12d8f685f94568b09e610301f83938c5166 /generic/tclIOGT.c | |
parent | 21068ce2b708810c474f5cc2f6c11438114ad1d6 (diff) | |
parent | 3b06f70775be10c7547c05c27e55d4ef0a65ee0c (diff) | |
download | tcl-dkf_asm_crash_20131022.zip tcl-dkf_asm_crash_20131022.tar.gz tcl-dkf_asm_crash_20131022.tar.bz2 |
merge trunkdkf_asm_crash_20131022
Diffstat (limited to 'generic/tclIOGT.c')
-rw-r--r-- | generic/tclIOGT.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index bfe6a10..825f408 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.c @@ -661,12 +661,13 @@ TransformInputProc( * had some data before we report that instead of the request to * re-try. */ + int error = Tcl_GetErrno(); - if ((Tcl_GetErrno() == EAGAIN) && (gotBytes > 0)) { + if ((error == EAGAIN) && (gotBytes > 0)) { return gotBytes; } - *errorCodePtr = Tcl_GetErrno(); + *errorCodePtr = error; return -1; } else if (read == 0) { /* |