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

12
src/vars3.c
View File

@@ -101,10 +101,10 @@ N_OP_arg0
************************************************************/
LispPTR N_OP_arg0(register LispPTR tos) {
register int num;
register DLword *bf; /* index of Basic frame */
register int nargs;
LispPTR N_OP_arg0(LispPTR tos) {
int num;
DLword *bf; /* index of Basic frame */
int nargs;
if ((SEGMASK & tos) != S_POSITIVE) {
/* error("OP_arg0: Bad TopOfStack\n"); */
@@ -140,9 +140,9 @@ N_OP_assoc
*******************************************/
LispPTR N_OP_assoc(register LispPTR key, register LispPTR list) {
LispPTR N_OP_assoc(LispPTR key, LispPTR list) {
struct cadr_cell cadr1;
register LispPTR cdr; /* address of (cdr A-list); Lisp address */
LispPTR cdr; /* address of (cdr A-list); Lisp address */
if (list == NIL_PTR) { return (NIL_PTR); }