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

* coop-defs.h (struct coop_t): Renamed errno --> _errno to prevent

Browse source 
errno macro expansion of this field name.  (errno is a C
preprocessor macro on some systems.)
This commit is contained in:
Mikael Djurfeldt 1997-11-30 10:36:13 +00:00
parent 756fa4f89b
commit c44bfbc946
3 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
Sun Nov 30 11:29:18 1997 Mikael Djurfeldt <mdj@kenneth>
* coop-defs.h (struct coop_t): Renamed errno --> _errno to prevent
errno macro expansion of this field name. (errno is a C
preprocessor macro on some systems.)
1997-11-29 Tim Pierce <twp@skepsis.com> 1997-11-29 Tim Pierce <twp@skepsis.com>
* iselect.c: Doc fix. * iselect.c: Doc fix.

2
libguile/coop-defs.h
View file

@ -100,7 +100,7 @@ typedef struct coop_t {
SELECT_TYPE *exceptfds; SELECT_TYPE *exceptfds;
int timeoutp; int timeoutp;
struct timeval wakeup_time; /* Time to stop sleeping */ struct timeval wakeup_time; /* Time to stop sleeping */
int errno; int _errno;
int retval; int retval;
#else #else
time_t wakeup_time; /* Time to stop sleeping */ time_t wakeup_time; /* Time to stop sleeping */

4
libguile/iselect.c
View file

@ -367,7 +367,7 @@ error_revive (void)
while ((t = coop_qget (&coop_global_sleepq)) != NULL) while ((t = coop_qget (&coop_global_sleepq)) != NULL)
{ {
t->errno = errno; t->_errno = errno;
t->retval = -1; t->retval = -1;
coop_qput (&coop_global_runq, t); coop_qput (&coop_global_runq, t);
} }
@ -581,7 +581,7 @@ scm_internal_select (int nfds,
} }
if (curr->retval == -1) if (curr->retval == -1)
errno = curr->errno; errno = curr->_errno;
return curr->retval; return curr->retval;
} }