github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-25 08:20:03 +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/storage.c
View File

@@ -37,7 +37,7 @@
#define GUARDVMEMFULL 500
#define IFPVALID_KEY 5603
static void advance_array_seg(register unsigned int nxtpage);
static void advance_array_seg(unsigned int nxtpage);
static void advance_storagestate(DLword flg);
static LispPTR dremove(LispPTR x, LispPTR l);
static void set_storage_state(void);
@@ -53,9 +53,9 @@ static void set_storage_state(void);
*/
/*****************************************************************/
void checkfor_storagefull(register unsigned int npages) {
register int pagesleft;
register INTSTAT *int_state;
void checkfor_storagefull(unsigned int npages) {
int pagesleft;
INTSTAT *int_state;
#ifdef BIGVM
pagesleft = (*Next_MDSpage_word) - (*Next_Array_word) - PAGESPER_MDSUNIT;
@@ -147,7 +147,7 @@ void checkfor_storagefull(register unsigned int npages) {
*/
/*****************************************************************/
static void advance_array_seg(register unsigned int nxtpage)
static void advance_array_seg(unsigned int nxtpage)
/* rare page num */
{
unsigned int ncellsleft;
@@ -281,12 +281,12 @@ static LispPTR dremove(LispPTR x, LispPTR l) {
LispPTR newpage(LispPTR base) {
#ifdef BIGVM
register unsigned int vp; /* Virtual Page we're creating */
unsigned int vp; /* Virtual Page we're creating */
#else
register DLword vp; /* (built from base) */
DLword vp; /* (built from base) */
#endif /* BIGVM */
register INTSTAT *int_state;
INTSTAT *int_state;
extern LispPTR *LASTVMEMFILEPAGE_word;
extern LispPTR *VMEM_FULL_STATE_word;