This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Attempt to fix solaris issue raised by Andy Dougherty.
authorArtur Bergman <sky@nanisky.com>
Fri, 21 Sep 2001 08:12:39 +0000 (08:12 +0000)
committerArtur Bergman <sky@nanisky.com>
Fri, 21 Sep 2001 08:12:39 +0000 (08:12 +0000)
p4raw-id: //depot/perl@12104

ext/threads/threads.h
ext/threads/threads.xs

index bf0e580..ddfe29e 100755 (executable)
@@ -47,7 +47,7 @@ shared_sv* threads;
 #ifdef WIN32
 THREAD_RET_TYPE Perl_thread_run(LPVOID arg);
 #else
-void Perl_thread_run(ithread* thread);
+void Perl_thread_run(void * arg);
 #endif
 void Perl_thread_destruct(ithread* thread);
 
index 82786e2..3e9a1f9 100755 (executable)
 
 #ifdef WIN32
 THREAD_RET_TYPE Perl_thread_run(LPVOID arg) {
-       ithread* thread = (ithread*) arg;
 #else
-void Perl_thread_run(ithread* thread) {
+void Perl_thread_run(void * arg) {
 #endif
+       ithread* thread = (ithread*) arg;
        SV* thread_tid_ptr;
        SV* thread_ptr;
        dTHXa(thread->interp);