mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 07:50:20 +02:00
Code Activity

* filesys.c (scm_sys_select): move SCM_ALLOW_INTS past the sreturn

Browse source 
check.
(scm_init_filesys): set "i/o-extensions" feature.
include feature.h.
This commit is contained in:
Gary Houston 1996-10-06 06:31:43 +00:00
parent 87735856c8
commit 52f4f4d6aa
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
Sun Oct 6 05:26:05 1996 Gary Houston <ghouston@actrix.gen.nz>
* filesys.c (scm_sys_select): move SCM_ALLOW_INTS past the sreturn
check.
(scm_init_filesys): set "i/o-extensions" feature.
include feature.h.
Sat Oct 5 12:22:00 1996 Jim Blandy <jimb@floss.cyclic.com> Sat Oct 5 12:22:00 1996 Jim Blandy <jimb@floss.cyclic.com>
* Makefile.in (root.o): Correct dependencies. * Makefile.in (root.o): Correct dependencies.

4
libguile/filesys.c
View file

@ -42,6 +42,7 @@
#include "_scm.h" #include "_scm.h"
#include "genio.h" #include "genio.h"
#include "smob.h" #include "smob.h"
#include "feature.h"
#include "filesys.h" #include "filesys.h"
@ -1082,9 +1083,9 @@ scm_sys_select (reads, writes, excepts, secs, msecs)
SCM_DEFER_INTS; SCM_DEFER_INTS;
sreturn = select (SELECT_SET_SIZE, sreturn = select (SELECT_SET_SIZE,
&read_set, &write_set, &except_set, time_p); &read_set, &write_set, &except_set, time_p);
SCM_ALLOW_INTS;
if (sreturn < 0) if (sreturn < 0)
scm_syserror (s_sys_select); scm_syserror (s_sys_select);
SCM_ALLOW_INTS;
return scm_listify (retrieve_select_type (&read_set, reads), return scm_listify (retrieve_select_type (&read_set, reads),
retrieve_select_type (&write_set, writes), retrieve_select_type (&write_set, writes),
retrieve_select_type (&except_set, excepts), retrieve_select_type (&except_set, excepts),
@ -1254,6 +1255,7 @@ void
scm_init_filesys () scm_init_filesys ()
#endif #endif
{ {
scm_add_feature ("i/o-extensions");
/* File type/permission bits. */ /* File type/permission bits. */
#ifdef S_IRUSR #ifdef S_IRUSR
scm_sysintern ("S_IRUSR", SCM_MAKINUM (S_IRUSR)); scm_sysintern ("S_IRUSR", SCM_MAKINUM (S_IRUSR));