mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

Handle thread package "coop-pthread" with alias "copt" and define

Browse source 
USE_COPT_THREADS when it is selected.  Always define GUILE_ISELECT.
This commit is contained in:
Marius Vollmer 2002-10-27 20:28:52 +00:00
parent bb0f37e78f
commit 18306183b5
1 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

22
configure.in
View file

@ -646,6 +646,9 @@ case "$with_threads" in
"no" | "null") "no" | "null")
with_threads=null with_threads=null
;; ;;
"coop-pthreads" | "copt" )
with_threads="coop-pthreads"
;;
* ) * )
AC_MSG_ERROR(invalid value for --with-threads: $with_threads) AC_MSG_ERROR(invalid value for --with-threads: $with_threads)
;; ;;
@ -661,8 +664,8 @@ case "${with_threads}" in
## correctly. In that case, we fall back on null-threads. ## correctly. In that case, we fall back on null-threads.
QTHREADS_CONFIGURE QTHREADS_CONFIGURE
;; ;;
"null" ) * )
THREAD_PACKAGE="null" THREAD_PACKAGE="${with_threads}"
;; ;;
esac esac
@ -672,6 +675,10 @@ esac
AC_DEFINE(USE_THREADS, 1, [Define if providing the thread API.]) AC_DEFINE(USE_THREADS, 1, [Define if providing the thread API.])
AC_LIBOBJ([threads]) AC_LIBOBJ([threads])
## Also, we always provide scm_internal_select.
AC_DEFINE(GUILE_ISELECT, 1, [Define to implement scm_internal_select.])
case "${THREAD_PACKAGE}" in case "${THREAD_PACKAGE}" in
"QT" ) "QT" )
AC_DEFINE(USE_COOP_THREADS, 1, AC_DEFINE(USE_COOP_THREADS, 1,
@ -688,17 +695,16 @@ case "${THREAD_PACKAGE}" in
AC_CHECK_LIB(pthread, main) AC_CHECK_LIB(pthread, main)
fi fi
## Bring in scm_internal_select, if appropriate.
if test $ac_cv_func_gettimeofday = yes &&
test $ac_cv_func_select = yes; then
AC_DEFINE(GUILE_ISELECT, 1, [Define to implement scm_internal_select.])
fi
;; ;;
"null" | "" ) "null" | "" )
AC_DEFINE(USE_NULL_THREADS, 1, AC_DEFINE(USE_NULL_THREADS, 1,
[Define if using one-thread 'multi'threading.]) [Define if using one-thread 'multi'threading.])
;; ;;
"coop-pthreads" )
AC_DEFINE(USE_COPT_THREADS, 1,
[Define if using coop-pthread multithreading.])
AC_CHECK_LIB(pthread, main)
;;
* ) * )
AC_MSG_ERROR(invalid value for THREAD_PACKAGE: ${THREAD_PACKAGE}) AC_MSG_ERROR(invalid value for THREAD_PACKAGE: ${THREAD_PACKAGE})
;; ;;