mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* Removed mit-threads and fsu-threads and references.

Browse source
This commit is contained in:
Dirk Herrmann 2000-05-30 15:56:55 +00:00
parent aa4bb95d6a
commit b272843227
12 changed files with 24 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
2000-05-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* acconfig.h (USE_FSU_PTHREADS, USE_MIT_PTHREADS,
USE_PCTHREADS_PTHREADS): Removed.
2000-05-01 Gary Houston <ghouston@arglist.com>
* Makefile.am: add include_HEADERS.

9
acconfig.h
View file

@ -98,15 +98,6 @@
/* Define if using cooperative multithreading. */
#undef USE_COOP_THREADS
/* Define if using "FSU" pthreads. */
#undef USE_FSU_PTHREADS
/* Define if using MIT pthreads. */
#undef USE_MIT_PTHREADS
/* Define if using PCthreads pthreads. */
#undef USE_PCTHREADS_PTHREADS
/* Define if using any sort of threads. */
#undef USE_THREADS

9
libguile/ChangeLog
View file

@ -1,3 +1,12 @@
2000-05-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* coop-threads.c.cygnus, coop-threads.h.cygnus, fsu-pthreads.h,
mit-pthreads.c, mit-pthreads.h: Deleted.
* Makefile.am (EXTRA_DIST), scmsigs.c, threads.[ch]: Drop
references to deleted files and fsu/mit thread support in
general.
2000-05-29 Dirk Herrmann <D.Herrmann@tu-bs.de>
* hooks.c (symbol_name, scm_create_hook): Restored the original

4
libguile/Makefile.am
View file

@ -123,9 +123,7 @@ check-local:
echo '(+ 1 2 3)' | GUILE_LOAD_PATH=${top_srcdir}:.. ./gh_test_repl; echo
EXTRA_DIST = ChangeLog-gh ChangeLog-scm ChangeLog-threads cpp_signal.c \
cpp_errno.c cpp_err_symbols.in cpp_sig_symbols.in cpp_cnvt.awk \
coop-threads.h.cygnus coop-threads.c.cygnus mit-pthreads.h \
mit-pthreads.c fsu-pthreads.h
cpp_errno.c cpp_err_symbols.in cpp_sig_symbols.in cpp_cnvt.awk
## FIXME: Consider using timestamp file, to avoid unnecessary rebuilds.
libpath.h: $(srcdir)/Makefile.in $(top_builddir)/config.status

0
libguile/coop-threads.c.cygnus
View file

0
libguile/coop-threads.h.cygnus
View file

0
libguile/fsu-pthreads.h
View file

0
libguile/mit-pthreads.c
View file

0
libguile/mit-pthreads.h
View file

7
libguile/scmsigs.c
View file

@ -74,13 +74,6 @@ int usleep ();
#ifdef USE_MIT_PTHREADS
#undef signal
#define signal pthread_signal
#endif
/* SIGRETTYPE is the type that signal handlers return. See <signal.h> */
#ifdef RETSIGTYPE

5
libguile/threads.c
View file

@ -52,7 +52,6 @@
threads.h
coop-defs.h
iselect.h
mit-pthreads.c
coop-threads.c
coop-threads.h
coop-defs.h*
@ -134,10 +133,6 @@ SCM_REGISTER_PROC(s_signal_condition_variable, "signal-condition-variable", 1, 0
#ifdef USE_MIT_PTHREADS
#include "mit-pthreads.c"
#endif
#ifdef USE_COOP_THREADS
#include "libguile/coop-threads.c"
#endif

27
libguile/threads.h
View file

@ -3,7 +3,7 @@
#ifndef THREADSH
#define THREADSH
/* Copyright (C) 1996, 1997, 1998, 2000 Free Software Foundation, Inc.
/* Copyright (C) 1996, 1997, 1998, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -52,19 +52,21 @@
#include "libguile/procs.h"
#include "libguile/throw.h"
/* smob tags for the thread datatypes */
extern long scm_tc16_thread;
extern long scm_tc16_mutex;
extern long scm_tc16_condvar;
#define SCM_THREADP(obj) (SCM_NIMP(obj) && (scm_tc16_thread == SCM_TYP16 (obj)))
#define SCM_THREAD_DATA(obj) ((void *) SCM_CDR (obj))
#define SCM_THREADP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_thread))
#define SCM_THREAD_DATA(x) ((void *) SCM_CELL_WORD_1 (x))
#define SCM_MUTEXP(obj) (SCM_NIMP(obj) && (scm_tc16_mutex == SCM_TYP16 (obj)))
#define SCM_MUTEX_DATA(obj) ((void *) SCM_CDR (obj))
#define SCM_MUTEXP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_mutex))
#define SCM_MUTEX_DATA(x) ((void *) SCM_CELL_WORD_1 (x))
#define SCM_CONDVARP(obj) (SCM_NIMP(obj) && (scm_tc16_condvar == SCM_TYP16 (obj)))
#define SCM_CONDVAR_DATA(obj) ((void *) SCM_CDR (obj))
#define SCM_CONDVARP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_condvar))
#define SCM_CONDVAR_DATA(x) ((void *) SCM_CELL_WORD_1 (x))
/* Initialize implementation specific details of the threads support */
void scm_threads_init (SCM_STACKITEM *);
@ -100,17 +102,6 @@ extern SCM scm_make_condition_variable (void);
extern SCM scm_wait_condition_variable (SCM cond, SCM mutex);
extern SCM scm_signal_condition_variable (SCM cond);
#if 0
/* These don't work any more. */
#ifdef USE_MIT_PTHREADS
#include "mit-pthreads.h"
#endif
#ifdef USE_FSU_PTHREADS
#include "fsu-pthreads.h"
#endif
#endif
#ifdef USE_COOP_THREADS
#include "libguile/coop-defs.h"
#endif