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:
@@ -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;
|
||||||
|
|||||||
@@ -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;
|
||||||
|
|||||||
@@ -71,7 +71,6 @@ DLword *DISP_MAX_Address;
|
|||||||
|
|
||||||
|
|
||||||
extern DLword *EmCursorBitMap68K;
|
extern DLword *EmCursorBitMap68K;
|
||||||
extern IFPAGE *InterfacePage;
|
|
||||||
|
|
||||||
int DebugDSP = T;
|
int DebugDSP = T;
|
||||||
|
|
||||||
|
|||||||
@@ -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);
|
||||||
|
|||||||
@@ -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;
|
||||||
|
|||||||
@@ -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 */
|
||||||
|
|||||||
@@ -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;
|
||||||
|
|||||||
@@ -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) {
|
||||||
|
|||||||
1
src/xc.c
1
src/xc.c
@@ -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;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user