borland-C support
authorClaus Gittinger <cg@exept.de>
Mon, 15 Jun 1998 15:36:59 +0200
changeset 656 fcd2139d83a5
parent 655 f513686ff496
child 657 d171f92f3378
borland-C support
Socket.st
--- a/Socket.st	Mon Jun 15 12:01:16 1998 +0200
+++ b/Socket.st	Mon Jun 15 15:36:59 1998 +0200
@@ -95,7 +95,12 @@
 #endif
 
 #ifdef WIN32
-# include <WINSOCK.H>
+# ifdef __BORLANDC__
+#  include <windows.h>
+# else
+#  include <WINSOCK.H>
+# endif
+
 # undef NO_SOCKET
 # define WANT__AF_INET
 
@@ -4123,5 +4128,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.107 1998-06-15 08:46:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.108 1998-06-15 13:36:59 cg Exp $'
 ! !