1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-03 06:49:22 +00:00

Remove extern references for variables already present in lspglob.h, and subsequent extraneous includes for their types

This commit is contained in:
Nick Briggs
2022-12-24 17:08:16 -08:00
parent 11efd15613
commit a6b8b65b5b
9 changed files with 1 additions and 21 deletions

View File

@@ -33,7 +33,6 @@ int nokbdflag = FALSE;
extern int eurokbd; extern int eurokbd;
extern KbdInterface currentkbd; extern KbdInterface currentkbd;
extern MouseInterface currentmouse; extern MouseInterface currentmouse;
extern IFPAGE *InterfacePage;
extern int KBDEventFlg; extern int KBDEventFlg;
extern keybuffer *CTopKeyevent; extern keybuffer *CTopKeyevent;

View File

@@ -28,7 +28,6 @@
#include "miscstat.h" #include "miscstat.h"
extern int eurokbd; extern int eurokbd;
extern IFPAGE *InterfacePage;
extern int KBDEventFlg; extern int KBDEventFlg;
extern DspInterface currentdsp; extern DspInterface currentdsp;
extern MouseInterface currentmouse; extern MouseInterface currentmouse;

View File

@@ -71,7 +71,6 @@ DLword *DISP_MAX_Address;
extern DLword *EmCursorBitMap68K; extern DLword *EmCursorBitMap68K;
extern IFPAGE *InterfacePage;
int DebugDSP = T; int DebugDSP = T;

View File

@@ -49,8 +49,6 @@ void Mouse_hndlr(void); /* Fields mouse events from driver */
#include "display.h" #include "display.h"
#include "lsptypes.h" #include "lsptypes.h"
#include "ifpage.h"
#include "bb.h" #include "bb.h"
#include "bitblt.h" #include "bitblt.h"
#include "pilotbbt.h" #include "pilotbbt.h"
@@ -307,7 +305,6 @@ void process_io_events(void)
void kb_trans(u_short keycode, u_short upflg) void kb_trans(u_short keycode, u_short upflg)
{ {
extern IFPAGE *InterfacePage;
if (keycode < 64) /* DLKBDAD0 ~ 3 */ if (keycode < 64) /* DLKBDAD0 ~ 3 */
{ {
PUTBASEBIT68K(EmKbdAd068K, keycode, upflg); PUTBASEBIT68K(EmKbdAd068K, keycode, upflg);

View File

@@ -37,6 +37,7 @@
#include "cell.h" // for PNCell, GetPnameCell #include "cell.h" // for PNCell, GetPnameCell
#include "dbprint.h" // for DBPRINT #include "dbprint.h" // for DBPRINT
#include "lispemul.h" // for DLword, LispPTR, T, NIL, POINTERMASK #include "lispemul.h" // for DLword, LispPTR, T, NIL, POINTERMASK
#include "lspglob.h" // for AtomHT
#include "lispmap.h" // for S_POSITIVE #include "lispmap.h" // for S_POSITIVE
#include "lsptypes.h" // for GETBYTE, GETWORD #include "lsptypes.h" // for GETBYTE, GETWORD
#include "mkatomdefs.h" // for compare_chars, compare_lisp_chars, compute_hash #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) LispPTR make_atom(const char *char_base, DLword offset, DLword length)
{ {
extern DLword *AtomHT;
extern DLword *Pnamespace;
extern DLword *AtomSpace;
DLword hash; DLword hash;
LispPTR hash_entry; /* hash entry contents */ LispPTR hash_entry; /* hash entry contents */
DLword atom_index; DLword atom_index;

View File

@@ -287,9 +287,6 @@ LispPTR newpage(LispPTR base) {
#endif /* BIGVM */ #endif /* BIGVM */
INTSTAT *int_state; INTSTAT *int_state;
extern LispPTR *LASTVMEMFILEPAGE_word;
extern LispPTR *VMEM_FULL_STATE_word;
unsigned int nactive; unsigned int nactive;
vp = base >> 8; /* Compute virtual-page # from Lisp address of the page */ vp = base >> 8; /* Compute virtual-page # from Lisp address of the page */

View File

@@ -55,7 +55,6 @@
#include "debug.h" // for PACKAGE #include "debug.h" // for PACKAGE
#include "emlglob.h" #include "emlglob.h"
#include "gcarraydefs.h" // for aref1 #include "gcarraydefs.h" // for aref1
#include "ifpage.h" // for IFPAGE
#include "kprintdefs.h" // for print, prindatum #include "kprintdefs.h" // for print, prindatum
#include "lispemul.h" // for DLword, LispPTR, DLbyte, state, T, ConsCell #include "lispemul.h" // for DLword, LispPTR, DLbyte, state, T, ConsCell
#include "lispmap.h" // for STK_OFFSET, ATOMS_HI #include "lispmap.h" // for STK_OFFSET, ATOMS_HI
@@ -190,7 +189,6 @@ void print_package_name(int index) {
/************************************************************************/ /************************************************************************/
void dump_dtd(void) { void dump_dtd(void) {
extern DLword *DTDspace;
struct dtd *dtdp; struct dtd *dtdp;
DLword cnt; DLword cnt;
@@ -1102,7 +1100,6 @@ void all_stack_dump(DLword start, DLword end, DLword silent)
DLword *start68k, *end68k, *orig68k; DLword *start68k, *end68k, *orig68k;
DLword size; DLword size;
int sdlines = 0; int sdlines = 0;
extern IFPAGE *InterfacePage;
if (start == 0) if (start == 0)
start68k = Stackspace + InterfacePage->stackbase; start68k = Stackspace + InterfacePage->stackbase;

View File

@@ -42,7 +42,6 @@
#include "lispemul.h" #include "lispemul.h"
#include "lispmap.h" #include "lispmap.h"
#include "lspglob.h" #include "lspglob.h"
#include "ifpage.h"
#include "vmemsave.h" #include "vmemsave.h"
#include "timeout.h" #include "timeout.h"
#include "adr68k.h" #include "adr68k.h"
@@ -72,7 +71,6 @@
extern int LispWindowFd; extern int LispWindowFd;
extern struct pixrect *CursorBitMap, *InvisibleCursorBitMap; extern struct pixrect *CursorBitMap, *InvisibleCursorBitMap;
extern struct cursor CurrentCursor, InvisibleCursor; extern struct cursor CurrentCursor, InvisibleCursor;
extern IFPAGE *InterfacePage;
#ifdef DOS #ifdef DOS
extern DspInterface currentdsp; extern DspInterface currentdsp;
#endif /* DOS */ #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 */ /* Make sure that we kill off any Unix subprocesses before we go away */
void lisp_finish(void) { void lisp_finish(void) {

View File

@@ -1094,7 +1094,6 @@ check_interrupt:
extern LispPTR *PERIODIC_INTERRUPT68k; extern LispPTR *PERIODIC_INTERRUPT68k;
extern LispPTR *PERIODIC_INTERRUPT_FREQUENCY68k; extern LispPTR *PERIODIC_INTERRUPT_FREQUENCY68k;
extern LispPTR PERIODIC_INTERRUPTFRAME_index; extern LispPTR PERIODIC_INTERRUPTFRAME_index;
extern LispPTR *Reclaim_cnt_word;
extern LispPTR DORECLAIM_index; extern LispPTR DORECLAIM_index;
extern int URaid_req; extern int URaid_req;