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

@@ -33,7 +33,7 @@
/* GetLink gets a new entry from the GC collision table */
#define GetLink(var) \
{ \
register GCENTRY linkoff; \
GCENTRY linkoff; \
linkoff = GETGC(HTcoll); \
if (linkoff == 0) { \
if ((linkoff = GETGC((GCENTRY *)HTcoll + 1)) >= HTCOLLMAX) { \
@@ -213,7 +213,7 @@
void enter_big_reference_count(LispPTR ptr) {
struct gc_ovfl *oventry;
register LispPTR tmp;
LispPTR tmp;
/* this kludge is apparently necessary. Odd pointers are
illegal, but apparently some are reference counted. If you
@@ -308,8 +308,8 @@ void modify_big_reference_count(LispPTR *entry, DLword casep, LispPTR ptr) {
/************************************************************************/
LispPTR htfind(LispPTR ptr, int casep) {
register GCENTRY *entry, *link, *prev;
register GCENTRY entry_contents, hiptr;
GCENTRY *entry, *link, *prev;
GCENTRY entry_contents, hiptr;
/* if the NOREF bit is on in the type table entry, do
not reference count this pointer. Used for non-reference
@@ -429,8 +429,8 @@ nolink: /* no match */
/************************************************************************/
LispPTR rec_htfind(LispPTR ptr, int casep) {
register GCENTRY *entry, *link, *prev;
register GCENTRY entry_contents, hiptr;
GCENTRY *entry, *link, *prev;
GCENTRY entry_contents, hiptr;
/* if the NOREF bit is on in the type table entry, do
not reference count this pointer. Used for non-reference