Diff of /sml/branches/rt-transition/runtime/sml-basis-lib/file-io.c

Parent Directory | Revision Log | Patch

	revision 2981, Sat Apr 12 15:56:39 2008 UTC	revision 2982, Sat Apr 12 16:08:19 2008 UTC
#	Line 34	Line 34
34	if (flgs & OPEN_APPEND) flags |= O_APPEND;	if (flgs & OPEN_APPEND) flags |= O_APPEND;
35
36	fd = open (STR_MLtoC(s), flags, 0666);	fd = open (STR_MLtoC(s), flags, 0666);
	/* SayDebug("openFile(%s) = %d; flgs = %d\n", STR_MLtoC(s), fd, flgs); */
37
38	CHK_RETURN(msp, fd)	CHK_RETURN(msp, fd)
39
#	Line 167	Line 166
166	ml_val_t        vec, hdr, res;	ml_val_t        vec, hdr, res;
167	int             n;	int             n;
168
	/* SayDebug("readBinVec: iod = %d, nbytes = %d\n", fd, nbytes); */
169	if (nbytes == 0){	if (nbytes == 0){
170	OPTION_SOME (msp, res, ML_string0);	OPTION_SOME (msp, res, ML_string0);
171	return res;	return res;

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.2981   changed lines   Added in v.2982

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0