github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-04 07:33:07 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
src/byteswap.c
View File

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

12
src/dsk.c
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>
#else
#ifdef AIX
#if !defined(AIXPS2)
#ifdef LINUX
#include <sys/vfs.h>
#else
#include <sys/statfs.h>
#endif
#endif /* AIXPS2 */
#endif /* AIX */
#endif /* MACOSX | FREEBSD */
@@ -2289,12 +2287,9 @@ LispPTR COM_getfreeblock(register LispPTR *args)
#if defined(OS5)
struct statvfs sfsbuf;
#else
#ifndef AIXPS2
#ifndef DOS
struct statfs sfsbuf;
#endif /* DOS */
#endif /* AIXPS2 */
#endif /* OS5 */
#ifdef DOS
struct diskfree_t sfsbuf;
@@ -2377,10 +2372,7 @@ LispPTR COM_getfreeblock(register LispPTR *args)
TIMEOUT(rval = statvfs(dir, &sfsbuf));
if (rval != 0) {
#else
#ifndef AIXPS2
TIMEOUT(rval = statfs(dir, &sfsbuf));
#endif /* AIXPS2 */
if (rval != 0) {
#endif
*Lisp_errno = errno;
@@ -2388,10 +2380,8 @@ LispPTR COM_getfreeblock(register LispPTR *args)
}
#if defined(SYSVONLY) || defined(OS5)
*buf = sfsbuf.f_bfree;
#elif (!defined(AIXPS2))
*buf = sfsbuf.f_bavail;
#else
*buf = 200000; /* FAKE - pretend we have 200,000 blocks free! */
*buf = sfsbuf.f_bavail;
#endif
#endif /* DOS */
return (ATOM_T);

18
src/timer.c
View File

@@ -69,10 +69,6 @@ extern int ether_fd;
#include <setjmp.h>
#ifdef AIXPS2
#include <sys/fpcontrol.h>
#endif /* AIXPS2 */
#include "lispemul.h"
#include "emlglob.h"
#include "lspglob.h"
@@ -783,18 +779,10 @@ int FP_error = 0;
void int_fp_service(int sig, int code, struct sigcontext *scp)
{
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_FLTUND_TRAP:
case FPE_FLTOVF_TRAP:
case FPE_FLTOPERR_TRAP:
#endif /* AIXPS2 */
FP_error = code;
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 */
#ifdef AIXPS2
if (sigset(SIGFPE, int_fp_service))
#elif OS5
#ifdef OS5
if (sigset(SIGFPE, int_fp_service))
#else
if (ieee_handler("set", "all", int_fp_service))
#endif /* AIXPS2 */
#endif /* OS5 */
perror("Sigvec for FPE failed");
DBPRINT(("FP interrupts enabled\n"));