Minor fix.

[yaz-moved-to-github.git] / comstack / tcpip.c

diff --git a/comstack/tcpip.c b/comstack/tcpip.c
index 40e3d61..f65f2da 100644 (file)
--- a/comstack/tcpip.c
+++ b/comstack/tcpip.c
@@ -4,7 +4,13 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: tcpip.c,v $
- * Revision 1.22  1998-06-22 11:32:36  adam
+ * Revision 1.24  1998-06-29 07:59:17  adam
+ * Minor fix.
+ *
+ * Revision 1.23  1998/06/23 15:37:50  adam
+ * Added type cast to prevent warning.
+ *
+ * Revision 1.22  1998/06/22 11:32:36  adam
  * Added 'conditional cs_listen' feature.
  *
  * Revision 1.21  1998/05/20 09:55:32  adam
@@ -460,16 +466,17 @@ int tcpip_listen(COMSTACK h, char *raddr, int *addrlen,
         memcpy(raddr, &addr, *addrlen = sizeof(struct sockaddr_in));
     else if (addrlen)
         *addrlen = 0;
-
-#if 1
-    if (check_ip && (*check_ip)(cd, &addr.sin_addr, sizeof(addr.sin_addr),
-                               AF_INET))
+    if (check_ip && (*check_ip)(cd, (const char *) &addr.sin_addr,
+        sizeof(addr.sin_addr), AF_INET))
     {
        h->cerrno = CSDENY;
-       close (h->newfd);
+#ifdef WINDOWS
+        closesocket(h->iofile);
+#else
+        close(h->iofile);
+#endif
        return -1;
     }
-#endif
     h->state = CS_INCON;
     return 0;
 }