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

Remove platform support for Apollo/Domain. (#30)

Browse Source
This commit is contained in:
Bruce Mitchener
2020-12-13 09:07:08 +07:00
committed by GitHub
parent 69e66470a0
commit 292809694e
15 changed files with 5 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/gcarray.c
View File

@@ -127,16 +127,7 @@ LispPTR aref1(LispPTR array, int index) {
base = actarray->base;
switch (typenumber) {
case 3: /* unsigned 8bits */
/* the following code confuses the Apollo compiler; */
/* its equivalent doesn't */
#ifndef APOLLO
retval = (GETBYTE(((char *)Addr68k_from_LADDR(base)) + index)) & 0x0ff;
#else
{
register char *eightbitbase = (char *)Addr68k_from_LADDR(base);
retval = GETBYTE(eightbitbase + index) & 0xff;
}
#endif
retval |= S_POSITIVE;
break;
case 4: /* unsigned 16bits */