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/trunk/src/runtime/c-libs/posix-io/write.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/c-libs/posix-io/write.c

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 223, Sat Apr 17 16:27:01 1999 UTC
# Line 19  Line 19 
19  ml_val_t _ml_P_IO_write (ml_state_t *msp, ml_val_t arg)  ml_val_t _ml_P_IO_write (ml_state_t *msp, ml_val_t arg)
20  {  {
21      int         fd = REC_SELINT(arg, 0);      int         fd = REC_SELINT(arg, 0);
22      char        *data = REC_SELPTR(char, arg, 1);      ml_val_t    data = REC_SEL(arg, 1);
23      size_t      nbytes = REC_SELINT(arg, 2);      size_t      nbytes = REC_SELINT(arg, 2);
24      ssize_t     n;      ssize_t     n;
25    
26      n = write (fd, data, nbytes);      n = write (fd, STR_MLtoC(data), nbytes);
27    
28      CHK_RETURN (msp, n)      CHK_RETURN (msp, n)
29    

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

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