Re: [PATCH] Fix PERL_MALLOC_WRAP change for Win32
[p5sagit/p5-mst-13.2.git] / wince / wincesck.c
index beb7489..09f5dfb 100644 (file)
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 21:01:12 keuchel@w2k>
+/* Time-stamp: <01/08/01 21:01:12 keuchel@w2k> */
 
 /* wincesck.c
  *
@@ -10,7 +10,7 @@
  *    License or the Artistic License, as specified in the README file.
  */
 
-// The socket calls use fd functions from celib...
+/* The socket calls use fd functions from celib... */
 
 #define WIN32IO_IS_STDIO
 #define WIN32SCK_IS_STDSCK
@@ -50,21 +50,13 @@ XCE_EXPORT struct protoent *xcegetprotobynumber(int number);
 #define getprotobyname xcegetprotobyname
 #define getprotobynumber xcegetprotobynumber
 
-// uses fdtab...
+/* uses fdtab... */
 #include "cesocket2.h"
 
 #endif
 
 #define TO_SOCKET(X) (X)
 
-#ifdef USE_5005THREADS
-#define StartSockets() \
-    STMT_START {                                       \
-       if (!wsock_started)                             \
-           start_sockets();                            \
-       set_socktype();                         \
-    } STMT_END
-#else
 #define StartSockets() \
     STMT_START {                                       \
        if (!wsock_started) {                           \
@@ -72,7 +64,6 @@ XCE_EXPORT struct protoent *xcegetprotobynumber(int number);
            set_socktype();                             \
        }                                               \
     } STMT_END
-#endif
 
 #define EndSockets() \
     STMT_START {                                       \
@@ -234,7 +225,7 @@ win32_select(int nfds, Perl_fd_set* rd, Perl_fd_set* wr,
             Perl_fd_set* ex, const struct timeval* timeout)
 {
   StartSockets();
-  // select not yet fixed
+  /* select not yet fixed */
   errno = ENOSYS;
   return -1;
 }