mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-01 14:22:27 +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:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user