Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cd ../libbasic2
authorclaus
Thu, 03 Aug 1995 05:24:53 +0200
changeset 372 63f6b3823c29
parent 371 78ad1d4a0082
child 373 00599575a949
cd ../libbasic2
ExtStream.st file | annotate | diff | comparison | revisions
ExternalStream.st file | annotate | diff | comparison | revisions 
--- a/ExtStream.st	Thu Aug 03 03:25:35 1995 +0200
+++ b/ExtStream.st	Thu Aug 03 05:24:53 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.43 1995-08-03 01:15:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.44 1995-08-03 03:24:53 claus Exp $
 '!
 
 !ExternalStream primitiveDefinitions!
@@ -86,7 +86,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.43 1995-08-03 01:15:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.44 1995-08-03 03:24:53 claus Exp $
 "
 !
 
@@ -2210,7 +2210,7 @@
 		    }
 #ifndef OLD
 		    if (_INST(buffered) == false) {
-			fflush(f);
+			if (fflush(f) == EOF) goto end;
 		    }
 #endif
 		    if (cnt == 1) {
@@ -2222,6 +2222,7 @@
 			RETURN ( self );
 		    }
 		}
+end:
 		__END_INTERRUPTABLE__
 		_INST(lastErrorNumber) = __MKSMALLINT(errno);
 	    }
--- a/ExternalStream.st	Thu Aug 03 03:25:35 1995 +0200
+++ b/ExternalStream.st	Thu Aug 03 05:24:53 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.43 1995-08-03 01:15:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.44 1995-08-03 03:24:53 claus Exp $
 '!
 
 !ExternalStream primitiveDefinitions!
@@ -86,7 +86,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.43 1995-08-03 01:15:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.44 1995-08-03 03:24:53 claus Exp $
 "
 !
 
@@ -2210,7 +2210,7 @@
 		    }
 #ifndef OLD
 		    if (_INST(buffered) == false) {
-			fflush(f);
+			if (fflush(f) == EOF) goto end;
 		    }
 #endif
 		    if (cnt == 1) {
@@ -2222,6 +2222,7 @@
 			RETURN ( self );
 		    }
 		}
+end:
 		__END_INTERRUPTABLE__
 		_INST(lastErrorNumber) = __MKSMALLINT(errno);
 	    }
hg/stx-libbasic