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

Remove unused variable declarations.

Browse Source 
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
This commit is contained in:
Nick Briggs
2017-07-18 19:00:36 -07:00
parent 1da1a2cf10
commit ffff6ee267
8 changed files with 17 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/car-cdr.c
View File

@@ -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;