github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-29 13:01:30 +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

16
src/mkcell.c
View File

@@ -44,11 +44,11 @@
static LispPTR oldoldfree;
static LispPTR oldfree;
LispPTR N_OP_createcell(register LispPTR tos) {
register struct dtd *dtd68k;
register DLword *ptr, *lastptr;
register LispPTR newcell;
register unsigned int type;
LispPTR N_OP_createcell(LispPTR tos) {
struct dtd *dtd68k;
DLword *ptr, *lastptr;
LispPTR newcell;
unsigned int type;
if ((tos & SEGMASK) != S_POSITIVE) ERROR_EXIT(tos);
type = tos & 0xffff;
@@ -91,9 +91,9 @@ retry:
} /* N_OP_createcell end */
DLword *createcell68k(unsigned int type) {
register struct dtd *dtd68k;
register DLword *ptr, *lastptr;
register LispPTR newcell;
struct dtd *dtd68k;
DLword *ptr, *lastptr;
LispPTR newcell;
#ifdef DTDDEBUG
if (type == TYPE_LISTP) error("createcell : Can't create Listp cell with CREATECELL");
if (type == TYPE_STREAM) stab();