Mercurial > hg > xemacs-beta

comparison src/process-nt.c @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 501cfd01ee6d
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
998 Lisp_Process *volatile p = XPROCESS (proc); 998 Lisp_Process *volatile p = XPROCESS (proc);
999 999
1000 /* use a reasonable-sized buffer (somewhere around the size of the 1000 /* use a reasonable-sized buffer (somewhere around the size of the
1001 stream buffer) so as to avoid inundating the stream with blocked 1001 stream buffer) so as to avoid inundating the stream with blocked
1002 data. */ 1002 data. */
1003 Bufbyte chunkbuf[128]; 1003 Bufbyte chunkbuf[512];
1004 Bytecount chunklen; 1004 Bytecount chunklen;
1005 1005
1006 while (1) 1006 while (1)
1007 { 1007 {
1008 ssize_t writeret; 1008 ssize_t writeret;
1009 1009
1010 chunklen = Lstream_read (lstream, chunkbuf, 128); 1010 chunklen = Lstream_read (lstream, chunkbuf, 512);
1011 if (chunklen <= 0) 1011 if (chunklen <= 0)
1012 break; /* perhaps should abort() if < 0? 1012 break; /* perhaps should abort() if < 0?
1013 This should never happen. */ 1013 This should never happen. */
1014 1014
1015 /* Lstream_write() will never successfully write less than the 1015 /* Lstream_write() will never successfully write less than the