debugger (step backwards)

[p5sagit/p5-mst-13.2.git] / wince / wincesck.c

diff --git a/wince/wincesck.c b/wince/wincesck.c
index 64a1cab..09f5dfb 100644 (file)
--- a/wince/wincesck.c
+++ b/wince/wincesck.c
@@ -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
@@ -28,11 +28,6 @@
 #include "EXTERN.h"
 #include "perl.h"
 
-#if defined(PERL_OBJECT)
-#define NO_XSLOCKS
-#include "XSUB.h"
-#endif
-
 #include "Win32iop.h"
 #include <sys/socket.h>
 
@@ -55,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) {                           \
@@ -77,7 +64,6 @@ XCE_EXPORT struct protoent *xcegetprotobynumber(int number);
            set_socktype();                             \
        }                                               \
     } STMT_END
-#endif
 
 #define EndSockets() \
     STMT_START {                                       \
@@ -103,7 +89,7 @@ static int wsock_started = 0;
 void
 start_sockets(void) 
 {
-    dTHXo;
+    dTHX;
     unsigned short version;
     WSADATA retdata;
     int ret;
@@ -239,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;
 }
@@ -329,7 +315,7 @@ win32_getprotobynumber(int num)
 struct servent *
 win32_getservbyname(const char *name, const char *proto)
 {
-    dTHXo;    
+    dTHX;    
     struct servent *r;
 
     SOCKET_TEST(r = getservbyname(name, proto), NULL);
@@ -342,7 +328,7 @@ win32_getservbyname(const char *name, const char *proto)
 struct servent *
 win32_getservbyport(int port, const char *proto)
 {
-    dTHXo; 
+    dTHX; 
     struct servent *r;
 
     SOCKET_TEST(r = getservbyport(port, proto), NULL);
@@ -355,7 +341,7 @@ win32_getservbyport(int port, const char *proto)
 int
 win32_ioctl(int i, unsigned int u, char *data)
 {
-    dTHXo;
+    dTHX;
     u_long argp = (u_long)data;
     int retval;
 
@@ -396,28 +382,28 @@ win32_inet_addr(const char FAR *cp)
 void
 win32_endhostent() 
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("endhostent not implemented!\n");
 }
 
 void
 win32_endnetent()
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("endnetent not implemented!\n");
 }
 
 void
 win32_endprotoent()
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("endprotoent not implemented!\n");
 }
 
 void
 win32_endservent()
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("endservent not implemented!\n");
 }
 
@@ -425,7 +411,7 @@ win32_endservent()
 struct netent *
 win32_getnetent(void) 
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("getnetent not implemented!\n");
     return (struct netent *) NULL;
 }
@@ -433,7 +419,7 @@ win32_getnetent(void)
 struct netent *
 win32_getnetbyname(char *name) 
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("getnetbyname not implemented!\n");
     return (struct netent *)NULL;
 }
@@ -441,7 +427,7 @@ win32_getnetbyname(char *name)
 struct netent *
 win32_getnetbyaddr(long net, int type) 
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("getnetbyaddr not implemented!\n");
     return (struct netent *)NULL;
 }
@@ -449,7 +435,7 @@ win32_getnetbyaddr(long net, int type)
 struct protoent *
 win32_getprotoent(void) 
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("getprotoent not implemented!\n");
     return (struct protoent *) NULL;
 }
@@ -457,7 +443,7 @@ win32_getprotoent(void)
 struct servent *
 win32_getservent(void) 
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("getservent not implemented!\n");
     return (struct servent *) NULL;
 }
@@ -465,7 +451,7 @@ win32_getservent(void)
 void
 win32_sethostent(int stayopen)
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("sethostent not implemented!\n");
 }
 
@@ -473,7 +459,7 @@ win32_sethostent(int stayopen)
 void
 win32_setnetent(int stayopen)
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("setnetent not implemented!\n");
 }
 
@@ -481,7 +467,7 @@ win32_setnetent(int stayopen)
 void
 win32_setprotoent(int stayopen)
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("setprotoent not implemented!\n");
 }
 
@@ -489,7 +475,7 @@ win32_setprotoent(int stayopen)
 void
 win32_setservent(int stayopen)
 {
-    dTHXo;
+    dTHX;
     Perl_croak_nocontext("setservent not implemented!\n");
 }