github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 23:46:14 +00:00
Code Issues Projects Releases Wiki Activity

Remove OPCODEFAIL, FIXTOS1 (#277)

Browse Source 
These had been used on Sun3 in the ancient past, but not after
that in the current code.
This commit is contained in:
Bruce Mitchener 2021-01-25 07:41:16 +07:00 committed by GitHub
parent cc060be1c7
commit a45bce3133
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
inc/inlineC.h
View File

@ -1049,23 +1049,3 @@ if ((int)(TOPOFSTACK = (LispPTR)op_name( \
goto fix_tos_ufn; \
CSTKPTRL -= 8; \
nextop1;
#ifdef SUN3_OS3_OR_OS4_IL
/* need jump point for inline asm code, e.g., for IPLUS */
#define OPCODEFAIL \
\
fixtos1: \
fixtos1_label(); \
FIXTOS1; \
goto op_ufn;
#else
/* no opcode fail point necessary */
#define OPCODEFAIL
#endif

2
inc/tos1defs.h
View File

@ -35,7 +35,6 @@
#define GET_POPPED *CSTKPTR
#define POP_TOS_1 *(--CSTKPTRL)
#define TOPOFSTACK tscache
#define FIXTOS1 CSTKPTRL++
#define GET_TOS_1_HI *((DLword *)(CSTKPTR - 1))
#define GET_TOS_1_LO *((DLword *)(CSTKPTR - 1)+1)
@ -55,7 +54,6 @@
#define GET_POPPED *CSTKPTR
#define POP_TOS_1 *(--CSTKPTRL)
#define TOPOFSTACK tscache
#define FIXTOS1 CSTKPTRL++
#define GET_TOS_1_HI GETWORD((DLword *)(CSTKPTR - 1))
#define GET_TOS_1_LO GETWORD((DLword *)(CSTKPTR - 1)+1)

3
src/xc.c
View File

@ -218,10 +218,7 @@ void dispatch(void) {
goto nextopcode;
#endif /* OPDISP */
/* INLINE OPCODE FAIL ENTRY POINTS, CALL EXTERNAL ROUTINES HERE */
OPCODEFAIL;
/* OPCODE FAIL ENTRY POINTS, CALL UFNS HERE */
UFN_CALLS;
op_ufn : {