github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-11 18:45:10 +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

9
src/llstk.c
View File

@@ -296,8 +296,6 @@ DLword *freestackblock(DLword n, StackWord *start68k, int align)
{
register int wantedsize;
register StackWord *scanptr68k;
StackWord *ooscan, *oscan;
register StackWord *orig68k;
register STKBLK *freeptr68k;
register StackWord *easp68k;
register DLword freesize;
@@ -338,8 +336,9 @@ SCAN:
scanptr68k = (StackWord *)Addr68k_from_StkOffset(((FX *)scanptr68k)->nextblock);
break;
default:
orig68k = scanptr68k;
#ifdef STACKCHECK
StackWord *orig68k = scanptr68k;
#endif
while (STKWORD(scanptr68k)->flags != STK_BF) {
S_WARN(STKWORD(scanptr68k)->flags == STK_NOTFLG, "NOTFLG not on", scanptr68k);
scanptr68k = (StackWord *)(((DLword *)scanptr68k) + DLWORDSPER_CELL);
@@ -382,8 +381,6 @@ FREESCAN:
freeptr68k = (STKBLK *)scanptr68k;
freesize = FSB_size(freeptr68k);
FREE:
ooscan = oscan;
oscan = scanptr68k;
scanptr68k = (StackWord *)(((DLword *)freeptr68k) + freesize);
if (freesize == 0) error("FREESIZE = 0");