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

Remove SunOS 4 version of aref_switch. (#205)

Browse Source 
When compiling for SunOS4, we would have a macro-ized version
of this function which required a slightly different call-site.

This removes all of that as it isn't used or needed.
This commit is contained in:
Bruce Mitchener
2021-01-12 08:11:48 +07:00
committed by GitHub
parent 68d7908ee6
commit fa1adadd31
4 changed files with 3 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
inc/my.h
View File

@@ -69,43 +69,6 @@
} \
}
#ifdef OS4
#define aref_switch(type, tos, baseL, index) \
{ \
LispPTR result; \
DLword *wordp; \
\
switch (type) { \
case 38: /* pointer : 32 bits */ \
return(*(((int *)Addr68k_from_LADDR(baseL)) + index)); \
case 20: /* signed : 16 bits */ \
result = (GETWORD(((DLword *)Addr68k_from_LADDR(baseL)) + index)) & 0xFFFF; \
if (result & 0x8000) return(result | S_NEGATIVE); \
else return(result | S_POSITIVE); \
case 67: /* Character : 8 bits */ \
return(S_CHARACTER | ((GETBYTE(((char *)Addr68k_from_LADDR(baseL)) + index)) & 0xFF)); \
case 22: /* signed : 32 bits */ \
result = *(((int *)Addr68k_from_LADDR(baseL)) + index); \
N_ARITH_SWITCH(result); \
case 0: /* unsigned : 1 bit per element */ \
return(S_POSITIVE | (((GETBYTE(((char *)Addr68k_from_LADDR(baseL)) + (index >> 3))) >> (7 - (index & 7))) & 1)); \
case 3: /* unsigned : 8 bits per element */ \
return(S_POSITIVE | ((GETBYTE(((char *)Addr68k_from_LADDR(baseL)) + index)) & 0xFF)); \
case 4: /* unsigned : 16 bits per element */ \
return(S_POSITIVE | ((GETWORD(((DLword *)Addr68k_from_LADDR(baseL)) + index)) & 0xFFFF)); \
case 54: /* Float : 32 bits */ \
wordp = createcell68k(TYPE_FLOATP); \
*((int *)wordp) = *(((int *)Addr68k_from_LADDR(baseL)) + index); \
return(LADDR_from_68k(wordp)); \
case 68: /* Character : 16 bits */ \
return(S_CHARACTER | ((GETWORD(((DLword *)Addr68k_from_LADDR(baseL)) + index)) & 0xFFFF)); \
case 86: /* XPointer : 32 bits */ \
return(*(((int *)Addr68k_from_LADDR(baseL)) + index)); \
default: /* Illegal or Unimplemented */ \
ERROR_EXIT(tos); \
}/* end switch typenumber */ \
}
#else
__inline__ static LispPTR
aref_switch(int type, LispPTR tos, LispPTR baseL, int index)
{
@@ -143,7 +106,6 @@ aref_switch(int type, LispPTR tos, LispPTR baseL, int index)
ERROR_EXIT(tos);
}/* end switch typenumber */
}
#endif /* NEVER */
#define aset_switch(type, tos) \
{ \