github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 20:27:45 +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
3 changed files with 0 additions and 25 deletions
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)