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

8
src/subr.c
View File

@@ -447,7 +447,7 @@ void OP_subrcall(int subr_no, int argnum) {
switch (args[0] & 0xffff) {
case 00: {
register UNSIGNED iarg;
UNSIGNED iarg;
if (argnum != 2) goto ret_nil;
N_GETNUMBER(args[1], iarg, ret_nil);
ARITH_SWITCH(*((LispPTR *)iarg), TopOfStack);
@@ -455,7 +455,7 @@ void OP_subrcall(int subr_no, int argnum) {
}
case 01: {
register UNSIGNED iarg, iarg2;
UNSIGNED iarg, iarg2;
if (argnum != 3) goto ret_nil;
N_GETNUMBER(args[1], iarg, ret_nil);
N_GETNUMBER(args[2], iarg2, ret_nil);
@@ -494,7 +494,7 @@ void OP_subrcall(int subr_no, int argnum) {
a Lisp FIXP
{
register UNSIGNED iarg;
UNSIGNED iarg;
N_GETNUMBER(args[0], iarg, ret_nil);
ARITH_SWITCH(LADDR_from_68k(iarg), TopOfStack);
break;
@@ -533,7 +533,7 @@ void OP_subrcall(int subr_no, int argnum) {
/*
case 0166: POP_SUBR_ARGS;
error("called SUBR 0166, not defined!!");
{register int temp;
{int temp;
N_GETNUMBER(TopOfStack, temp, badarg);
temp = (UNSIGNED) Addr68k_from_LADDR(temp);
ARITH_SWITCH(temp, TopOfStack);