From f328efcd553978bb5142046b8c3d8c7920a12fad Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Thu, 20 Jul 2017 17:14:59 -0700
Subject: [PATCH] Remove unused variables and labels.

	modified:   src/bbtsub.c
	modified:   src/fvar.c
	modified:   src/loopsops.c
	modified:   src/mkcell.c
	modified:   src/mvs.c
	modified:   src/return.c
---
 src/bbtsub.c   | 8 +++-----
 src/fvar.c     | 1 -
 src/loopsops.c | 1 -
 src/mkcell.c   | 2 --
 src/mvs.c      | 1 -
 src/return.c   | 1 -
 6 files changed, 3 insertions(+), 11 deletions(-)

diff --git a/src/bbtsub.c b/src/bbtsub.c
index 40e6473..6de7bb3 100644
--- a/src/bbtsub.c
+++ b/src/bbtsub.c
@@ -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 */
diff --git a/src/fvar.c b/src/fvar.c
index 97f540a..6161680 100644
--- a/src/fvar.c
+++ b/src/fvar.c
@@ -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;
 
diff --git a/src/loopsops.c b/src/loopsops.c
index 652dff7..d117cd5 100644
--- a/src/loopsops.c
+++ b/src/loopsops.c
@@ -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");
diff --git a/src/mkcell.c b/src/mkcell.c
index d18fe39..3386665 100644
--- a/src/mkcell.c
+++ b/src/mkcell.c
@@ -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);
diff --git a/src/mvs.c b/src/mvs.c
index 94cda4f..907cf9a 100644
--- a/src/mvs.c
+++ b/src/mvs.c
@@ -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;
diff --git a/src/return.c b/src/return.c
index b07b1f6..795d72e 100644
--- a/src/return.c
+++ b/src/return.c
@@ -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");