github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-04 23:44:42 +00:00
Code Issues Projects Releases Wiki Activity

Wholesale removal of deprecated register attribute from all source files

Browse Source
This commit is contained in:
Nick Briggs
2022-08-15 15:04:07 -07:00
parent 5c0349cc69
commit 873d4927ce
107 changed files with 777 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/z2.c
View File

@@ -38,7 +38,7 @@
/* N_OP_classoc() OP 33Q */
LispPTR N_OP_classoc(LispPTR key, LispPTR list) {
struct cadr_cell cadr1;
register LispPTR cdrcell; /* address of (cdr A-list); Lisp address */
LispPTR cdrcell; /* address of (cdr A-list); Lisp address */
switch (key & SEGMASK) {
case S_POSITIVE: break;
@@ -78,7 +78,7 @@ LispPTR N_OP_classoc(LispPTR key, LispPTR list) {
} /* end N_OP_classoc() */
/* (CL:FMEMB item list) OP 35Q */
LispPTR N_OP_clfmemb(register LispPTR item, register LispPTR list) { /* OP 35Q */
LispPTR N_OP_clfmemb(LispPTR item, LispPTR list) { /* OP 35Q */
switch (item & SEGMASK) {
case S_POSITIVE: break;
@@ -151,7 +151,7 @@ fin: DelRef tail
***********************************************************/
LispPTR N_OP_restlist(register LispPTR tail, register int last, register int skip) {
LispPTR N_OP_restlist(LispPTR tail, int last, int skip) {
last &= 0xFFFF;
while (skip <= last) { tail = cons(GetLongWord(IVar + (--last << 1)), tail); }
return (tail);