mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 02:31:23 -07:00
Code Issues Projects Releases Wiki Activity

(sys_close): Handle Sunos 4.1 bug in close errno value.

Browse source 
(init_system_name): Add cast in init for fqdn.
This commit is contained in:
Karl Heuer 1995-07-17 22:27:13 +00:00
parent a03a26dbdf
commit fe111dafb1
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/sysdep.c
View file

@ -2170,7 +2170,7 @@ init_system_name ()
}
if (hp)
{
char *fqdn = hp->h_name;
char *fqdn = (char *) hp->h_name;
char *p;
if (!index (fqdn, '.'))
@ -2884,10 +2884,19 @@ sys_open (path, oflag, mode)
sys_close (fd)
int fd;
{
int did_retry = 0;
register int rtnval;
while ((rtnval = close (fd)) == -1
&& (errno == EINTR));
&& (errno == EINTR))
did_retry = 1;
/* If close is interrupted SunOS 4.1 may or may not have closed the
file descriptor. If it did the second close will fail with
errno = EBADF. That means we have succeeded. */
if (rtnval == -1 && did_retry && errno == EBADF)
return 0;
return rtnval;
}