Skip to content

Commit 64957b5

Browse files
Fix some unused variable warnings. (#352)
Also removes a prototype that wasn't needed.
1 parent 1116ee7 commit 64957b5

File tree

3 files changed

+13
-17
lines changed

3 files changed

+13
-17
lines changed

src/dsk.c

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2250,8 +2250,8 @@ LispPTR COM_getfreeblock(register LispPTR *args)
22502250
register int dskp, rval, *buf;
22512251
char lfname[MAXPATHLEN + 5], dir[MAXPATHLEN], host[MAXNAMLEN];
22522252
char name[MAXNAMLEN + 1], file[MAXPATHLEN], ver[VERSIONLEN];
2253-
char drive[2];
22542253
#ifdef DOS
2254+
char drive[2];
22552255
struct diskfree_t sfsbuf;
22562256
#else
22572257
struct statvfs sfsbuf;
@@ -2501,7 +2501,10 @@ int unpack_filename(char *file, char *dir, char *name, char *ver, int checkp)
25012501
int true_name(register char *path)
25022502
{
25032503
char dir[MAXPATHLEN];
2504-
char name[MAXNAMLEN], drive[1];
2504+
char name[MAXNAMLEN];
2505+
#ifdef DOS
2506+
char drive[1];
2507+
#endif
25052508
register char *sp, *cp;
25062509
register int type, c;
25072510

@@ -3056,8 +3059,10 @@ static int get_version_array(char *dir, char *file, FileName *varray, CurrentVAr
30563059
register FileName *svarray;
30573060
register DIR *dirp;
30583061
register struct dirent *dp;
3062+
/* Used in commented out code below:
30593063
register int rval;
30603064
struct stat sbuf;
3065+
*/
30613066

30623067
/*
30633068
* First of all, prepare a lower cased file name for the case insensitive

src/ldsout.c

Lines changed: 4 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,6 @@ int Storage_expanded; /* T or NIL */
5252
/************************************************************************/
5353
#if defined(DOS) || defined(XWINDOW)
5454
#include "devif.h"
55-
static char *metersyms = "-\\|/";
5655
extern DspInterface currentdsp;
5756
#endif /* DOS || XWINDOW */
5857

@@ -75,12 +74,10 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
7574

7675
unsigned sysout_size; /* sysout size in page */
7776
struct stat stat_buf; /* file stat buf */
78-
int i, vp;
77+
int i;
7978

8079
char errmsg[255];
8180

82-
int j = 0;
83-
8481
/* Checks for specifying the process size (phase I) */
8582
/* If sys_size == 0 figure out the proper size later */
8683
if ((sys_size != 0) && (sys_size < DEFAULT_PRIME_SYSOUTSIZE)) {
@@ -300,7 +297,7 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
300297
}
301298
_settextposition((short)0, (short)0);
302299
if ((i & 0xf) == 0) {
303-
for (j = 0; j < (columns * i) / (sysout_size >> 1); j++) putchar(' ');
300+
for (int j = 0; j < (columns * i) / (sysout_size >> 1); j++) putchar(' ');
304301
printf("-=(%2d%%)=-\n", (100 * i) / (sysout_size >> 1));
305302
}
306303
#endif /* DOS */
@@ -316,9 +313,8 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
316313
printf(" offset was 0x%lx (0x%x pages).\n", lispworld_offset,
317314
GETFPTOVP(fptovp, i));
318315
perror("read() error was");
319-
{
320-
int j;
321-
for (j = 0; j < 10; j++) printf(" %d: 0x%x ", j, GETFPTOVP(fptovp, j));
316+
for (int j = 0; j < 10; j++) {
317+
printf(" %d: 0x%x ", j, GETFPTOVP(fptovp, j));
322318
}
323319
free(fptovp);
324320
exit(-1);

src/llstk.c

Lines changed: 2 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -215,12 +215,10 @@ static LispPTR moveframe(register FX *oldfx68k) {
215215
*/
216216
/******************************************************************/
217217
int do_stackoverflow(int incallp) {
218-
register DLword *next68k;
219218
DLword newfx;
220219
DLword savenext;
221220
DLword *oldPVar;
222221
int movedistance;
223-
LispPTR moveframe(register FX * oldfx68k);
224222
#ifdef STACKCHECK
225223
LispPTR stackcontents;
226224
LispPTR TopIVAR;
@@ -431,7 +429,7 @@ void decusecount68k(register FX *frame68k) {
431429
DLword *alink68k;
432430
register Bframe *blink68k;
433431
DLword *clink68k;
434-
register DLword *ivar68k;
432+
/*** register DLword *ivar68k; */
435433
register int size;
436434

437435
if (FX_INVALIDP(frame68k)) return;
@@ -1038,14 +1036,11 @@ void check_BF(Bframe *bf68k) {
10381036
/************************************************************************/
10391037

10401038
int check_stack_rooms(FX *fx68k) {
1041-
int size;
1042-
DLword *freeptr68k, *endstk68k;
1039+
DLword *freeptr68k;
10431040

10441041
CHECK_FX(fx68k);
10451042
freeptr68k = Addr68k_from_StkOffset(fx68k->nextblock);
10461043
if (!FSBP(freeptr68k)) error("check_stack_rooms: nextblock doesn't point to an FSB");
1047-
/*endstk68k=freeptr68k + FSB_size(freeptr68k);
1048-
size=((UNSIGNED)endstk68k - (UNSIGNED)CurrentStackPTR) >> 1;*/
10491044
return (FSB_size(freeptr68k));
10501045

10511046
} /* end check_stack_rooms */

0 commit comments

Comments
 (0)