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-io/osval.c
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/runtime/c-libs/posix-io/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 "ml-base.h"  #include "ml-base.h"
10  #include "ml-values.h"  #include "ml-values.h"
11  #include "tags.h"  #include "tags.h"
# Line 59  Line 58 
58      if (res)      if (res)
59          return INT_CtoML(res->val);          return INT_CtoML(res->val);
60      else {      else {
61          errno = EINVAL;          return RAISE_ERROR(msp, "system constant not defined");
         return RaiseSysError(msp, NIL(char *));  
62      }      }
63    
64  } /* end of _ml_P_IO_osval */  } /* end of _ml_P_IO_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