1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-18 05:24:05 +00:00

Remove unnecessary codepaths for ISC. (#230)

ISC support had some extra code paths that were largely
duplicates of what was for non-ISC. They are not needed
any longer.
This commit is contained in:
Bruce Mitchener
2021-01-16 12:01:40 +07:00
committed by GitHub
parent 7ce6a55499
commit be7f43322e
2 changed files with 2 additions and 27 deletions

View File

@@ -197,20 +197,15 @@ void dispatch(void) {
InstPtr *table;
#else
#if defined(OPDISP) || defined(SPARCDISP)
#ifdef ISC
InstPtr *table;
#else
register InstPtr *table;
#endif
#endif /* OPDISP */
#endif /* I386 */
#ifdef ISC
#elif (DOS && OPDISP)
#if (DOS && OPDISP)
#else
register LispPTR *cspcache;
register LispPTR tscache;
#endif /* ISC */
#endif
#ifdef sparc
register struct state *stateptrcache = MState;
@@ -286,11 +281,7 @@ void dispatch(void) {
UFN_CALLS;
op_ufn : {
#ifdef ISC
UFN *entry68k;
#else
register UFN *entry68k;
#endif
entry68k = (UFN *)GetUFNEntry(Get_BYTE_PCMAC0);
fn_num_args = entry68k->arg_num;
fn_opcode_size = entry68k->byte_num + 1;