5.26.2 today

[perl5.git] / NetWare / nw5thread.h

diff --git a/NetWare/nw5thread.h b/NetWare/nw5thread.h
index 930273b..b1a2534 100644 (file)
--- a/NetWare/nw5thread.h
+++ b/NetWare/nw5thread.h
@@ -1,6 +1,6 @@
 
 /*
- * Copyright © 2001 Novell, Inc. All Rights Reserved.
+ * Copyright © 2001 Novell, Inc. All Rights Reserved.
  *
  * You may distribute under the terms of either the GNU General Public
  * License or the Artistic License, as specified in the README file.
@@ -32,7 +32,7 @@ typedef long perl_key;
 // Ananth, 3 Sept 2001
 typedef struct nw_cond { long waiters; unsigned int sem; } perl_cond;
 
-#if (defined (USE_ITHREADS) || defined (USE_5005THREADS)) && defined(MPK_ON)
+#if defined (USE_ITHREADS) && defined(MPK_ON)
 #ifdef __cplusplus
 extern "C"
 {
@@ -100,7 +100,7 @@ typedef unsigned long perl_mutex;
 //For now let us just see when this happens -sgp.
 #define COND_INIT(c) \
     STMT_START {                                               \
-       ConsolePrintf("In COND_INIT\n");        \
+       /*ConsolePrintf("In COND_INIT\n");      */\
     } STMT_END
 
 /*     (c)->waiters = 0;                                       \
@@ -110,7 +110,7 @@ typedef unsigned long perl_mutex;
 
 #define COND_SIGNAL(c) \
     STMT_START {                                               \
-       ConsolePrintf("In COND_SIGNAL\n");      \
+       /*ConsolePrintf("In COND_SIGNAL\n");    */\
     } STMT_END
 /*if ((c)->waiters > 0 &&                                      \
            SignalLocalSemaphore((c)->sem) != 0)                \
@@ -118,7 +118,7 @@ typedef unsigned long perl_mutex;
 
 #define COND_BROADCAST(c) \
     STMT_START {                                               \
-       ConsolePrintf("In COND_BROADCAST\n");   \       
+       /*ConsolePrintf("In COND_BROADCAST\n"); */\
     } STMT_END
 
        /*if ((c)->waiters > 0 ) {                                      \
@@ -130,13 +130,13 @@ typedef unsigned long perl_mutex;
        }       \*/
 #define COND_WAIT(c, m) \
     STMT_START {                                               \
-       ConsolePrintf("In COND_WAIT\n");        \       
+       /*ConsolePrintf("In COND_WAIT\n");      */\
     } STMT_END
 
 
 #define COND_DESTROY(c) \
     STMT_START {                                               \
-       ConsolePrintf("In COND_DESTROY\n");     \       
+       /*ConsolePrintf("In COND_DESTROY\n");   */\
     } STMT_END
 
 /*             (c)->waiters = 0;                                       \
@@ -154,7 +154,7 @@ typedef unsigned long perl_mutex;
 #endif //#if 0
 
 //Following has to be defined CHKSGP
-#if defined(PERLDLL) && defined(USE_DECLSPEC_THREAD) && (!defined(__BORLANDC__) || defined(_DLL))
+#if defined(PERLDLL) && defined(USE_DECLSPEC_THREAD)
 extern __declspec(thread) void *PL_current_context;
 #define PERL_SET_CONTEXT(t)            (PL_current_context = t)
 #define PERL_GET_CONTEXT               PL_current_context