github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-30 05:24:22 +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/rplcons.c
View File

@@ -41,18 +41,17 @@ LispPTR N_OP_rplcons(register LispPTR list, register LispPTR item) {
#ifndef NEWCDRCODING
register struct conspage *conspage;
register ConsCell *new_cell;
#endif
register ConsCell *list68k;
LispPTR register page;
#endif
if (!Listp(list)) ERROR_EXIT(item);
/* There are some rest Cell and "list" must be ONPAGE cdr_coded */
#ifndef NEWCDRCODING
page = POINTER_PAGE(list);
list68k = (ConsCell *)Addr68k_from_LADDR(list);
/* There are some rest Cell and "list" must be ONPAGE cdr_coded */
#ifndef NEWCDRCODING
if ((GetCONSCount(page) != 0) && (list68k->cdr_code > CDR_MAXINDIRECT)) {
GCLOOKUP(item, ADDREF);
GCLOOKUP(cdr(list), DELREF);