sperber's strerror fix

This commit is contained in:
bdc 1995-11-01 23:00:57 +00:00
parent 6ed1d26e9d
commit 507631b689
1 changed files with 13 additions and 9 deletions

View File

@ -494,22 +494,26 @@ char *scm_gethostname(void)
int gethostname();
gethostname(hostname, MAXHOSTNAMELEN);
return hostname;
}
}
#include <errno.h>
char *errno_msg(int i)
{
/* temp hack until we figure out what to do about losing sys_errlist's */
extern
#ifdef HAVE_STRERROR
return(strerror(i));
#else
/* temp hack until we figure out what to do about losing sys_errlist's */
extern
#ifdef HAVE_CONST_SYS_ERRLIST
const
const
#endif
char *sys_errlist[];
extern int sys_nerr;
return ( i < 0 || i > sys_nerr ) ? NULL /* i.e., #f */
: (char*) sys_errlist[i];
}
char *sys_errlist[];
extern int sys_nerr;
return ( i < 0 || i > sys_nerr ) ? NULL /* i.e., #f */
: (char*) sys_errlist[i];
#endif /* !HAVE_STRERROR */
}
/* Some of fcntl()
******************