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/SMLNJ/src/runtime/c-libs/posix-filesys/osval.c
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/runtime/c-libs/posix-filesys/osval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 6  Line 6 
6  #include "ml-unixdep.h"  #include "ml-unixdep.h"
7  #include <unistd.h>  #include <unistd.h>
8  #include <fcntl.h>  #include <fcntl.h>
 #include <errno.h>  
9  #include <sys/stat.h>  #include <sys/stat.h>
10  #include "ml-base.h"  #include "ml-base.h"
11  #include "ml-values.h"  #include "ml-values.h"
# Line 76  Line 75 
75      if (res)      if (res)
76          return INT_CtoML(res->val);          return INT_CtoML(res->val);
77      else {      else {
78          errno = EINVAL;          return RAISE_ERROR(msp, "system constant not defined");
         return RaiseSysError(msp, NIL(char *));  
79      }      }
80    
81  } /* end of _ml_P_FileSys_osval */  } /* end of _ml_P_FileSys_osval */

Legend:
Removed from v.7  
changed lines
  Added in v.8

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