github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-14 03:44:36 +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

3
src/gcfinal.c
View File

@@ -516,7 +516,6 @@ LispPTR reclaimstackp(LispPTR ptr) /* This is the entry function */
void printarrayblock(LispPTR base) {
struct arrayblock *bbase, *btrailer, *ptrailer;
struct arrayblock *bfwd, *bbwd;
LispPTR *addr;
LispPTR pbase, nbase;
@@ -524,8 +523,6 @@ void printarrayblock(LispPTR base) {
bbase = (struct arrayblock *)Addr68k_from_LADDR(base);
btrailer = (struct arrayblock *)Addr68k_from_LADDR(Trailer(base, bbase));
ptrailer = (struct arrayblock *)Addr68k_from_LADDR(base - ARRAYBLOCKTRAILERWORDS);
bfwd = (struct arrayblock *)Addr68k_from_LADDR(bbase->fwd);
bbwd = (struct arrayblock *)Addr68k_from_LADDR(bbase->bkwd);
nbase = base + 2 * bbase->arlen;
pbase = base - 2 * ptrailer->arlen;