diff --git a/src/doskbd.c b/src/doskbd.c index 0d204f3..6a800fc 100644 --- a/src/doskbd.c +++ b/src/doskbd.c @@ -33,7 +33,6 @@ int nokbdflag = FALSE; extern int eurokbd; extern KbdInterface currentkbd; extern MouseInterface currentmouse; -extern IFPAGE *InterfacePage; extern int KBDEventFlg; extern keybuffer *CTopKeyevent; diff --git a/src/dosmouse.c b/src/dosmouse.c index ffd90b6..9dbdf55 100644 --- a/src/dosmouse.c +++ b/src/dosmouse.c @@ -28,7 +28,6 @@ #include "miscstat.h" extern int eurokbd; -extern IFPAGE *InterfacePage; extern int KBDEventFlg; extern DspInterface currentdsp; extern MouseInterface currentmouse; diff --git a/src/initdsp.c b/src/initdsp.c index 63216bb..9e1ed17 100644 --- a/src/initdsp.c +++ b/src/initdsp.c @@ -71,7 +71,6 @@ DLword *DISP_MAX_Address; extern DLword *EmCursorBitMap68K; -extern IFPAGE *InterfacePage; int DebugDSP = T; diff --git a/src/keyevent.c b/src/keyevent.c index 4a31f4e..d2b4893 100644 --- a/src/keyevent.c +++ b/src/keyevent.c @@ -49,8 +49,6 @@ void Mouse_hndlr(void); /* Fields mouse events from driver */ #include "display.h" #include "lsptypes.h" -#include "ifpage.h" - #include "bb.h" #include "bitblt.h" #include "pilotbbt.h" @@ -307,7 +305,6 @@ void process_io_events(void) void kb_trans(u_short keycode, u_short upflg) { - extern IFPAGE *InterfacePage; if (keycode < 64) /* DLKBDAD0 ~ 3 */ { PUTBASEBIT68K(EmKbdAd068K, keycode, upflg); diff --git a/src/mkatom.c b/src/mkatom.c index 526f890..eec68cf 100644 --- a/src/mkatom.c +++ b/src/mkatom.c @@ -37,6 +37,7 @@ #include "cell.h" // for PNCell, GetPnameCell #include "dbprint.h" // for DBPRINT #include "lispemul.h" // for DLword, LispPTR, T, NIL, POINTERMASK +#include "lspglob.h" // for AtomHT #include "lispmap.h" // for S_POSITIVE #include "lsptypes.h" // for GETBYTE, GETWORD #include "mkatomdefs.h" // for compare_chars, compare_lisp_chars, compute_hash @@ -260,10 +261,6 @@ LispPTR compare_lisp_chars(const char *char1, const char *char2, DLword length, LispPTR make_atom(const char *char_base, DLword offset, DLword length) { - extern DLword *AtomHT; - extern DLword *Pnamespace; - extern DLword *AtomSpace; - DLword hash; LispPTR hash_entry; /* hash entry contents */ DLword atom_index; diff --git a/src/storage.c b/src/storage.c index 8ec6165..0ca44f8 100644 --- a/src/storage.c +++ b/src/storage.c @@ -287,9 +287,6 @@ LispPTR newpage(LispPTR base) { #endif /* BIGVM */ INTSTAT *int_state; - - extern LispPTR *LASTVMEMFILEPAGE_word; - extern LispPTR *VMEM_FULL_STATE_word; unsigned int nactive; vp = base >> 8; /* Compute virtual-page # from Lisp address of the page */ diff --git a/src/testtool.c b/src/testtool.c index 00e172b..7ec32a6 100644 --- a/src/testtool.c +++ b/src/testtool.c @@ -55,7 +55,6 @@ #include "debug.h" // for PACKAGE #include "emlglob.h" #include "gcarraydefs.h" // for aref1 -#include "ifpage.h" // for IFPAGE #include "kprintdefs.h" // for print, prindatum #include "lispemul.h" // for DLword, LispPTR, DLbyte, state, T, ConsCell #include "lispmap.h" // for STK_OFFSET, ATOMS_HI @@ -190,7 +189,6 @@ void print_package_name(int index) { /************************************************************************/ void dump_dtd(void) { - extern DLword *DTDspace; struct dtd *dtdp; DLword cnt; @@ -1102,7 +1100,6 @@ void all_stack_dump(DLword start, DLword end, DLword silent) DLword *start68k, *end68k, *orig68k; DLword size; int sdlines = 0; - extern IFPAGE *InterfacePage; if (start == 0) start68k = Stackspace + InterfacePage->stackbase; diff --git a/src/vmemsave.c b/src/vmemsave.c index ca487e5..c69bc7e 100644 --- a/src/vmemsave.c +++ b/src/vmemsave.c @@ -42,7 +42,6 @@ #include "lispemul.h" #include "lispmap.h" #include "lspglob.h" -#include "ifpage.h" #include "vmemsave.h" #include "timeout.h" #include "adr68k.h" @@ -72,7 +71,6 @@ extern int LispWindowFd; extern struct pixrect *CursorBitMap, *InvisibleCursorBitMap; extern struct cursor CurrentCursor, InvisibleCursor; -extern IFPAGE *InterfacePage; #ifdef DOS extern DspInterface currentdsp; #endif /* DOS */ @@ -513,8 +511,6 @@ LispPTR vmem_save(char *sysout_file_name) /* */ /************************************************************************/ -extern int UnixPID; - /* Make sure that we kill off any Unix subprocesses before we go away */ void lisp_finish(void) { diff --git a/src/xc.c b/src/xc.c index 4655bb0..e6133c2 100644 --- a/src/xc.c +++ b/src/xc.c @@ -1094,7 +1094,6 @@ check_interrupt: extern LispPTR *PERIODIC_INTERRUPT68k; extern LispPTR *PERIODIC_INTERRUPT_FREQUENCY68k; extern LispPTR PERIODIC_INTERRUPTFRAME_index; - extern LispPTR *Reclaim_cnt_word; extern LispPTR DORECLAIM_index; extern int URaid_req;