Remove unused variable declarations.

modified:   array.c
	modified:   array3.c
	modified:   car-cdr.c
	modified:   chardev.c
	modified:   conspage.c
	modified:   ldeboot.c
	modified:   sxhash.c
	modified:   unixfork.c

src/array.c

@@ -45,9 +45,7 @@ type    size    typenumber
 
 /***	N_OP_misc3  -- op 372/9 (base typenumber index)   ***/
 LispPTR N_OP_misc3(LispPTR baseL, LispPTR typenumber, LispPTR inx, int alpha) {
-  register int result;
   register int index, type;
-  register DLword *wordp;
 
   /*	for CREATECELL  */
   DLword *createcell68k(unsigned int type);

src/array3.c

@@ -38,11 +38,8 @@ LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx) {
   register LispPTR baseL;
   register int type, index;
   register OneDArray *arrayblk;
-  LispPTR temp;
-  register int result;
 
   /*	for CREATECELL  */
-  register DLword *wordp;
   DLword *createcell68k(unsigned int type);
 
   /*  verify array  */

src/car-cdr.c

@@ -495,7 +495,6 @@ ConsCell *find_close_prior_cell(struct conspage *page, LispPTR oldcell) {
   unsigned offset = page->next_cell;
   unsigned prior = 0;
   unsigned noffset, poffset;
-  unsigned nprior = 0;
   ConsCell *cell;
 
   while (offset) {
@@ -570,7 +569,6 @@ static ConsCell *find_close_cell(struct conspage *page, LispPTR oldcell) {
 /************************************************************************/
 
 static ConsCell *find_cdrpair_in_page(struct conspage *pg, LispPTR carpart, LispPTR cdrpart) {
-  ConsCell *cell;
   unsigned offset, prior, priorprior, nprior, poffset, noffset;
 
   prior = priorprior = nprior = 0;
@@ -643,7 +641,7 @@ static ConsCell *find_cdrpair_in_page(struct conspage *pg, LispPTR carpart, Lisp
 /************************************************************************/
 
 static ConsCell *find_cdrable_pair(LispPTR carpart, LispPTR cdrpart) {
-  unsigned offset, prior, priorprior, pgno;
+  unsigned pgno;
   struct conspage *pg;
   ConsCell *cell;
 

src/chardev.c

@@ -94,8 +94,6 @@ LispPTR CHAR_openfile(LispPTR *args)
   register int id;    /* return value  of open system call. */
   register int flags; /* open system call's argument */
   register int rval;
-  register int linkflag = 0;
-  register int *bufp;
   struct stat statbuf;
   char pathname[MAXPATHLEN];
 
@@ -164,7 +162,6 @@ LispPTR CHAR_closefile(LispPTR *args)
 #ifndef DOS
   register int id; /* FileID */
   register int rval;
-  char pathname[MAXPATHLEN];
   Lisp_errno = (int *)(Addr68k_from_LADDR(args[1]));
   id = LispNumToCInt(args[0]);
   ERRSETJMP(NIL);
@@ -209,8 +206,6 @@ LispPTR CHAR_ioctl(LispPTR *args)
 #ifndef DOS
   int id, request, data;
   register int rval;
-  char *base;
-  struct stat sbuf;
   Lisp_errno = (int *)(Addr68k_from_LADDR(args[3]));
   id = LispNumToCInt(args[0]);
   request = LispNumToCInt(args[1]);
@@ -240,7 +235,7 @@ LispPTR CHAR_ioctl(LispPTR *args)
 LispPTR CHAR_bin(int id, LispPTR errn)
 {
 #ifndef DOS
-  register int rval, size;
+  register int rval;
   unsigned char ch[4];
   Lisp_errno = (int *)(Addr68k_from_LADDR(errn));
   ERRSETJMP(NIL);
@@ -320,7 +315,7 @@ LispPTR CHAR_bins(LispPTR *args)
 #ifndef DOS
   register int id, rval;
   char *buffer;
-  int offset, nbytes;
+  int nbytes;
   Lisp_errno = (int *)(Addr68k_from_LADDR(args[4]));
   ERRSETJMP(NIL);
   id = LispNumToCInt(args[0]);
@@ -371,7 +366,7 @@ LispPTR CHAR_bouts(LispPTR *args)
 #ifndef DOS
   register int id, rval;
   char *buffer;
-  int nbytes, offset;
+  int nbytes;
   Lisp_errno = (int *)(Addr68k_from_LADDR(args[4]));
   ERRSETJMP(NIL);
   id = LispNumToCInt(args[0]);

src/conspage.c

@@ -266,7 +266,7 @@ static ConsCell *find_cdrcodable_pair(LispPTR cdrval) {
 
 static ConsCell *find_free_cons_cell(void) {
   ConsCell *cell;
-  struct conspage *pg, *priorpg;
+  struct conspage *pg;
   unsigned pgno = ListpDTD->dtd_nextpage;
 
   for (pg = (struct conspage *)Addr68k_from_LPAGE(pgno); pgno;
@@ -299,8 +299,7 @@ LispPTR N_OP_cons(register int cons_car, register int cons_cdr) {
   extern struct dtd *ListpDTD;
 
   register struct conspage *new_conspage;
-  register ConsCell *new_cell;
-  register ConsCell *temp_cell;
+  register ConsCell *new_cell, *temp_cell;
   register int new_page; /* hold the return  val of nextconspage ,DL->int */
 
   extern ConsCell *find_close_prior_cell(struct conspage * page, LispPTR oldcell);

src/ldeboot.c

@@ -71,15 +71,10 @@ char filetorun[30];
 
 int main(int argc, char *argv[])
 {
-  char Earg[30], Ename[30], **newargv;
   int i;
 #ifdef USESUNSCREEN
-  struct fbtype my_screen;
-#endif /* USESUNSCREEN */
-
   int FrameBufferFd;
-
-#ifdef USESUNSCREEN
+  struct fbtype my_screen;
   struct fbinfo FB_info;
   struct fbgattr FBattr;
 #endif /* USESUNSCREEN */
@@ -109,7 +104,7 @@ int main(int argc, char *argv[])
   {
     char *Display_Name = (char *)NULL;
     Display *Xdisplay = (Display *)NULL;
-    int i, option;
+    int i;
     char *pos;
 
     for (i = 1; i < argc; i++) {

src/sxhash.c

@@ -125,7 +125,7 @@ unsigned short sxhash_rotate(short unsigned int value) {
 #endif
 
 unsigned short sxhash_string(OneDArray *obj) {
-  unsigned i, len, offset;
+  unsigned len, offset;
   register unsigned short hash = 0;
   len = (unsigned)obj->fillpointer;
   if (len > 13) len = 13;
@@ -150,7 +150,7 @@ unsigned short sxhash_string(OneDArray *obj) {
 
 unsigned short sxhash_bitvec(OneDArray *obj) {
   unsigned short *base;
-  unsigned i, len, offset, bitoffset;
+  unsigned len, offset, bitoffset;
   unsigned short hash = 0;
   len = (unsigned)obj->fillpointer;
   offset = (unsigned)obj->offset;
@@ -203,7 +203,7 @@ LispPTR STRING_EQUAL_HASHBITS(SXHASHARG *args) {
 } /* STRING_EQUAL_HASHBITS */
 
 unsigned short stringequalhash(LispPTR obj) {
-  unsigned i, len, offset, fatp, ind;
+  unsigned len, offset, fatp, ind;
   register unsigned short hash = 0;
   PNCell *pnptr;
   DLword *base;
@@ -271,7 +271,7 @@ LispPTR STRING_HASHBITS(SXHASHARG *args) {
 } /* STRING_HASHBITS */
 
 unsigned short stringhash(LispPTR obj) {
-  unsigned i, len, offset, fatp, ind;
+  unsigned len, offset, fatp, ind;
   register unsigned short hash = 0;
   PNCell *pnptr;
   DLword *base;

src/unixfork.c

@@ -134,12 +134,10 @@ int ForkUnixShell(int slot, char *PtySlave, char *termtype, char *shellarg)
 int ForkUnixShell(int slot, char ltr, char numb, char *termtype, char *shellarg)
 #endif
 {
-#ifdef FULLSLAVENAME
-  char buf[1];
-#else
-  char PtySlave[20], buf[1];
+#ifndef FULLSLAVENAME
+  char PtySlave[20];
 #endif
-  int res, PID, MasterFD, SlaveFD;
+  int res, PID, SlaveFD;
 #ifdef USETERMIOS
   struct termios tio;
 #else
@@ -558,7 +556,9 @@ int fork_Unix() {
         union wait status;
 #endif /* SYSVONLY */
 
+#ifdef OCR
         int slot;
+#endif
 
 #if defined(SYSVONLY) || defined(WAITINT)
         status = 0;