Parent Directory | Revision Log | Patch
revision 1.208.2.6 by dirk, Fri Mar 1 21:12:47 2002 UTC | revision 1.208.2.7 by ossau, Tue Mar 12 20:58:23 2002 UTC | |
---|---|---|
# | Line 2684 scm_gc_unregister_roots (SCM *b, unsigne | Line 2684 scm_gc_unregister_roots (SCM *b, unsigne |
2684 | scm_gc_unregister_root (p); | scm_gc_unregister_root (p); |
2685 | } | } |
2686 | ||
2687 | int terminating; | int scm_i_terminating; |
2688 | ||
2689 | /* called on process termination. */ | /* called on process termination. */ |
2690 | #ifdef HAVE_ATEXIT | #ifdef HAVE_ATEXIT |
# | Line 2701 cleanup (int status, void *arg) | Line 2701 cleanup (int status, void *arg) |
2701 | #endif | #endif |
2702 | #endif | #endif |
2703 | { | { |
2704 | terminating = 1; | scm_i_terminating = 1; |
2705 | scm_flush_all_ports (); | scm_flush_all_ports (); |
2706 | } | } |
2707 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |