github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-30 21:32:02 +00:00
Code Issues Projects Releases Wiki Activity

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

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

6
src/dsk.c
View File

@@ -2399,15 +2399,13 @@ LispPTR COM_getfreeblock(register LispPTR *args)
*Lisp_errno = errno;
return (NIL);
}
#if defined(RS6000)
*buf = (sfsbuf.f_bavail) * 4; /* AIX 3.1 returns no. of 4K blocks */
#elif defined(SYSVONLY) || defined(OS5)
#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! */
#endif /* RS6000 */
#endif
#endif /* DOS */
return (ATOM_T);
}