[Scsh-checkins] CVS: scsh-0.6/scsh network1.c,1.20,1.21

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv32163

Modified Files:
        network1.c 
Log Message:
+ Added missing "unsigned" to make_addr.
+ Removed 0.5's cast to long for port number.


Index: network1.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/network1.c,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** network1.c  2001/06/21 08:22:18     1.20
--- network1.c  2001/07/07 19:32:51     1.21
***************
*** 194,198 ****
  }
  
! s48_value make_addr (long net_s_addr, int net_s_port)
  {
    s48_value result, sock_addr;
--- 194,198 ----
  }
  
! s48_value make_addr (unsigned long net_s_addr, int net_s_port)
  {
    s48_value result, sock_addr;
***************
*** 283,287 ****
      return (s48_cons (s48_enter_fixnum (cc), 
                      s48_cons (make_addr (name.sin_addr.s_addr,
!                                          htonl((u_long)ntohs(name.sin_port))),
                                S48_NULL)));
            
--- 283,287 ----
      return (s48_cons (s48_enter_fixnum (cc), 
                      s48_cons (make_addr (name.sin_addr.s_addr,
!                                          name.sin_port),
                                S48_NULL)));