--- a/ExternalStream.st Sat Jan 17 18:30:36 1998 +0100
+++ b/ExternalStream.st Mon Jan 19 16:33:41 1998 +0100
@@ -471,17 +471,17 @@
while (__offs < (cnt)) { \
CLEAR_ERRNO; \
ret = fwrite((buf)+__offs, 1, (cnt)-__offs, f);\
- if ((ret) < 0) { \
+ if ((ret) <= 0) { \
if (ferror(f)) { \
if (errno == EINTR) { \
__HANDLE_INTERRUPTS__; \
clearerr(f); \
continue; \
} \
+ break; \
} else { \
(ret) = 0; \
} \
- break; \
} \
__offs += (ret); \
} \
@@ -549,7 +549,7 @@
while (__offs < (cnt)) { \
CLEAR_ERRNO; \
ret = fwrite((buf)+__ooffs+__offs, 1, (cnt)-__offs, f); \
- if ((ret) < 0) { \
+ if ((ret) <= 0) { \
if (ferror(f)) { \
if (errno == EINTR) { \
__HANDLE_INTERRUPTS__; \
@@ -558,10 +558,10 @@
clearerr(f); \
continue; \
} \
+ break; \
} else { \
(ret) = 0; \
} \
- break; \
} \
__offs += (ret); \
} \
@@ -4207,6 +4207,6 @@
!ExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.151 1998-01-15 23:32:37 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.152 1998-01-19 15:33:41 cg Exp $'
! !
ExternalStream initialize!