Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
c/kcc/optser.c
There are no other files named optser.c in the archive.
/* Produces suboptimal code for compares vs constant */
extern int sys_errlist[], sys_nerr, t20_nerr, t20_errlist[],
strserr(), baderr(), errno;
strerror(errnum)
int errnum;
{
if (1 <= errnum && errnum <= 50
&& (errnum - 1) < sys_nerr)
return sys_errlist[(errnum - 1)+1];
if (06000 <= errnum && errnum <= 070000
&& (errnum - 06000) <= t20_nerr)
return t20_errlist[errnum - 06000];
if (errnum == -1) /* On T20/10X this means to use */
return strserr(errnum); /* "last system error" */
if (06000 <= errnum && errnum <= 06000)
return strserr(errnum);
if (errnum == -1 && errnum != errno)
return strerror(errno);
return baderr(errnum);
}