Changeset 9791

Timestamp:

Jun 19, 2008, 8:42:57 AM (12 years ago)

Author:

gb

Message:

Check for success correctly (per the man page) in #+linux c_gethostbyname.

File:

• branches/working-0711/ccl/level-1/l1-sockets.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-sockets.lisp

@@ -1098 +1098 @@
            (hp (* (struct :hostent)))
            (herr :signed 0))
-       (do* ((buflen 1024 (+ buflen buflen))) ()
-         (declare (fixnum buflen))
-         (%stack-block ((buf buflen))
-           (let* ((res (#_gethostbyname_r name hostent buf buflen hp herr)))
-             (declare (fixnum res))
-             (unless (eql res #$ERANGE)
-               (return
-                 (let* ((err (pref herr :signed)))
-                 (if (and (eql res 0) (eql err 0))
-                   (%get-unsigned-long
-                    (%get-ptr (pref (%get-ptr hp) :hostent.h_addr_list)))
-                   (values nil (- err))))))))))))
+      (do* ((buflen 1024 (+ buflen buflen))) ()
+        (declare (fixnum buflen))
+        (%stack-block ((buf buflen))
+          (let* ((res (#_gethostbyname_r name hostent buf buflen hp herr)))
+            (declare (fixnum res))
+            (unless (eql res #$ERANGE)
+              (return
+                (let* ((err (pref herr :signed)))
+                  (if (and (eql res 0) (not (%null-ptr-p (%get-ptr hp))))
+                    (%get-unsigned-long
+                     (%get-ptr (pref (%get-ptr hp) :hostent.h_addr_list)))
+                    (values nil (- err))))))))))))
 
 (defun _getservbyname (name proto)