github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 16:44:00 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/doskbd.c
View File

@ -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;

1
src/dosmouse.c
View File

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

1
src/initdsp.c
View File

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

3
src/keyevent.c
View File

@ -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);

5
src/mkatom.c
View File

@ -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;

3
src/storage.c
View File

@ -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 */

3
src/testtool.c
View File

@ -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;

4
src/vmemsave.c
View File

@ -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) {

1
src/xc.c
View File

@ -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;