scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ Added missing "unsigned" to make_addr. 

+ Removed 0.5's cast to long for port number.
This commit is contained in:
mainzelm 2001-07-07 19:32:51 +00:00
parent 4351c22d9f
commit 3699917f70
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/network1.c
View File

@ -193,7 +193,7 @@ s48_value scheme_accept(s48_value sockfd_tagged, s48_value family)
} }
} }
s48_value make_addr (long net_s_addr, int net_s_port) s48_value make_addr (unsigned long net_s_addr, int net_s_port)
{ {
s48_value result, sock_addr; s48_value result, sock_addr;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
@ -282,7 +282,7 @@ recv_substring(s48_value scm_sockfd, s48_value flags, s48_value buf,
if (cc >= 0) if (cc >= 0)
return (s48_cons (s48_enter_fixnum (cc), return (s48_cons (s48_enter_fixnum (cc),
s48_cons (make_addr (name.sin_addr.s_addr, s48_cons (make_addr (name.sin_addr.s_addr,
htonl((u_long)ntohs(name.sin_port))), name.sin_port),
S48_NULL))); S48_NULL)));