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

Remove unused variables and labels.

Browse Source 
modified:   src/bbtsub.c
	modified:   src/fvar.c
	modified:   src/loopsops.c
	modified:   src/mkcell.c
	modified:   src/mvs.c
	modified:   src/return.c
This commit is contained in:
Nick Briggs 2017-07-20 17:14:59 -07:00
parent c6ed74d94b
commit f328efcd55
6 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/bbtsub.c
View File

@ -932,12 +932,12 @@ LispPTR BLTSHADEBITMAP_index;
LispPTR bitshade_bitmap(LispPTR *args) {
BITMAP *DestBitmap, *texture68k;
int dleft, dbottom, width, height, clipleft, clipbottom;
int dleft, dbottom, width, height;
LispPTR clipreg;
int right, top, destbits, left, bottom, textureword;
int right, top, destbits, left, bottom;
LispPTR operation, texture;
DLword *srcbase, *dstbase, *base;
int dlx, dty, slx, sty, dstbpl, op, src_comp, displayflg = 0;
int dty, slx, dstbpl, op, src_comp, displayflg = 0;
int rasterwidth;
int num_gray, curr_gray_line;
DLword grayword[4];
@ -1926,7 +1926,6 @@ void ccfuncall(register unsigned int atom_index, register int argnum, register i
register struct fnhead *tmp_fn;
int rest; /* use for arignments */
int closurep = NIL;
register CClosure *closure68k;
/* Get Next Block offset from argnum */
CURRENTFX->nextblock = (LADDR_from_68k(CurrentStackPTR) & 0x0ffff) - (argnum << 1) + 4 /* +3 */;
@ -2206,5 +2205,4 @@ static int old_cursorin(DLword addrhi, DLword addrlo, int x, int w, int h, int y
return (NIL);
} /* COLOR case end */
}
#endif /* COLOR */

1
src/fvar.c
View File

@ -370,7 +370,6 @@ N_OP_fvar_
LispPTR N_OP_fvar_(register LispPTR tos, register int n) {
register DLword *ppvar; /* pointer to argued Fvar slot in pvar area */
register DLword *pfreeval; /* pointer to argued free value */
register int l1; /* return value of fvlookup() */
ppvar = PVar + n;

1
src/loopsops.c
View File

@ -354,7 +354,6 @@ LispPTR lcfuncall(register unsigned int atom_index, register int argnum, registe
register short pv_num; /* scratch for pv */
register struct fnhead *tmp_fn;
int rest; /* use for arignments */
int closurep = NIL;
register CClosure *closure68k;
if (atom_index == 0xffffffff) error("Loops punt to nonexistant fn");

2
src/mkcell.c
View File

@ -98,7 +98,6 @@ retry:
DLword *createcell68k(unsigned int type) {
register struct dtd *dtd68k;
register DLword *ptr, *lastptr;
register ConsCell *newcell68k;
register LispPTR newcell;
#ifdef DTDDEBUG
if (type == TYPE_LISTP) error("createcell : Can't create Listp cell with CREATECELL");
@ -170,7 +169,6 @@ retry:
LispPTR Create_n_Set_Cell(unsigned int type, LispPTR value) {
register struct dtd *dtd68k;
register DLword *ptr, *lastptr;
register ConsCell *newcell68k;
register LispPTR newcell;
dtd68k = (struct dtd *)GetDTD(type);

1
src/mvs.c
View File

@ -67,7 +67,6 @@ LispPTR values(int arg_count, register LispPTR *args) {
ByteCode *pc;
int unbind_count = 0;
struct fnhead *fnhead;
int byteswapped; /* T if on 386 & reswapped code block */
short opcode;
caller = (FX2 *)CURRENTFX;

1
src/return.c
View File

@ -134,7 +134,6 @@ void contextsw(register DLword fxnum, register DLword bytenum, register DLword f
Midpunt(fxnum); /* exchanging FX */
RTNX:
next68k = (DLword *)Addr68k_from_LADDR(STK_OFFSET | CURRENTFX->nextblock);
if (GETWORD(next68k) != STK_FSB_WORD) error("contextsw(): MP9316");