develooper Front page | perl.perl5.porters | Postings from March 2006

[PATCH] Corrected value for THREAD_RET_TYPE

Thread Next
From:
Jerry D. Hedden
Date:
March 27, 2006 06:14
Subject:
[PATCH] Corrected value for THREAD_RET_TYPE
Message ID:
20060327071411.fb30e530d17747c2b054d625b8945d88.01ff120f3c.wbe@email.email.secureserver.net
diff -ur perl-current/win32/win32thread.h perl-patched/win32/win32thread.h
--- perl-current/win32/win32thread.h	2002-10-19 11:21:47.000000000 -0400
+++ perl-patched/win32/win32thread.h	2006-03-27 09:10:00.742259500 -0500
@@ -136,7 +136,11 @@
 #    define THREAD_RET_CAST(p)	((void)(thr->i.retv = (void *)(p)))
 #  endif
 #else	/* !USE_RTL_THREAD_API */
-#  define THREAD_RET_TYPE	DWORD WINAPI
+#  ifdef LPTHREAD_START_ROUTINE
+#    define THREAD_RET_TYPE         LPTHREAD_START_ROUTINE
+#  else
+#    define THREAD_RET_TYPE         DWORD WINAPI
+#  endif
 #  define THREAD_RET_CAST(p)	((DWORD)(p))
 #endif	/* !USE_RTL_THREAD_API */
 
diff -ur perl-current/wince/win32thread.h perl-patched/wince/win32thread.h
--- perl-current/wince/win32thread.h	2003-07-06 13:31:18.000000000 -0400
+++ perl-patched/wince/win32thread.h	2006-03-27 09:10:21.592864900 -0500
@@ -136,7 +136,11 @@
 #    define THREAD_RET_CAST(p)	((void)(thr->i.retv = (void *)(p)))
 #  endif
 #else	/* !USE_RTL_THREAD_API */
-#  define THREAD_RET_TYPE	DWORD WINAPI
+#  ifdef LPTHREAD_START_ROUTINE
+#    define THREAD_RET_TYPE         LPTHREAD_START_ROUTINE
+#  else
+#    define THREAD_RET_TYPE         DWORD WINAPI
+#  endif
 #  define THREAD_RET_CAST(p)	((DWORD)(p))
 #endif	/* !USE_RTL_THREAD_API */
 

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About