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

Diff of /sml/branches/SMLNJ/src/runtime/c-libs/posix-io/fcntl_gfl.c

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 22  Line 22 
22      flag = fcntl(fd, F_GETFD);      flag = fcntl(fd, F_GETFD);
23    
24      if (flag < 0)      if (flag < 0)
25        return RaiseSysError(msp, NIL(char*));          return RAISE_SYSERR(msp, flag);
26    
27      WORD_ALLOC (msp, flags, (flag & (~O_ACCMODE)));      WORD_ALLOC (msp, flags, (flag & (~O_ACCMODE)));
28      WORD_ALLOC (msp, mode, (flag & O_ACCMODE));      WORD_ALLOC (msp, mode, (flag & O_ACCMODE));

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

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