Exclude VMS extensions on non-VMS.

[perl5.git] / win32 / win32thread.h

diff --git a/win32/win32thread.h b/win32/win32thread.h
index a86ea61..c6f9309 100644 (file)
--- a/win32/win32thread.h
+++ b/win32/win32thread.h
@@ -55,7 +55,7 @@ typedef HANDLE perl_mutex;
 #define COND_INIT(c) \
     STMT_START {                                               \
        (c)->waiters = 0;                                       \
-       (c)->sem = CreateSemaphore(NULL,0,LONG_MAX,NULL);       \
+       (c)->sem = Win_CreateSemaphore(NULL,0,LONG_MAX,NULL);   \
        if ((c)->sem == NULL)                                   \
            Perl_croak_nocontext("panic: COND_INIT (%ld)",GetLastError());      \
     } STMT_END
@@ -154,16 +154,6 @@ extern __declspec(thread) void *PL_current_context;
 #define PERL_SET_CONTEXT(t)            Perl_set_context(t)
 #endif
 
-#if defined(USE_5005THREADS)
-struct perl_thread;
-int Perl_thread_create (struct perl_thread *thr, thread_func_t *fn);
-void Perl_set_thread_self (struct perl_thread *thr);
-void Perl_init_thread_intern (struct perl_thread *t);
-
-#define SET_THREAD_SELF(thr) Perl_set_thread_self(thr)
-
-#endif /* USE_5005THREADS */
-
 END_EXTERN_C
 
 #define INIT_THREADS           NOOP