/[emacs]/emacs/src/process.c
ViewVC logotype

Diff of /emacs/src/process.c

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

revision 1.388 by fx, Mon Nov 18 15:40:06 2002 UTC revision 1.389 by kfstorm, Wed Jan 8 10:38:06 2003 UTC
# Line 3066  usage: (make-network-process &rest ARGS) Line 3066  usage: (make-network-process &rest ARGS)
3066  #endif  #endif
3067        contact = Fplist_put (contact, QCaddress,        contact = Fplist_put (contact, QCaddress,
3068                              conv_sockaddr_to_lisp (lres->ai_addr, lres->ai_addrlen));                              conv_sockaddr_to_lisp (lres->ai_addr, lres->ai_addrlen));
3069    #ifdef HAVE_GETSOCKNAME
3070          if (!is_server)
3071            {
3072              struct sockaddr_in sa1;
3073              int len1 = sizeof (sa1);
3074              if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0)
3075                contact = Fplist_put (contact, QClocal,
3076                                      conv_sockaddr_to_lisp (&sa1, len1));
3077            }
3078    #endif
3079      }      }
3080    
3081  #ifdef HAVE_GETADDRINFO  #ifdef HAVE_GETADDRINFO
# Line 3548  server_accept_connection (server, channe Line 3558  server_accept_connection (server, channe
3558                          conv_sockaddr_to_lisp (&saddr.sa, len));                          conv_sockaddr_to_lisp (&saddr.sa, len));
3559  #ifdef HAVE_GETSOCKNAME  #ifdef HAVE_GETSOCKNAME
3560    len = sizeof saddr;    len = sizeof saddr;
3561    if (getsockname (channel, &saddr.sa, &len) == 0)    if (getsockname (s, &saddr.sa, &len) == 0)
3562      contact = Fplist_put (contact, QClocal,      contact = Fplist_put (contact, QClocal,
3563                            conv_sockaddr_to_lisp (&saddr.sa, len));                            conv_sockaddr_to_lisp (&saddr.sa, len));
3564  #endif  #endif

Legend:
Removed from v.1.388  
changed lines
  Added in v.1.389

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26