github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-26 00:33:37 +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

7
src/gcmain3.c
View File

@@ -300,25 +300,23 @@ returNIL: \n\
LispPTR gcmapscan(void) {
register GCENTRY probe;
register GCENTRY *entry;
GCENTRY offset, dbgentry, dbgcontents;
GCENTRY offset, dbgcontents;
register LispPTR ptr;
probe = HTMAIN_ENTRY_COUNT;
nextentry:
while ((probe = gcscan1(probe)) != NIL) {
entry = (GCENTRY *)HTmain + probe;
dbgentry = GETGC(entry);
retry:
if (HENTRY->collision) {
register GCENTRY *prev;
register GCENTRY *link;
LispPTR content, dbgfree;
LispPTR content;
prev = (GCENTRY *)0;
link = (GCENTRY *)HTcoll + GetLinkptr((content = HTLPTR->contents));
linkloop:
offset = ((struct htcoll *)link)->free_ptr;
dbgfree = ((struct htcoll *)link)->next_free;
if (StkCntIsZero(offset)) {
/* Reclaimable object */
ptr = VAG2(GetSegnuminColl(offset), (probe << 1));
@@ -417,7 +415,6 @@ LispPTR gcscanstack(void) {
register struct frameex1 *frameex;
register struct fnhead *fnheader;
frameex = (struct frameex1 *)basicframe;
scanptr = LADDR_from_68k(frameex);
{
register LispPTR fn_head;
#ifdef BIGVM