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/smlnj-sockets/getaddrfamily.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/c-libs/smlnj-sockets/getaddrfamily.c

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

revision 726, Mon Nov 6 21:41:29 2000 UTC revision 727, Mon Nov 6 21:43:36 2000 UTC
# Line 21  Line 21 
21   */   */
22  ml_val_t _ml_Sock_getaddrfamily (ml_state_t *msp, ml_val_t arg)  ml_val_t _ml_Sock_getaddrfamily (ml_state_t *msp, ml_val_t arg)
23  {  {
24      struct sockaddr *addr = PTR_MLtoC(struct sockaddr, arg);      struct sockaddr *addr = GET_SEQ_DATAPTR(struct sockaddr, arg);
25    
26      return ML_SysConst (msp, &_Sock_AddrFamily, ntohs(addr->sa_family));      return ML_SysConst (msp, &_Sock_AddrFamily, ntohs(addr->sa_family));
27    

Legend:
Removed from v.726  
changed lines
  Added in v.727

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