From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 21 Sep 2001 13:44:43 +0000 (+0000)
Subject: Make AIX and Tru64 compilers happy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8f2bb9a1937690accff0be585063ccc32f3c8ec;p=p5sagit%2Fp5-mst-13.2.git

Make AIX and Tru64 compilers happy.

p4raw-id: //depot/perl@12109
---

diff --git a/ext/threads/threads.h b/ext/threads/threads.h
index ddfe29e..5fef2bd 100755
--- a/ext/threads/threads.h
+++ b/ext/threads/threads.h
@@ -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);
 
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 3e9a1f9..1e6d442 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -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);
 	{