github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-07 16:51:21 +00:00
Code Issues Projects Releases Wiki Activity

Remove dead stores. (#240)

Browse Source
This commit is contained in:
Bruce Mitchener
2021-01-20 12:23:26 +07:00
committed by GitHub
parent 0a057dec6b
commit 6f7ec059bc
13 changed files with 14 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/conspage.c
View File

@@ -193,11 +193,11 @@ ex:
static ConsCell *find_pair_in_page(struct conspage *pg, LispPTR cdrval) {
ConsCell *carcell, *cdrcell;
unsigned int offset, prior, priorprior, ppriorprior, noffset, nprior, poffset;
unsigned int offset, prior, priorprior, noffset, nprior, poffset;
if (pg->count < 2) return ((ConsCell *)0);
ppriorprior = priorprior = prior = nprior = 0;
priorprior = prior = nprior = 0;
for (offset = pg->next_cell; offset; offset = FREECONS(pg, offset)->next_free) {
if (prior) {
@@ -243,7 +243,6 @@ static ConsCell *find_pair_in_page(struct conspage *pg, LispPTR cdrval) {
return (carcell);
}
}
ppriorprior = priorprior;
priorprior = prior;
prior = offset;
}