dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove dead code related to `scm_i_terminating'.

Browse source 
* libguile/fports.c (scm_i_terminating): Remove declaration.
  (fport_flush): Remove code conditional of `scm_i_terminating'.

* libguile/gc.c (scm_i_terminating): Remove.
This commit is contained in:
Ludovic Courtès 2010-05-28 16:50:36 +02:00
commit 65c7a8bd64
2 changed files with 1 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/fports.c
View file

@ -793,10 +793,6 @@ fport_write (SCM port, const void *data, size_t size)
} }
#undef FUNC_NAME #undef FUNC_NAME
/* becomes 1 when process is exiting: normal exception handling won't
work by this time. */
extern int scm_i_terminating;
static void static void
fport_flush (SCM port) fport_flush (SCM port)
{ {
@ -827,18 +823,7 @@ fport_flush (SCM port)
} }
pt->write_pos = pt->write_buf + remaining; pt->write_pos = pt->write_buf + remaining;
} }
if (scm_i_terminating) if (scm_gc_running_p)
{
const char *msg = "Error: could not flush file-descriptor ";
char buf[11];
full_write (2, msg, strlen (msg));
sprintf (buf, "%d\n", fp->fdes);
full_write (2, buf, strlen (buf));
count = remaining;
}
else if (scm_gc_running_p)
{ {
/* silently ignore the error. scm_error would abort if we /* silently ignore the error. scm_error would abort if we
called it now. */ called it now. */

2
libguile/gc.c
View file

@ -587,8 +587,6 @@ scm_gc_unregister_roots (SCM *b, unsigned long n)
scm_gc_unregister_root (p); scm_gc_unregister_root (p);
} }
int scm_i_terminating;