From: Artur Bergman <sky@nanisky.com>
Date: Sat, 13 Oct 2001 09:39:59 +0000 (+0000)
Subject: Set thread stack size if needed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3eb37d38bb82daea30ade18a2d6b1c77c580e6c4;p=p5sagit%2Fp5-mst-13.2.git

Set thread stack size if needed.

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

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index c0f3d45..cce263a 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -168,6 +168,11 @@ SV* Perl_thread_create(char* class, SV* init_function, SV* params) {
 #  ifdef PTHREAD_ATTR_SETDETACHSTATE
             PTHREAD_ATTR_SETDETACHSTATE(&attr, attr_joinable);
 #  endif
+#  ifdef THREAD_CREATE_NEEDS_STACK
+	    if(pthread_attr_setstacksize(&attr, THREAD_CREATE_NEEDS_STACK))
+	      croak("panic: pthread_attr_setstacksize failed");
+#  endif
+
 #ifdef OLD_PTHREADS_API
 	  pthread_create( &thread->thr, attr, Perl_thread_run, (void *)thread);
 #else