github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-19 09:18:33 +00:00
Code Issues Projects Releases Wiki Activity

Remove unused #defines

Browse Source
This commit is contained in:
Nick Briggs 2023-01-02 12:37:07 -08:00
parent 7eb3cd0ceb
commit 679b201849
5 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/bbtsub.c
View File

@ -1281,6 +1281,8 @@ void bltchar(LispPTR *args)
PUNT_TO_BLTCHAR; \
} \
} while (0)
#if 0
/* see changecharset_display and sfffixy */
#define FGetNum2(ptr, place) \
do { \
if (((ptr)&SEGMASK) == S_POSITIVE) { \
@ -1291,6 +1293,7 @@ void bltchar(LispPTR *args)
return (-1); \
} \
} while (0)
#endif
LispPTR *TOPWDS68k; /* Top of window stack's DS */
LispPTR BLTCHAR_index; /* Atom # for \PUNTBLTCHAR punt fn */
@ -1728,7 +1731,6 @@ void ccfuncall(unsigned int atom_index, int argnum, int bytenum)
void tedit_bltchar(LispPTR *args)
{
#define backwardflg 0
#define displayflg 0
DISPLAYDATA *displaydata68k;
int right;
PILOTBBT *pbt;
@ -1775,7 +1777,6 @@ void tedit_bltchar(LispPTR *args)
new_char_bitblt_code;
#endif
}
#undef displayflg
#undef backwardflg
} /* end tedit_bltchar */

1
src/dbgtool.c
View File

@ -695,7 +695,6 @@ void sff(LispPTR laddr) { sf((FX *)NativeAligned4FromLAddr(laddr)); }
/* nt(index): print function header and name table */
/* in defcell of Atom index 'index' */
/*****************************************************************/
#define DUMPSIZE 40
#define FNOVERHEADWORDS (8)
void nt(LispPTR index)

1
src/gcfinal.c
View File

@ -63,7 +63,6 @@
#define Oddp(num) (((num % 2) != 0) ? 1 : 0)
#define Evenp(num) (((num % 2) != 0) ? 0 : 1)
#define STK_HI 1 /* This value also */
#define WORDSPERCELL 2
#define PADDING 4
#define Boundp(frame_field) ((frame_field == 0) ? 1 : 0)
#endif /* NEVER */

5
src/gcmain3.c
View File

@ -49,10 +49,7 @@
#include "lsptypes.h"
#include "stack.h" // for Bframe, fnhead, frameex1, STK_BF, STK_FSB
#define WORDSPERCELL 2
#define MAXHTCNT 63
#define PADDING 4
#define FNOVERHEADWORDS 8
#define ADD_OFFSET(ptr, dloffset) ((LispPTR *)(((DLword *)(ptr)) + (dloffset)))
#ifdef BIGVM
@ -60,7 +57,6 @@
#define BF_FLAGS(value) ((unsigned int)(value) >> 29)
#define PTR_BITS(entry) ((unsigned int)(entry)&POINTERMASK)
#define GetSegnuminColl(entry1) (((entry1)&0xFFFE) >> 1)
#define GetStkCnt(entry1) ((entry1) >> 16)
#define StkCntIsZero(entry1) (!((entry1)&0xFFFF0000))
#define StkrefP(entry1) ((entry1)&0x10000)
#define SinglerefP(entry1) (((entry1)&0xFFFE0000) == 0x20000)
@ -78,7 +74,6 @@
#define BF_FLAGS(value) ((unsigned int)(value) >> 29)
#define PTR_BITS(entry) ((unsigned int)((unsigned int)((entry) << 8) >> 8))
#define GetSegnuminColl(entry1) ((entry1 & 0x01fe) >> 1)
#define GetStkCnt(entry1) ((entry1 & 0x0fe00) >> 9)
#define StkCntIsZero(entry1) (!((entry1)&0x0fe00))
#define StkrefP(entry1) ((entry1)&0x0200)
#define SinglerefP(entry1) (((entry1)&0xFC00) == 0x0400)

3
src/initdsp.c
View File

@ -282,9 +282,6 @@ void flush_display_buffer(void) {
/* h the height of the piece to display, in pixels */
/* */
/************************************************************************/
#define BITEPER_DLBYTE 8
#define DLBYTE_PERLINE (displaywidth / 8)
void flush_display_region(int x, int y, int w, int h)
{