mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* gc.c (cleanup, scm_init_storage): Use on_exit if present and

Browse source 
atexit not available.  (sunos4.1.4 needs it.)
This commit is contained in:
Mikael Djurfeldt 1999-09-02 14:51:51 +00:00
parent 6babbc74d7
commit e52ceaacf0
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/gc.c
View file

@ -1858,7 +1858,17 @@ scm_unprotect_object (obj)
int terminating; int terminating;
/* called on process termination. */ /* called on process termination. */
static void cleanup (void) #ifdef HAVE_ATEXIT
static void
cleanup (void)
#else
#ifdef HAVE_ON_EXIT
static void
cleanup (int status, void *arg)
#else
#error Dont know how to setup a cleanup handler on your system.
#endif
#endif
{ {
terminating = 1; terminating = 1;
scm_flush_all_ports (); scm_flush_all_ports ();
@ -1905,6 +1915,10 @@ scm_init_storage (scm_sizet init_heap_size)
#ifdef HAVE_ATEXIT #ifdef HAVE_ATEXIT
atexit (cleanup); atexit (cleanup);
#else
#ifdef HAVE_ON_EXIT
on_exit (cleanup, 0);
#endif
#endif #endif
scm_undefineds = scm_cons (SCM_UNDEFINED, SCM_EOL); scm_undefineds = scm_cons (SCM_UNDEFINED, SCM_EOL);