From 3eb37d38bb82daea30ade18a2d6b1c77c580e6c4 Mon Sep 17 00:00:00 2001 From: Artur Bergman Date: Sat, 13 Oct 2001 09:39:59 +0000 Subject: [PATCH] Set thread stack size if needed. p4raw-id: //depot/perl@12424 --- ext/threads/threads.xs | 5 +++++ 1 file changed, 5 insertions(+) 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 -- 1.8.3.1