This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make AIX and Tru64 compilers happy.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Sep 2001 13:44:43 +0000 (13:44 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Sep 2001 13:44:43 +0000 (13:44 +0000)
p4raw-id: //depot/perl@12109

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

index ddfe29e..5fef2bd 100755 (executable)
@@ -47,7 +47,7 @@ shared_sv* threads;
 #ifdef WIN32
 THREAD_RET_TYPE Perl_thread_run(LPVOID arg);
 #else
-void Perl_thread_run(void * arg);
+void* Perl_thread_run(void * arg);
 #endif
 void Perl_thread_destruct(ithread* thread);
 
index 3e9a1f9..1e6d442 100755 (executable)
@@ -13,7 +13,7 @@
 #ifdef WIN32
 THREAD_RET_TYPE Perl_thread_run(LPVOID arg) {
 #else
-void Perl_thread_run(void * arg) {
+void* Perl_thread_run(void * arg) {
 #endif
        ithread* thread = (ithread*) arg;
        SV* thread_tid_ptr;
@@ -74,6 +74,8 @@ void Perl_thread_run(void * arg) {
        }
 #ifdef WIN32
        return (DWORD)0;
+#else
+       return 0;
 #endif
 
 }
@@ -168,7 +170,7 @@ SV* Perl_thread_create(char* class, SV* init_function, SV* params) {
                        (LPVOID)thread, 0, &thread->thr);
 
 #else
-       pthread_create( &thread->thr, NULL, (void *) Perl_thread_run, thread);
+       pthread_create( &thread->thr, NULL, Perl_thread_run, thread);
 #endif
        MUTEX_UNLOCK(&create_mutex);    
 
@@ -288,7 +290,7 @@ BOOT:
        PL_perl_destruct_level = 2;
        threads = Perl_sharedsv_new(aTHX);
        SHAREDSvEDIT(threads);
-       ((HV*) SHAREDSvGET(threads)) = newHV();
+       SHAREDSvGET(threads) = (SV *)newHV();
        SHAREDSvRELEASE(threads);
        {