[uim commit] r5817 - trunk/uim

[codesite-noreply]

Author: iratqq
Date: Wed Feb  4 06:13:11 2009
New Revision: 5817

Modified:
   trunk/uim/socket.c

Log:
* uim/socket.c (c_getaddrinfo):
  - Check hostname_ == #f case.


Modified: trunk/uim/socket.c
==============================================================================
--- trunk/uim/socket.c  (original)
+++ trunk/uim/socket.c  Wed Feb  4 06:13:11 2009
@@ -224,7 +224,7 @@
 static uim_lisp
 c_getaddrinfo(uim_lisp hostname_, uim_lisp servname_, uim_lisp hint_)
 {
-  const char *hostname = REFER_C_STR(hostname_);
+  const char *hostname;
   char *servname = NULL;
   struct addrinfo *hints = C_PTR(hint_);
   struct addrinfo *res, *res0;
@@ -237,6 +237,10 @@
     servname = C_STR(servname_);
   }

+  if (FALSEP(hostname_))
+    hostname = NULL;
+  else
+    hostname = REFER_C_STR(hostname_);
   error = getaddrinfo(hostname, servname, hints, &res0);
   if (error) {
     const char *errstr = gai_strerror(error);