649 |
[Define if using pthread multithreading.]) |
[Define if using pthread multithreading.]) |
650 |
with_threads="pthreads", |
with_threads="pthreads", |
651 |
with_threads="null") |
with_threads="null") |
652 |
if test $GCC = yes; then |
|
653 |
AC_DEFINE(_THREAD_SAFE, 1, |
if test $GCC = yes; then |
654 |
[Use thread safe versions of GNU Libc functions.]) |
AC_DEFINE(_THREAD_SAFE, 1, |
655 |
fi |
[Use thread safe versions of GNU Libc functions.]) |
656 |
|
fi |
657 |
|
|
658 |
|
AC_MSG_CHECKING(if pthread_mutexattr_settype is declared) |
659 |
|
AC_CACHE_VAL(guile_cv_mutexattr_settype_declared, |
660 |
|
[AC_TRY_COMPILE([#include <pthread.h>], |
661 |
|
[int pthread_mutexattr_settype (int, int);], |
662 |
|
guile_cv_mutexattr_settype_declared=no, |
663 |
|
guile_cv_mutexattr_settype_declared=yes)]) |
664 |
|
AC_MSG_RESULT($guile_cv_mutexattr_settype_declared) |
665 |
|
if test $guile_cv_mutexattr_settype_declared = yes; then |
666 |
|
AC_DEFINE(SCM_MUTEXATTR_SETTYPE_DECLARED, 1, |
667 |
|
[Define if pthread.h declares pthread_mutexattr_settype.]) |
668 |
|
fi |
669 |
|
|
670 |
|
AC_MSG_CHECKING(how to get a fast mutex) |
671 |
|
AC_CACHE_VAL(guile_cv_have_mutex_fast, |
672 |
|
[AC_TRY_COMPILE([#include <pthread.h>], |
673 |
|
[int a = PTHREAD_MUTEX_ADAPTIVE_NP;], |
674 |
|
guile_cv_have_mutex_fast=PTHREAD_MUTEX_ADAPTIVE_NP, |
675 |
|
guile_cv_have_mutex_fast=none)]) |
676 |
|
AC_MSG_RESULT($guile_cv_have_mutex_fast) |
677 |
|
if test ! $guile_cv_have_mutex_fast = none; then |
678 |
|
AC_DEFINE_UNQUOTED(SCM_MUTEX_FAST, $guile_cv_have_mutex_fast, |
679 |
|
[The mutex kind enum for fast mutexes.]) |
680 |
|
fi |
681 |
|
|
682 |
|
AC_MSG_CHECKING(how to get a recursive mutex) |
683 |
|
AC_CACHE_VAL(guile_cv_have_mutex_recursive, |
684 |
|
[AC_TRY_COMPILE([#include <pthread.h>], |
685 |
|
[int a = PTHREAD_MUTEX_RECURSIVE_NP;], |
686 |
|
guile_cv_have_mutex_recursive=PTHREAD_MUTEX_RECURSIVE_NP) |
687 |
|
if test -z "$guile_cv_have_mutex_recursive"; then |
688 |
|
AC_TRY_COMPILE([#include <pthread.h>], |
689 |
|
[int a = PTHREAD_MUTEX_RECURSIVE;], |
690 |
|
guile_cv_have_mutex_recursive=PTHREAD_MUTEX_RECURSIVE, |
691 |
|
guile_cv_have_mutex_recursive=none) |
692 |
|
fi]) |
693 |
|
AC_MSG_RESULT($guile_cv_have_mutex_recursive) |
694 |
|
if test ! $guile_cv_have_mutex_recursive = none; then |
695 |
|
AC_DEFINE_UNQUOTED(SCM_MUTEX_RECURSIVE, $guile_cv_have_mutex_recursive, |
696 |
|
[The mutex kind enum for recursive mutexes.]) |
697 |
|
fi |
698 |
;; |
;; |
699 |
esac |
esac |
700 |
|
|