github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 12:22:24 +00:00
Code Issues Projects Releases Wiki Activity

Create storage.h to declare functions defined in storage.c

Browse Source 
Update files that depend on storage functions to include storage.h
Declare as static all functions in storage.c that are not needed externally.
Add dependencies to makefile-tail.

	modified:   makefile-tail
	new file:   ../inc/storage.h
	modified:   ../src/allocmds.c
	modified:   ../src/gchtfind.c
	modified:   ../src/llstk.c
	modified:   ../src/main.c
	modified:   ../src/storage.c
	modified:   ../src/subr.c
This commit is contained in:
Nick Briggs
2017-07-02 21:21:50 -07:00
parent 45a547e088
commit b6bd2ed29f
8 changed files with 22 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/allocmds.c
View File

@@ -40,6 +40,7 @@ static char *id = "$Id: allocmds.c,v 1.4 1999/05/31 23:35:20 sybalsky Exp $ Copy
#include "initatms.h"
#include "sysatms.h"
#include "lspglob.h"
#include "storage.h"
/************************************************************************/
/* */

1
src/gchtfind.c
View File

@@ -24,6 +24,7 @@ static char *id = "$Id: gchtfind.c,v 1.3 1999/05/31 23:35:31 sybalsky Exp $ Copy
#include "gc.h"
#include "lispmap.h"
#include "cell.h"
#include "storage.h"
#define Evenp(num, prim) ((num % prim) == 0)
#ifdef BIGVM

1
src/llstk.c
View File

@@ -38,6 +38,7 @@ static char *id = "$Id: llstk.c,v 1.5 2001/12/26 22:17:03 sybalsky Exp $ Copyrig
#include "stack.h"
#include "llstk.h"
#include "return.h"
#include "storage.h"
extern int extended_frame;

1
src/main.c
View File

@@ -96,6 +96,7 @@ static char *id = "$Id: main.c,v 1.4 2001/12/26 22:17:03 sybalsky Exp $ Copyrigh
#include "profile.h"
#include "timeout.h"
#include "storage.h"
DLword *Lisp_world; /* lispworld */

13
src/storage.c
View File

@@ -36,13 +36,15 @@ static const char *id =
#include "lsptypes.h"
#include "ifpage.h"
#include "gc.h"
#include "storage.h"
#define MINARRAYBLOCKSIZE 4
#define GUARDVMEMFULL 500
#define IFPVALID_KEY 5603
void advance_array_seg(register unsigned int nxtpage);
void set_storage_state(void);
static void advance_array_seg(register unsigned int nxtpage);
static void advance_storagestate(DLword flg);
static void set_storage_state(void);
/*****************************************************************/
/*
@@ -58,7 +60,6 @@ void set_storage_state(void);
void checkfor_storagefull(register unsigned int npages) {
register int pagesleft;
register INTSTAT *int_state;
void advance_storagestate(DLword flg);
#ifdef BIGVM
pagesleft = (*Next_MDSpage_word) - (*Next_Array_word) - PAGESPER_MDSUNIT;
@@ -150,7 +151,7 @@ void checkfor_storagefull(register unsigned int npages) {
*/
/*****************************************************************/
void advance_array_seg(register unsigned int nxtpage)
static void advance_array_seg(register unsigned int nxtpage)
/* rare page num */
{
unsigned int ncellsleft;
@@ -203,7 +204,7 @@ void advance_array_seg(register unsigned int nxtpage)
/*****************************************************************/
/* DLword */
void advance_storagestate(DLword flg) {
static void advance_storagestate(DLword flg) {
LispPTR dremove(LispPTR x, LispPTR l);
#ifdef DEBUG
printf("STORAGEFULLSTATE is now set to %d \n", flg);
@@ -223,7 +224,7 @@ void advance_storagestate(DLword flg) {
*/
/*****************************************************************/
void set_storage_state(void) {
static void set_storage_state(void) {
LispPTR cons(LispPTR cons_car, LispPTR cons_cdr);
if ((*MACHINETYPE_word & 0xffff) == KATANA) {

1
src/subr.c
View File

@@ -52,6 +52,7 @@ static char *id = "$Id: subr.c,v 1.3 1999/05/31 23:35:42 sybalsky Exp $ Copyrigh
#include "dir.h"
#include "chardev.h"
#include "dspsubrs.h"
#include "storage.h"
extern LispPTR *PENDINGINTERRUPT68k;