1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-03 06:49:22 +00:00

Remove AIX on PS/2 platform support. (#50)

This commit is contained in:
Bruce Mitchener
2020-12-15 09:14:59 +07:00
committed by GitHub
parent df4f8c25eb
commit 857100a29a
6 changed files with 4 additions and 103 deletions

View File

@@ -23,7 +23,6 @@ NOPIXRECT Used to suppress pixrect/pixwin options when they're not
needed or not available. True if XWINDOW is. needed or not available. True if XWINDOW is.
AIX True if compiling for AIX AIX True if compiling for AIX
AIXPS2 True if compiling for PS/2 under AIX (our flag)
sparc True if we're compiling on a SPARC machine. sparc True if we're compiling on a SPARC machine.
mc68020 True if we're compiling on a Motorola 680x0 machine. mc68020 True if we're compiling on a Motorola 680x0 machine.
sun3 We're compiling for a Sun-3. sun3 We're compiling for a Sun-3.

View File

@@ -1,64 +0,0 @@
# Options for SunOS4, SPARC and X-Window
XFILES = $(OBJECTDIR)XClose.o \
$(OBJECTDIR)Cursor.o \
$(OBJECTDIR)XWindow.o \
$(OBJECTDIR)DoRing.o \
$(OBJECTDIR)DoScroll.o \
$(OBJECTDIR)XEvent.o \
$(OBJECTDIR)XGravity.o \
$(OBJECTDIR)XInit.o \
$(OBJECTDIR)InitXevent.o \
$(OBJECTDIR)XKbdMouse.o \
$(OBJECTDIR)LispWindow.o \
$(OBJECTDIR)LispXbitblt.o \
$(OBJECTDIR)XKeyboard.o \
$(OBJECTDIR)MakeXicon.o \
$(OBJECTDIR)OpenDisplay.o \
$(OBJECTDIR)ReadXoption.o \
$(OBJECTDIR)XReconfig.o \
$(OBJECTDIR)XScroll.o \
$(OBJECTDIR)Scrollbar.o \
$(OBJECTDIR)XCursor.o \
$(OBJECTDIR)XMouse.o \
$(OBJECTDIR)Subwindows.o \
$(OBJECTDIR)VideoColor.o \
$(OBJECTDIR)XWindowMgr.o
XVERSION = XV11R4
XFLAGS = -DXWINDOW -D$(XVERSION)
FPFLAGS =
DFLAGS = -DFSERROR -DAIX -D_BSD -DNOASM -DLOGINT -DNOPIXRECT $(XFLAGS) -DBYTESWAP -DAIXPS2 -DFLTINT -DNOETHER -DFORKCOMM
LDFLAGS = -lX11 -lc -lm -lbsd
INLINE =
BITBLTFILE =
# for the files that need to be included in byte-swapped implementations:
BYTESWAPFILES = $(OBJECTDIR)byteswapfns$(OEXT)
# This is to make the %$#@! Apollo cc happy
OEXT = .o
OPTFLAGS = -O -fstrength-reduce -fcombine-regs
DISPOPTFLAGS = -O -fstrength-reduce -fcombine-regs -finline-functions
CC = gcc
OBJECTDIR = ../$(RELEASENAME)/
default : ../$(OSARCHNAME)/lde ../$(OSARCHNAME)/ldeether
$(OBJECTDIR)xc.o : $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emulglobal.h \
$(INCDIR)address.h \
$(INCDIR)address68k.h $(INCDIR)stack.h $(INCDIR)lispglobal.h \
$(INCDIR)lisptypes.h $(INCDIR)lispmap.h $(INCDIR)cell.h \
$(INCDIR)initatoms.h $(INCDIR)gcdata.h \
$(INCDIR)arith.h $(INCDIR)stream.h $(INCDIR)dbprint.h\
$(INCDIR)tos1defs.h $(INCDIR)tosretmacro.h \
$(INCDIR)tosfuncall.h $(INCDIR)inlineC.h \
$(INCDIR)profile.h
$(CC) $(DISPRFLAGS) $(SRCDIR)xc.c $(INLINE) -o $(OBJECTDIR)xc.o

View File

@@ -228,16 +228,6 @@ typedef signed char s_char;
/********************************************************/
/* */
/********************************************************/
#ifdef AIXPS2
typedef signed char s_char;
#define GCC386
#endif
/********************************************************/ /********************************************************/
/* */ /* */
/********************************************************/ /********************************************************/

View File

@@ -65,7 +65,7 @@ unsigned int word_swap_longword(word)
#ifndef I386 #ifndef I386
#define word_swap_longword(word) (((word >> 16) & 0xffff) | ((word & 0xffff) << 16)) #define word_swap_longword(word) (((word >> 16) & 0xffff) | ((word & 0xffff) << 16))
#endif #endif
#endif /* AIXPS2 */ #endif /* !ISC */
/****************************************************************/ /****************************************************************/
/* */ /* */

View File

@@ -64,13 +64,11 @@ static char *id = "$Id: dsk.c,v 1.4 2001/12/24 01:09:01 sybalsky Exp $ Copyright
#include <sys/mount.h> #include <sys/mount.h>
#else #else
#ifdef AIX #ifdef AIX
#if !defined(AIXPS2)
#ifdef LINUX #ifdef LINUX
#include <sys/vfs.h> #include <sys/vfs.h>
#else #else
#include <sys/statfs.h> #include <sys/statfs.h>
#endif #endif
#endif /* AIXPS2 */
#endif /* AIX */ #endif /* AIX */
#endif /* MACOSX | FREEBSD */ #endif /* MACOSX | FREEBSD */
@@ -2289,12 +2287,9 @@ LispPTR COM_getfreeblock(register LispPTR *args)
#if defined(OS5) #if defined(OS5)
struct statvfs sfsbuf; struct statvfs sfsbuf;
#else #else
#ifndef AIXPS2
#ifndef DOS #ifndef DOS
struct statfs sfsbuf; struct statfs sfsbuf;
#endif /* DOS */ #endif /* DOS */
#endif /* AIXPS2 */
#endif /* OS5 */ #endif /* OS5 */
#ifdef DOS #ifdef DOS
struct diskfree_t sfsbuf; struct diskfree_t sfsbuf;
@@ -2377,10 +2372,7 @@ LispPTR COM_getfreeblock(register LispPTR *args)
TIMEOUT(rval = statvfs(dir, &sfsbuf)); TIMEOUT(rval = statvfs(dir, &sfsbuf));
if (rval != 0) { if (rval != 0) {
#else #else
#ifndef AIXPS2
TIMEOUT(rval = statfs(dir, &sfsbuf)); TIMEOUT(rval = statfs(dir, &sfsbuf));
#endif /* AIXPS2 */
if (rval != 0) { if (rval != 0) {
#endif #endif
*Lisp_errno = errno; *Lisp_errno = errno;
@@ -2388,10 +2380,8 @@ LispPTR COM_getfreeblock(register LispPTR *args)
} }
#if defined(SYSVONLY) || defined(OS5) #if defined(SYSVONLY) || defined(OS5)
*buf = sfsbuf.f_bfree; *buf = sfsbuf.f_bfree;
#elif (!defined(AIXPS2))
*buf = sfsbuf.f_bavail;
#else #else
*buf = 200000; /* FAKE - pretend we have 200,000 blocks free! */ *buf = sfsbuf.f_bavail;
#endif #endif
#endif /* DOS */ #endif /* DOS */
return (ATOM_T); return (ATOM_T);

View File

@@ -69,10 +69,6 @@ extern int ether_fd;
#include <setjmp.h> #include <setjmp.h>
#ifdef AIXPS2
#include <sys/fpcontrol.h>
#endif /* AIXPS2 */
#include "lispemul.h" #include "lispemul.h"
#include "emlglob.h" #include "emlglob.h"
#include "lspglob.h" #include "lspglob.h"
@@ -783,18 +779,10 @@ int FP_error = 0;
void int_fp_service(int sig, int code, struct sigcontext *scp) void int_fp_service(int sig, int code, struct sigcontext *scp)
{ {
switch (code) { switch (code) {
#ifdef AIXPS2
case FPM_DENORM:
case FPM_DIVIDE_0:
case FPM_UNDERFLOW:
case FPM_OVERFLOW:
case FPM_PRECISION:
#else
case FPE_FLTDIV_TRAP: case FPE_FLTDIV_TRAP:
case FPE_FLTUND_TRAP: case FPE_FLTUND_TRAP:
case FPE_FLTOVF_TRAP: case FPE_FLTOVF_TRAP:
case FPE_FLTOPERR_TRAP: case FPE_FLTOPERR_TRAP:
#endif /* AIXPS2 */
FP_error = code; FP_error = code;
break; break;
@@ -814,13 +802,11 @@ void int_fp_service(int sig, int code, struct sigcontext *scp)
} }
void int_fp_init() { /* first set up the signal handler */ void int_fp_init() { /* first set up the signal handler */
#ifdef AIXPS2 #ifdef OS5
if (sigset(SIGFPE, int_fp_service))
#elif OS5
if (sigset(SIGFPE, int_fp_service)) if (sigset(SIGFPE, int_fp_service))
#else #else
if (ieee_handler("set", "all", int_fp_service)) if (ieee_handler("set", "all", int_fp_service))
#endif /* AIXPS2 */ #endif /* OS5 */
perror("Sigvec for FPE failed"); perror("Sigvec for FPE failed");
DBPRINT(("FP interrupts enabled\n")); DBPRINT(("FP interrupts enabled\n"));