1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 11:52:25 +00:00

Remove AIX RS/6000 platform support. (#46)

AIX on PS/2 will be removed separately.
This commit is contained in:
Bruce Mitchener
2020-12-15 03:13:38 +07:00
committed by GitHub
parent 605499bfc2
commit fd0e12e855
11 changed files with 6 additions and 290 deletions

View File

@@ -83,10 +83,6 @@ LispPTR CHAR_openfile(LispPTR *args)
struct stat statbuf;
char pathname[MAXPATHLEN];
#if defined(RS6000)
static int one = 1; /* Used in ioctl, etc. */
#endif
Lisp_errno = (int *)(Addr68k_from_LADDR(args[2]));
LispStringToCString(args[0], pathname, MAXPATHLEN);
@@ -107,16 +103,11 @@ LispPTR CHAR_openfile(LispPTR *args)
*Lisp_errno = errno;
return (NIL);
}
/* Prevent I/O requests from blocking -- make them error */
/* if no char is available, or there's no room in pipe. */
#ifdef RS6000
ioctl(fd, FIONBIO, &one);
fcntl(fd, F_SETOWN, getpid());
#else
/* Prevent I/O requests from blocking -- make them error */
/* if no char is available, or there's no room in pipe. */
rval = fcntl(fd, F_GETFL, 0);
rval |= FNDELAY;
rval = fcntl(fd, F_SETFL, rval);
#endif /* RS6000 */
return (GetSmallp(fd));
#endif /* DOS */