Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/rt-transition/runtime/sml-basis-lib/file-io.c
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

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