github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-19 13:55:39 +00:00
Code Issues Projects Releases Wiki Activity

Delete code related to NATIVETRAN feature. (#232)

Browse Source 
* Delete code related to NATIVETRAN feature.

This was obsolete work that had been done for generating
native code from the bytecode.

Closes Interlisp/medley#89.

* Remove unused SaveD6.
This commit is contained in:
Bruce Mitchener
2021-01-20 08:57:53 +07:00
committed by GitHub
parent c89b6fd611
commit 0a057dec6b
17 changed files with 19 additions and 1415 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
src/subr.c
View File

@@ -77,10 +77,6 @@ extern LispPTR *PENDINGINTERRUPT68k;
*/
/***********************************************************/
#ifdef NATIVETRAN
extern int *c_ret_to_dispatch;
extern int *ret_to_dispatch;
#endif
extern LispPTR Uraid_mess;
LispPTR subr_lisperror(); /* 0377 */
@@ -429,19 +425,8 @@ void OP_subrcall(int subr_no, int argnum) {
break;
}
#ifdef NATIVETRAN
case 02: /* get an emulator address */
{
register UNSIGNED iarg;
if (argnum != 2) goto ret_nil;
switch (args[1] & 0xffff) {
case 00: iarg = (UNSIGNED)&c_ret_to_dispatch; break;
case 01: iarg = (UNSIGNED)&ret_to_dispatch; break;
}
ARITH_SWITCH(iarg, TopOfStack);
break;
}
#endif
/* case 02: Used to be get an emulator address for
* defunct NATIVETRAN feature. */
}
break;
@@ -449,15 +434,6 @@ void OP_subrcall(int subr_no, int argnum) {
TopOfStack = NIL_PTR;
break;
#ifdef NATIVETRAN
/* old load native (should be superseded) */
case sb_OLD_COMPILE_LOAD_NATIVE:
POP_SUBR_ARGS;
{
TopOfStack = do_system_call(args[0]);
break;
};
#endif
case sb_DISABLEGC:
POP_SUBR_ARGS;
disablegc1(NIL);
@@ -482,16 +458,6 @@ void OP_subrcall(int subr_no, int argnum) {
break;
};
#ifdef NATIVETRAN
case sb_LOAD_NATIVE_FILE:
POP_SUBR_ARGS;
/* to become OBSOLETE */
{
TopOfStack = dynamic_load_code(args);
break;
}
#endif
case sb_DSK_GETFILENAME:
POP_SUBR_ARGS;
TopOfStack = DSK_getfilename(args);