github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-13 23:27:12 +00:00
Code Issues Projects Releases Wiki Activity

Remove extraneous extern declarations. Convert some int to LispPTR as appropriate.

Browse Source
This commit is contained in:
Nick Briggs 2023-03-10 15:23:25 -08:00
parent f16b01167e
commit 0bd29ae643
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/conspage.c
View File

@ -114,12 +114,10 @@ static void init_conspage(struct conspage *base, unsigned int link)
/**********************************************************************/
struct conspage *next_conspage(void) {
extern struct dtd *ListpDTD;
struct conspage *page1; /* Allocated 1st MDS page */
struct conspage *page2; /* Allocated 2nd MDS page */
struct conspage *pg, *priorpg;
int next, prior;
LispPTR next, prior;
#ifdef NEWCDRCODING
/* Allocate 2 conspages and get 1st page base */
@ -293,14 +291,12 @@ static ConsCell *find_free_cons_cell(void) {
/**********************************************************************/
LispPTR N_OP_cons(LispPTR cons_car, LispPTR cons_cdr) {
extern struct dtd *ListpDTD;
struct conspage *new_conspage;
ConsCell *new_cell;
#ifndef NEWCDRCODING
ConsCell *temp_cell;
#endif
int new_page; /* hold the return val of nextconspage ,DL->int */
LispPTR new_page; /* hold the return val of nextconspage */
GCLOOKUP(cons_cdr &= POINTERMASK, ADDREF);
GCLOOKUP(cons_car, ADDREF);
@ -430,7 +426,7 @@ LispPTR N_OP_cons(LispPTR cons_car, LispPTR cons_cdr) {
#ifdef NEWCDRCODING
if (254 < ((new_page & 0xff) + ((new_cell->cdr_code & 7) << 1)))
error("in CONS, cdr code too big.");
#endif /* NEWCDROCDING */
#endif /* NEWCDRCODING */
return (new_page);
} /* N_OP_cons() end */