github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-05 18:49:09 +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

7
src/array3.c
View File

@@ -51,11 +51,6 @@ LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx) {
/* setup base */
baseL = arrayblk->base;
/* disp on type */
#ifdef OS4
aref_switch(type, inx, baseL, index);
#else
/* disp on type */
return (aref_switch(type, inx, baseL, index));
#endif
} /* end N_OP_aref1() */