mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-14 23:46:14 +00:00
Remove extraneous external/forward declarations that are duplicates of those in "xxxdefs.h" files.
modified: src/allocmds.c modified: src/array5.c modified: src/car-cdr.c modified: src/dbgtool.c modified: src/ether.c modified: src/gc2.c modified: src/gcfinal.c modified: src/gcmain3.c modified: src/gcrcell.c modified: src/initkbd.c modified: src/initsout.c modified: src/keyevent.c modified: src/keylib.c modified: src/keymaker.c modified: src/keytst.c modified: src/loopsops.c modified: src/lsthandl.c modified: src/main.c modified: src/mkatom.c modified: src/mkcell.c modified: src/mvs.c modified: src/storage.c modified: src/testtool.c modified: src/unixcomm.c modified: src/vars3.c modified: src/xc.c modified: src/z2.c
This commit is contained in:
Nick Briggs
parent
33ad64f45b
commit
b1790bb7fe
@ -138,8 +138,6 @@ LispPTR *alloc_mdspage(register short int type) {
|
||||
extern LispPTR *Next_MDSpage_word;
|
||||
extern LispPTR *Next_Array_word;
|
||||
|
||||
LispPTR newpage(LispPTR base);
|
||||
|
||||
register LispPTR *ptr; /* points Top 32 bit of the MDS page */
|
||||
LispPTR next_page;
|
||||
|
||||
|
||||
@ -46,8 +46,6 @@ LispPTR N_OP_aref2(LispPTR arrayarg, LispPTR inx0, LispPTR inx1) {
|
||||
int arindex, temp;
|
||||
LispArray *arrayblk;
|
||||
int j;
|
||||
/* for CREATECELL */
|
||||
DLword *createcell68k(unsigned int type);
|
||||
|
||||
/* verify array */
|
||||
if (GetTypeNumber(arrayarg) != TYPE_TWOD_ARRAY) ERROR_EXIT(inx1);
|
||||
|
||||
@ -183,7 +183,6 @@ LispPTR rplaca(register LispPTR x, register LispPTR y)
|
||||
static ConsCell *find_cdrable_pair(LispPTR carpart, LispPTR cdrpart); /* below... */
|
||||
static ConsCell *find_close_cell(struct conspage *page, LispPTR oldcell);
|
||||
#endif
|
||||
extern struct conspage *next_conspage(void); /* conspage.c */
|
||||
|
||||
LispPTR rplacd(LispPTR x, register LispPTR y)
|
||||
/* cdr of x will be smashed */
|
||||
|
||||
@ -706,10 +706,6 @@ void sff(LispPTR laddr) { sf((FX *)Addr68k_from_LADDR(laddr)); }
|
||||
#define DUMPSIZE 40
|
||||
#define FNOVERHEADWORDS (8)
|
||||
|
||||
void nt1(LispPTR *start, int size, char *str);
|
||||
|
||||
void ntheader(struct fnhead *fnobj);
|
||||
|
||||
void nt(LispPTR index)
|
||||
/* atom index */
|
||||
{
|
||||
|
||||
@ -361,8 +361,6 @@ LispPTR ether_reset(LispPTR args[])
|
||||
/* it's OK to read packets from the network on interrupt. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
LispPTR get_packet();
|
||||
|
||||
LispPTR ether_get(LispPTR args[])
|
||||
{
|
||||
LispPTR MaxByteCount;
|
||||
|
||||
@ -45,7 +45,6 @@ static char *id = "$Id: gc2.c,v 1.3 1999/05/31 23:35:30 sybalsky Exp $ Copyright
|
||||
/**********************************************************************/
|
||||
|
||||
void OP_gcscan1(void) {
|
||||
DLword gcscan1(register int probe);
|
||||
|
||||
#ifdef TRACE
|
||||
printPC();
|
||||
@ -63,7 +62,6 @@ void OP_gcscan1(void) {
|
||||
/**********************************************************************/
|
||||
|
||||
void OP_gcscan2(void) {
|
||||
DLword gcscan2(register int probe);
|
||||
|
||||
#ifdef TRACE
|
||||
printPC();
|
||||
|
||||
@ -115,8 +115,6 @@ struct buf {
|
||||
};
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
void printarrayblock(LispPTR base);
|
||||
|
||||
/************* The following procedure is common !! **************************/
|
||||
|
||||
int integerlength(unsigned int n) {
|
||||
|
||||
@ -57,10 +57,6 @@ static char *id = "$Id: gcmain3.c,v 1.4 1999/05/31 23:35:31 sybalsky Exp $ Copyr
|
||||
#include "inlnPS2.h"
|
||||
#endif
|
||||
|
||||
/* from gcscan.c */
|
||||
DLword gcscan1(register int probe);
|
||||
DLword gcscan2(register int probe);
|
||||
|
||||
#define WORDSPERCELL 2
|
||||
#define MAXHTCNT 63
|
||||
#define PADDING 4
|
||||
|
||||
@ -108,8 +108,6 @@ unsigned todo_uses = 0;
|
||||
unsigned todo_misses = 0;
|
||||
unsigned todo_reads = 0;
|
||||
|
||||
void freelistcell(LispPTR cell);
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* g c r e c c e l l */
|
||||
|
||||
@ -339,9 +339,6 @@ u_char DOSLispKeyMap_101[0x80] = {
|
||||
/* 6*/ 89, 62, 63, 46, 90, 91, 130, 129, 131, 132, 92, 61, 0xff, 0xff, 0xff, 0xff,
|
||||
/* 7*/ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff};
|
||||
|
||||
void set_kbd_iopointers();
|
||||
void keyboardtype(int fd);
|
||||
|
||||
void init_keyboard(int flg) /* if 0 init else re-init */
|
||||
{
|
||||
int keytrans;
|
||||
|
||||
@ -68,11 +68,6 @@ DLword REPLACE_atom;
|
||||
#define GCENTRY DLword
|
||||
#endif
|
||||
|
||||
/* forward references */
|
||||
void init_for_keyhandle(void);
|
||||
void init_for_bltchar(void);
|
||||
void init_for_bitblt(void);
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* f i x p _ v a l u e */
|
||||
|
||||
@ -403,8 +403,6 @@ getmore:
|
||||
#endif /* DOS */
|
||||
} /* end getsignaldata */
|
||||
|
||||
void kb_trans(u_short keycode, u_short upflg);
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* k b _ e v e n t */
|
||||
|
||||
@ -32,11 +32,6 @@ static char *id = "$Id: keylib.c,v 1.4 2001/12/24 01:09:03 sybalsky Exp $ Copyri
|
||||
|
||||
#define FAILURE2 -2
|
||||
|
||||
unsigned long make_verification(unsigned long x, unsigned long y);
|
||||
unsigned long date_integer16(const char *date);
|
||||
unsigned long idate(const char *str);
|
||||
unsigned long modify(unsigned long hostid);
|
||||
|
||||
/* ===========================================================================
|
||||
IMOD64BIT computs (IMOD X Y).
|
||||
X is a 64-bit integer; x1 is the higher 32-bit while x0 is the lower 32-bit.
|
||||
|
||||
@ -26,6 +26,8 @@ static const char *id = "$Id: keymaker.c,v 1.3 1999/05/31 23:35:35 sybalsky Exp
|
||||
#include <string.h>
|
||||
#include <ctype.h>
|
||||
|
||||
#include "keylibdefs.h"
|
||||
|
||||
#define GOLDEN_RATIO_HACK -478700649
|
||||
#define floadbyte(number, pos) ((number >> pos) & 0xFFFF)
|
||||
#define hash_unhash(number, hashkey) \
|
||||
@ -41,11 +43,6 @@ static const char *id = "$Id: keymaker.c,v 1.3 1999/05/31 23:35:35 sybalsky Exp
|
||||
#define FAILURE2 -2
|
||||
#define FAILURE3 -3
|
||||
|
||||
unsigned long make_verification(unsigned long x, unsigned long y);
|
||||
unsigned long date_integer16(char *date);
|
||||
unsigned long idate(char *str);
|
||||
unsigned long modify(unsigned long hostid);
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* w r i t e r e s u l t s */
|
||||
|
||||
@ -26,6 +26,8 @@ static char *id = "$Id: keytst.c,v 1.3 1999/05/31 23:35:36 sybalsky Exp $ Copyri
|
||||
#include <string.h>
|
||||
#include <ctype.h>
|
||||
|
||||
#include "keylibdefs.h"
|
||||
|
||||
#ifdef HPUX
|
||||
/* On HPUX, use the UNAME syscall to get hostid */
|
||||
#include <sys/utsname.h>
|
||||
@ -51,11 +53,6 @@ static char *id = "$Id: keytst.c,v 1.3 1999/05/31 23:35:36 sybalsky Exp $ Copyri
|
||||
#define FAILURE4 -4
|
||||
#define FAILURE99 -99
|
||||
|
||||
unsigned long make_verification(unsigned long x, unsigned long y);
|
||||
unsigned long date_integer16(char *date);
|
||||
unsigned long idate(char *str);
|
||||
unsigned long modify(unsigned long hostid);
|
||||
|
||||
/* =====================================================================
|
||||
KEYTESTER checks the input key string.
|
||||
It returns 0 if the keys are valid, otherwise it returns non-0.
|
||||
|
||||
@ -35,9 +35,6 @@ static char *id = "$Id: loopsops.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ Copy
|
||||
#include "gcarraydefs.h"
|
||||
#include "gchtfinddefs.h"
|
||||
|
||||
LispPTR lcfuncall(register unsigned int atom_index, register int argnum, register int bytenum);
|
||||
LispPTR get_package_atom(char *char_base, DLword charlen, char *packname, DLword packlen,
|
||||
int externalp);
|
||||
static char il_string[] = "INTERLISP";
|
||||
#define GET_IL_ATOM(string) get_package_atom((string), (sizeof(string) - 1), il_string, 9, NIL)
|
||||
|
||||
|
||||
@ -76,8 +76,6 @@ LispPTR fmemb(register LispPTR item, register LispPTR list) {
|
||||
*/
|
||||
/**********************************************************************/
|
||||
|
||||
extern struct cadr_cell cadr(LispPTR cell_adr); /** declaration only **/
|
||||
|
||||
#define SAVE_ERROR_EXIT2(topcstk, tos) \
|
||||
{ \
|
||||
Scratch_CSTK = topcstk; \
|
||||
|
||||
@ -345,9 +345,6 @@ const char *helpstring =
|
||||
-help Print this message\n";
|
||||
#endif /* DOS */
|
||||
|
||||
void start_lisp();
|
||||
void print_info_lines();
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* M A I N E N T R Y P O I N T */
|
||||
|
||||
@ -267,7 +267,6 @@ LispPTR make_atom(char *char_base, DLword offset, DLword length, short int non_n
|
||||
extern DLword *AtomHT;
|
||||
extern DLword *Pnamespace;
|
||||
extern DLword *AtomSpace;
|
||||
LispPTR parse_number(char *char_base, short int length);
|
||||
|
||||
DLword hash;
|
||||
LispPTR hash_entry; /* hash entry contents */
|
||||
|
||||
@ -46,9 +46,6 @@ static char *id = "$Id: mkcell.c,v 1.3 1999/05/31 23:35:39 sybalsky Exp $ Copyri
|
||||
static LispPTR oldoldfree;
|
||||
static LispPTR oldfree;
|
||||
|
||||
LispPTR *alloc_mdspage(register short int type);
|
||||
LispPTR initmdspage(register LispPTR *base, register DLword size, register LispPTR prev);
|
||||
|
||||
LispPTR N_OP_createcell(register LispPTR tos) {
|
||||
register struct dtd *dtd68k;
|
||||
register DLword *ptr, *lastptr;
|
||||
|
||||
@ -47,9 +47,6 @@ static char *id = "$Id: mvs.c,v 1.3 1999/05/31 23:35:40 sybalsky Exp $ Copyright
|
||||
|
||||
LispPTR MVLIST_index;
|
||||
|
||||
LispPTR make_value_list(int argcount, LispPTR *argarray);
|
||||
void simulate_unbind(FX2 *frame, int unbind_count, FX2 *returner);
|
||||
|
||||
/****************************************************************/
|
||||
/* */
|
||||
/* VALUES */
|
||||
|
||||
@ -156,8 +156,6 @@ static void advance_array_seg(register unsigned int nxtpage)
|
||||
/* rare page num */
|
||||
{
|
||||
unsigned int ncellsleft;
|
||||
LispPTR mergebackward(LispPTR base);
|
||||
LispPTR makefreearrayblock(LispPTR block, DLword length);
|
||||
|
||||
/* Called when 8Mb are exhausted,and we want to switch array space
|
||||
into the extended area(Secondary space),starting with nextpage.
|
||||
@ -206,7 +204,6 @@ static void advance_array_seg(register unsigned int nxtpage)
|
||||
|
||||
/* DLword */
|
||||
static void advance_storagestate(DLword flg) {
|
||||
LispPTR dremove(LispPTR x, LispPTR l);
|
||||
#ifdef DEBUG
|
||||
printf("STORAGEFULLSTATE is now set to %d \n", flg);
|
||||
#endif
|
||||
@ -226,8 +223,6 @@ static void advance_storagestate(DLword flg) {
|
||||
*/
|
||||
/*****************************************************************/
|
||||
static void set_storage_state(void) {
|
||||
LispPTR cons(LispPTR cons_car, LispPTR cons_cdr);
|
||||
|
||||
if ((*MACHINETYPE_word & 0xffff) == KATANA) {
|
||||
if (InterfacePage->dl24bitaddressable != 0)
|
||||
*STORAGEFULLSTATE_word = S_POSITIVE | SFS_SWITCHABLE;
|
||||
|
||||
@ -74,8 +74,6 @@ extern int URaid_currentFX;
|
||||
extern FX *URaid_FXarray[];
|
||||
extern int URaid_ArrMAXIndex;
|
||||
|
||||
void print_package_name(int index);
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* P R I N T _ A T O M N A M E */
|
||||
|
||||
@ -399,8 +399,6 @@ int FindAvailablePty(char *Master, char *Slave) {
|
||||
return (-1);
|
||||
}
|
||||
|
||||
void WriteLispStringToPipe(LispPTR lispstr);
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* U n i x _ h a n d l e c o m m */
|
||||
|
||||
@ -23,10 +23,6 @@ static char *id = "$Id: vars3.c,v 1.4 2001/12/24 01:09:07 sybalsky Exp $ Copyrig
|
||||
#include "vars3defs.h"
|
||||
#include "car-cdrdefs.h"
|
||||
|
||||
/* def. of car_cell moved to cell.h */
|
||||
|
||||
struct cadr_cell cadr(LispPTR cell_adr);
|
||||
|
||||
/*******************************************
|
||||
cadr
|
||||
|
||||
|
||||
2
src/xc.c
2
src/xc.c
@ -158,8 +158,6 @@ register LispPTR tscache asm("bx");
|
||||
#define PVARL PVar
|
||||
#define IVARL IVar
|
||||
|
||||
extern DLword *createcell68k(unsigned int type);
|
||||
|
||||
#ifdef DOS
|
||||
extern unsigned char inchar;
|
||||
extern unsigned short kn;
|
||||
|
||||
2
src/z2.c
2
src/z2.c
@ -44,8 +44,6 @@ static char *id = "$Id: z2.c,v 1.3 1999/05/31 23:35:47 sybalsky Exp $ Copyright
|
||||
#include "conspagedefs.h"
|
||||
#include "vars3defs.h"
|
||||
|
||||
struct cadr_cell cadr(LispPTR cell_adr);
|
||||
|
||||
/* N_OP_classoc() OP 33Q */
|
||||
LispPTR N_OP_classoc(LispPTR key, LispPTR list) {
|
||||
REGISTER struct cadr_cell cadr1;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user