From aa68b77f6af4b4ca253e84ff63b3f600ce587a13 Mon Sep 17 00:00:00 2001 From: das Date: Fri, 13 Oct 2006 04:54:16 +0000 Subject: * unix/tclUnixThrd.c (TclpThreadGetStackSize): on Darwin, use * unix/tcl.m4: pthread_get_stacksize_np() API to get thread stack size. * unix/configure: autoconf-2.59 * unix/tclConfig.h.in: autoheader-2.59 --- ChangeLog | 7 ++++ unix/configure | 105 ++++++++++++++++++++++++++++++++++++++++++++++++++++ unix/tcl.m4 | 4 ++ unix/tclConfig.h.in | 3 ++ unix/tclUnixThrd.c | 2 + 5 files changed, 121 insertions(+) diff --git a/ChangeLog b/ChangeLog index 12eedfe..b28d376 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2006-10-13 Daniel Steffen + + * unix/tclUnixThrd.c (TclpThreadGetStackSize): on Darwin, use + * unix/tcl.m4: pthread_get_stacksize_np() API to get thread stack size. + * unix/configure: autoconf-2.59 + * unix/tclConfig.h.in: autoheader-2.59 + 2006-10-12 Miguel Sofer * generic/tclInterp.c (ApplyObjCmd): diff --git a/unix/configure b/unix/configure index 2fcb86b..2151ef6 100755 --- a/unix/configure +++ b/unix/configure @@ -5091,6 +5091,111 @@ _ACEOF fi fi fi + if test $tcl_ok = no; then + # Darwin thread stacksize API + +for ac_func in pthread_get_stacksize_np +do +as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` +echo "$as_me:$LINENO: checking for $ac_func" >&5 +echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 +if eval "test \"\${$as_ac_var+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define $ac_func to an innocuous variant, in case declares $ac_func. + For example, HP-UX 11i declares gettimeofday. */ +#define $ac_func innocuous_$ac_func + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $ac_func (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef $ac_func + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char $ac_func (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +choke me +#else +char (*f) () = $ac_func; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != $ac_func; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + eval "$as_ac_var=yes" +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +eval "$as_ac_var=no" +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 +if test `eval echo '${'$as_ac_var'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 +_ACEOF + +fi +done + + fi LIBS=$ac_saved_libs else TCL_THREADS=0 diff --git a/unix/tcl.m4 b/unix/tcl.m4 index 6f67011..a0f1a6d 100644 --- a/unix/tcl.m4 +++ b/unix/tcl.m4 @@ -707,6 +707,10 @@ AC_DEFUN([SC_ENABLE_THREADS], [ fi fi fi + if test $tcl_ok = no; then + # Darwin thread stacksize API + AC_CHECK_FUNCS(pthread_get_stacksize_np) + fi LIBS=$ac_saved_libs else TCL_THREADS=0 diff --git a/unix/tclConfig.h.in b/unix/tclConfig.h.in index e08540e..6bfdb61 100644 --- a/unix/tclConfig.h.in +++ b/unix/tclConfig.h.in @@ -154,6 +154,9 @@ /* Do we want a Linux-like thread-attribute interface? */ #undef HAVE_PTHREAD_GETATTR_NP +/* Define to 1 if you have the `pthread_get_stacksize_np' function. */ +#undef HAVE_PTHREAD_GET_STACKSIZE_NP + /* Does putenv() copy strings or incorporate them by reference? */ #undef HAVE_PUTENV_THAT_COPIES diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c index 434cbed..57795ab 100644 --- a/unix/tclUnixThrd.c +++ b/unix/tclUnixThrd.c @@ -233,6 +233,8 @@ TclpThreadGetStackSize(void) } pthread_attr_destroy(&threadAttr); return (int) stackSize; +#elif defined(HAVE_PTHREAD_GET_STACKSIZE_NP) + return (int) pthread_get_stacksize_np(pthread_self()); #else /* * Cannot determine the real stack size of this thread. The caller might -- cgit v0.12