github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-05 18:49:09 +00:00
Code Issues Projects Releases Wiki Activity

Fix ups for new llstk.h.

Browse Source 
modified:   bin/makefile-darwin.386-x
	modified:   bin/makefile-tail
	new file:   inc/llstk.h
	modified:   src/gcfinal.c
	modified:   src/hardrtn.c
	modified:   src/llstk.c
	modified:   src/uraid.c
	modified:   src/xc.c
	modified:   src/xc.c.orig
This commit is contained in:
Nick Briggs
2017-06-30 17:42:46 -07:00
parent b7b658e8d3
commit 35b4ad4350
9 changed files with 25 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bin/makefile-darwin.386-x
View File

@@ -48,5 +48,5 @@ $(OBJECTDIR)xc.o: $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emlglob.h \
$(INCDIR)initatms.h $(INCDIR)gc.h \
$(INCDIR)arith.h $(INCDIR)stream.h \
$(INCDIR)tos1defs.h $(INCDIR)tosret.h \
$(INCDIR)tosfns.h $(INCDIR)inlineC.h $(INCDIR)car-cdr.h $(INCDIR)conspage.h
$(INCDIR)tosfns.h $(INCDIR)inlineC.h $(INCDIR)car-cdr.h $(INCDIR)conspage.h $(INCDIR)llstk.h
$(CC) $(DISPRFLAGS) -UOPDISP $(SRCDIR)xc.c -I$(INCDIR) -o $(OBJECTDIR)xc.o

8
bin/makefile-tail
View File

@@ -521,7 +521,7 @@ $(OBJECTDIR)gcarray.o : $(SRCDIR)gcarray.c $(REQUIRED-INCS) $(INCDIR)lispemul.
$(OBJECTDIR)gcfinal.o : $(SRCDIR)gcfinal.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \
$(INCDIR)lsptypes.h $(INCDIR)address.h \
$(INCDIR)adr68k.h $(INCDIR)lspglob.h $(INCDIR)stack.h \
$(INCDIR)adr68k.h $(INCDIR)lspglob.h $(INCDIR)stack.h $(INCDIR)llstk.h\
$(INCDIR)cell.h $(INCDIR)ifpage.h $(INCDIR)gc.h \
$(INCDIR)array.h
$(CC) $(RFLAGS) $(SRCDIR)gcfinal.c $(INLINE) -o $(OBJECTDIR)gcfinal$(OEXT)
@@ -574,7 +574,7 @@ $(OBJECTDIR)gvar2.o : $(SRCDIR)gvar2.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \
$(OBJECTDIR)hardrtn.o : $(SRCDIR)hardrtn.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \
$(INCDIR)lspglob.h $(INCDIR)adr68k.h \
$(INCDIR)cell.h $(INCDIR)stack.h $(INCDIR)return.h \
$(INCDIR)cell.h $(INCDIR)stack.h $(INCDIR)llstk.h $(INCDIR)return.h \
$(INCDIR)emlglob.h
$(CC) $(RFLAGS) $(SRCDIR)hardrtn.c $(INLINE) -o $(OBJECTDIR)hardrtn$(OEXT)
@@ -628,7 +628,7 @@ $(OBJECTDIR)lsthandl.o : $(SRCDIR)lsthandl.c $(REQUIRED-INCS) $(INCDIR)lispemu
$(INCDIR)cell.h $(INCDIR)car-cdr.h
$(CC) $(RFLAGS) $(SRCDIR)lsthandl.c $(INLINE) -o $(OBJECTDIR)lsthandl$(OEXT)
$(OBJECTDIR)llstk.o : $(SRCDIR)llstk.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \
$(OBJECTDIR)llstk.o : $(SRCDIR)llstk.c $(INCDIR)llstk.h $(REQUIRED-INCS) $(INCDIR)lispemul.h \
$(INCDIR)lispmap.h $(INCDIR)adr68k.h \
$(INCDIR)address.h $(INCDIR)lsptypes.h $(INCDIR)initatms.h \
$(INCDIR)lspglob.h $(INCDIR)emlglob.h $(INCDIR)cell.h \
@@ -764,7 +764,7 @@ $(OBJECTDIR)unixcomm.o : $(SRCDIR)unixcomm.c $(REQUIRED-INCS) $(INCDIR)lispemu
$(OBJECTDIR)uraid.o : $(SRCDIR)uraid.c $(REQUIRED-INCS) $(INCDIR)lispemul.h \
$(INCDIR)address.h $(INCDIR)adr68k.h \
$(INCDIR)lsptypes.h $(INCDIR)lispmap.h $(INCDIR)emlglob.h \
$(INCDIR)lspglob.h $(INCDIR)cell.h $(INCDIR)stack.h \
$(INCDIR)lspglob.h $(INCDIR)cell.h $(INCDIR)stack.h $(INCDIR)llstk.h \
$(INCDIR)debug.h $(INCDIR)uraid.h
$(CC) $(RFLAGS) $(SRCDIR)uraid.c $(INLINE) -o $(OBJECTDIR)uraid$(OEXT)

11
inc/llstk.h Normal file
View File

@@ -0,0 +1,11 @@
DLword *freestackblock(DLword n, StackWord *start68k, int align);
int do_stackoverflow(int incallp);
void decusecount68k(register FX *frame68k);
void flip_cursorbar(int n);
void blt(register DLword *dest68k, register DLword *source68k, int nw);
void stack_check(StackWord *start68k);
void walk_stack(StackWord *start68k);
void quick_stack_check(void);
void check_FX(FX *fx68k);
void check_BF(Bframe *bf68k);
int check_stack_rooms(FX *fx68k);

1
src/gcfinal.c
View File

@@ -54,6 +54,7 @@ static char *id = "$Id: gcfinal.c,v 1.3 1999/05/31 23:35:31 sybalsky Exp $ Copyr
#include "adr68k.h"
#include "lspglob.h"
#include "stack.h"
#include "llstk.h"
#include "cell.h"
#include "ifpage.h"
#include "gc.h"

1
src/hardrtn.c
View File

@@ -37,6 +37,7 @@ static char *id = "$Id: hardrtn.c,v 1.4 2001/12/24 01:09:02 sybalsky Exp $ Copyr
#include "emlglob.h"
#include "cell.h"
#include "stack.h"
#include "llstk.h"
#include "return.h"
#define MAKE_FXCOPY(fx68k) \

9
src/llstk.c
View File

@@ -36,11 +36,12 @@ static char *id = "$Id: llstk.c,v 1.5 2001/12/26 22:17:03 sybalsky Exp $ Copyrig
#include "emlglob.h"
#include "cell.h"
#include "stack.h"
#include "llstk.h"
#include "return.h"
extern int extended_frame;
void blt(register DLword *dest68k, register DLword *source68k, int nw);
static DLword *extendstack(void);
/******************************************************************/
/*
@@ -49,12 +50,10 @@ void blt(register DLword *dest68k, register DLword *source68k, int nw);
Edited by : Take(March 14, 1988)
*/
/******************************************************************/
LispPTR moveframe(register FX *oldfx68k) {
static LispPTR moveframe(register FX *oldfx68k) {
register int size;
register DLword *next68k;
register DLword *new68k;
DLword *freestackblock(DLword n, StackWord * start68k, int align);
DLword *extendstack(void);
int nametbl_on_stk = NIL;
int at_eos = NIL;
@@ -252,7 +251,7 @@ int do_stackoverflow(int incallp) {
*/
/******************************************************************/
DLword *extendstack(void) {
static DLword *extendstack(void) {
register LispPTR easp;
register LispPTR scanptr;

1
src/uraid.c
View File

@@ -82,6 +82,7 @@ extern int Win_security_p;
#include "emlglob.h"
#include "cell.h"
#include "stack.h"
#include "llstk.h"
#include "ifpage.h"
#include "debug.h"
#include "devconf.h"

1
src/xc.c
View File

@@ -45,6 +45,7 @@ static char *id = "$Id: xc.c,v 1.4 2001/12/26 22:17:06 sybalsky Exp $ Copyright
#include "address.h"
#include "adr68k.h"
#include "stack.h"
#include "llstk.h"
#include "dbprint.h"
#include "lspglob.h"

1
src/xc.c.orig
View File

@@ -50,6 +50,7 @@ static char *id = "$Id: xc.c,v 1.3 1999/05/31 23:35:47 sybalsky Exp $ Copyright
#include "address.h"
#include "adr68k.h"
#include "stack.h"
#include "llstk.h"
#include "dbprint.h"
#include "lspglob.h"