Parent Directory | Revision Log | Patch
revision 1.226 by dirk, Fri Mar 1 00:19:20 2002 UTC | revision 1.227 by ossau, Tue Mar 12 21:12:25 2002 UTC | |
---|---|---|
# | Line 2585 scm_gc_unregister_roots (SCM *b, unsigne | Line 2585 scm_gc_unregister_roots (SCM *b, unsigne |
2585 | scm_gc_unregister_root (p); | scm_gc_unregister_root (p); |
2586 | } | } |
2587 | ||
2588 | int terminating; | int scm_i_terminating; |
2589 | ||
2590 | /* called on process termination. */ | /* called on process termination. */ |
2591 | #ifdef HAVE_ATEXIT | #ifdef HAVE_ATEXIT |
# | Line 2602 cleanup (int status, void *arg) | Line 2602 cleanup (int status, void *arg) |
2602 | #endif | #endif |
2603 | #endif | #endif |
2604 | { | { |
2605 | terminating = 1; | scm_i_terminating = 1; |
2606 | scm_flush_all_ports (); | scm_flush_all_ports (); |
2607 | } | } |
2608 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |