mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-25 16:30:00 +00:00
Create a new inc/xxxdefs.h for each src/xxx.c containing appropriate function prototypes.
This also involves removing unnecessary forward declarations, inserting
includes for all cross-file function references, making some definitions
static if they are not otherwise used, correcting errors that were exposed
by having correct prototypes.
new file: inc/allocmdsdefs.h
new file: inc/arith2defs.h
new file: inc/arith3defs.h
new file: inc/arith4defs.h
new file: inc/array2defs.h
new file: inc/array3defs.h
new file: inc/array4defs.h
new file: inc/array5defs.h
new file: inc/array6defs.h
new file: inc/arraydefs.h
new file: inc/bbtsubdefs.h
new file: inc/bindefs.h
new file: inc/bindsdefs.h
new file: inc/bitbltdefs.h
new file: inc/bltdefs.h
new file: inc/byteswapdefs.h
new file: inc/car-cdrdefs.h
new file: inc/chardevdefs.h
new file: inc/commondefs.h
new file: inc/conspagedefs.h
new file: inc/dbgtooldefs.h
new file: inc/dirdefs.h
new file: inc/drawdefs.h
new file: inc/dskdefs.h
new file: inc/dspifdefs.h
new file: inc/dspsubrsdefs.h
new file: inc/eqfdefs.h
new file: inc/etherdefs.h
new file: inc/findkeydefs.h
new file: inc/fpdefs.h
new file: inc/fvardefs.h
new file: inc/gc2defs.h
new file: inc/gcarraydefs.h
new file: inc/gccodedefs.h
new file: inc/gcdefs.h
new file: inc/gcfinaldefs.h
new file: inc/gchtfinddefs.h
new file: inc/gcmain3defs.h
new file: inc/gcoflowdefs.h
new file: inc/gcrcelldefs.h
new file: inc/gcrdefs.h
new file: inc/gcscandefs.h
new file: inc/gvar2defs.h
new file: inc/hacksdefs.h
new file: inc/hardrtndefs.h
new file: inc/inetdefs.h
new file: inc/initdspdefs.h
new file: inc/initkbddefs.h
new file: inc/initsoutdefs.h
modified: inc/inlineC.h
new file: inc/intcalldefs.h
new file: inc/kbdsubrsdefs.h
new file: inc/keyeventdefs.h
new file: inc/keylibdefs.h
new file: inc/kprintdefs.h
new file: inc/ldsoutdefs.h
new file: inc/lineblt8defs.h
new file: inc/lisp2cdefs.h
modified: inc/lispemul.h
new file: inc/llcolordefs.h
new file: inc/llstkdefs.h
modified: inc/lnk-inlineC.h
new file: inc/loopsopsdefs.h
new file: inc/lowlev1defs.h
new file: inc/lowlev2defs.h
new file: inc/lsthandldefs.h
new file: inc/maindefs.h
new file: inc/misc7defs.h
new file: inc/miscndefs.h
new file: inc/mkatomdefs.h
new file: inc/mkcelldefs.h
new file: inc/mvsdefs.h
new file: inc/osmsgdefs.h
new file: inc/perrnodefs.h
new file: inc/returndefs.h
new file: inc/rpcdefs.h
new file: inc/rplconsdefs.h
new file: inc/shiftdefs.h
new file: inc/storagedefs.h
new file: inc/subr0374defs.h
new file: inc/subrdefs.h
new file: inc/sxhashdefs.h
new file: inc/testtooldefs.h
new file: inc/timerdefs.h
new file: inc/typeofdefs.h
new file: inc/ubf1defs.h
new file: inc/ubf2defs.h
new file: inc/ubf3defs.h
new file: inc/ufsdefs.h
new file: inc/unixcommdefs.h
new file: inc/unwinddefs.h
new file: inc/uraiddefs.h
new file: inc/usrsubrdefs.h
new file: inc/uutilsdefs.h
new file: inc/vars3defs.h
new file: inc/vmemsavedefs.h
new file: inc/xbbtdefs.h
new file: inc/xcdefs.h
new file: inc/xcursordefs.h
new file: inc/xinitdefs.h
new file: inc/xlspwindefs.h
new file: inc/xmkicondefs.h
new file: inc/xrdoptdefs.h
new file: inc/xscrolldefs.h
new file: inc/xwinmandefs.h
new file: inc/z2defs.h
modified: src/allocmds.c
modified: src/arith2.c
modified: src/arith3.c
modified: src/arith4.c
modified: src/array.c
modified: src/array2.c
modified: src/array3.c
modified: src/array4.c
modified: src/array5.c
modified: src/array6.c
modified: src/bbtsub.c
modified: src/bin.c
modified: src/binds.c
modified: src/bitblt.c
modified: src/blt.c
modified: src/byteswap.c
modified: src/car-cdr.c
modified: src/chardev.c
modified: src/common.c
modified: src/conspage.c
modified: src/dbgtool.c
modified: src/dir.c
modified: src/draw.c
modified: src/dsk.c
modified: src/dspif.c
modified: src/dspsubrs.c
modified: src/eqf.c
modified: src/ether.c
modified: src/findkey.c
modified: src/foreign.c
modified: src/fp.c
modified: src/fvar.c
modified: src/gc.c
modified: src/gc2.c
modified: src/gcarray.c
modified: src/gccode.c
modified: src/gcfinal.c
modified: src/gchtfind.c
modified: src/gcmain3.c
modified: src/gcoflow.c
modified: src/gcr.c
modified: src/gcrcell.c
modified: src/gcscan.c
modified: src/gvar2.c
modified: src/hacks.c
modified: src/hardrtn.c
modified: src/inet.c
modified: src/initdsp.c
modified: src/initkbd.c
modified: src/initsout.c
modified: src/intcall.c
modified: src/kbdsubrs.c
modified: src/keyevent.c
modified: src/keylib.c
modified: src/kprint.c
modified: src/ldsout.c
modified: src/lineblt8.c
modified: src/lisp2c.c
modified: src/llcolor.c
modified: src/llstk.c
modified: src/loopsops.c
modified: src/lowlev1.c
modified: src/lowlev2.c
modified: src/lsthandl.c
modified: src/main.c
modified: src/misc7.c
modified: src/miscn.c
modified: src/mkatom.c
modified: src/mkcell.c
modified: src/mvs.c
modified: src/osmsg.c
modified: src/perrno.c
modified: src/return.c
modified: src/rpc.c
modified: src/rplcons.c
modified: src/setsout.c
modified: src/shift.c
modified: src/storage.c
modified: src/subr.c
modified: src/subr0374.c
modified: src/sxhash.c
modified: src/testtool.c
modified: src/timer.c
modified: src/truecolor.c
modified: src/tstsout.c
modified: src/typeof.c
modified: src/ubf1.c
modified: src/ubf2.c
modified: src/ubf3.c
modified: src/ufn.c
modified: src/ufs.c
modified: src/unixcomm.c
modified: src/unwind.c
modified: src/uraid.c
modified: src/usrsubr.c
modified: src/uutils.c
modified: src/vars3.c
modified: src/vmemsave.c
modified: src/xbbt.c
modified: src/xc.c
modified: src/xcursor.c
modified: src/xinit.c
modified: src/xlspwin.c
modified: src/xmkicon.c
modified: src/xrdopt.c
modified: src/xscroll.c
modified: src/xwinman.c
modified: src/z2.c
This commit is contained in:
Nick Briggs
179
src/hardrtn.c
179
src/hardrtn.c
@@ -33,9 +33,12 @@ 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"
|
||||
|
||||
#include "hardrtndefs.h"
|
||||
#include "commondefs.h"
|
||||
#include "llstkdefs.h"
|
||||
|
||||
#define MAKE_FXCOPY(fx68k) \
|
||||
{ \
|
||||
BEFORE_CONTEXTSW; \
|
||||
@@ -43,7 +46,92 @@ static char *id = "$Id: hardrtn.c,v 1.4 2001/12/24 01:09:02 sybalsky Exp $ Copyr
|
||||
AFTER_CONTEXTSW; \
|
||||
CHECK_FX(fx68k); \
|
||||
}
|
||||
void incusecount68k(FX *fx68k), decusecount68k(register FX *frame68k);
|
||||
static FX *make_FXcopy(register FX *fx68k) {
|
||||
register int size;
|
||||
int nametbl_on_stk = NIL;
|
||||
register DLword *new68k;
|
||||
register Bframe *retbf68k;
|
||||
extern DLword *freestackblock(DLword n, StackWord * start68k, int align);
|
||||
|
||||
#ifdef FLIPCURSOR
|
||||
flip_cursorbar(5);
|
||||
#endif
|
||||
|
||||
CHECK_FX(fx68k);
|
||||
size = FX_size(fx68k) + DLWORDSPER_CELL;
|
||||
#ifdef BIGVM
|
||||
if (fx68k->validnametable && ((fx68k->nametable >> 16) == STK_HI))
|
||||
#else
|
||||
if (fx68k->validnametable && (fx68k->hi2nametable == STK_HI))
|
||||
#endif /* BIGVM */
|
||||
{
|
||||
/* frame contains a name table, so we care that the alignment
|
||||
of the new block be same as old */
|
||||
#ifdef STACKCHECK
|
||||
{
|
||||
DLword n;
|
||||
#ifdef BIGVM
|
||||
n = fx68k->nametable & 0xFFFF;
|
||||
#else
|
||||
n = fx68k->lonametable;
|
||||
#endif /* BIGVM */
|
||||
if ((n <= StkOffset_from_68K(fx68k)) && (n >= fx68k->nextblock))
|
||||
error("hardreturn:nametable check");
|
||||
}
|
||||
#endif
|
||||
nametbl_on_stk = T;
|
||||
/* Find a free stack block */
|
||||
new68k = freestackblock(size, (StackWord *)CURRENTFX,
|
||||
(StkOffset_from_68K(fx68k) - DLWORDSPER_CELL) % DLWORDSPER_QUAD);
|
||||
} /*if end */
|
||||
else
|
||||
new68k = freestackblock(size, (StackWord *)CURRENTFX, -1); /* No align */
|
||||
|
||||
if (new68k == 0) return (0); /* No more space for STACK */
|
||||
|
||||
/* blt(dest,source,size) */
|
||||
blt(new68k, (((DLword *)fx68k) - DLWORDSPER_CELL), size);
|
||||
|
||||
((Bframe *)new68k)->residual = T;
|
||||
new68k = new68k + DLWORDSPER_CELL; /* now NEW points to the FX */
|
||||
((FX *)new68k)->nextblock = (StkOffset_from_68K(new68k) + size) - DLWORDSPER_CELL;
|
||||
retbf68k = (Bframe *)Addr68k_from_StkOffset(GETBLINK(fx68k));
|
||||
/* Set true BFptr,not the residual */
|
||||
SETBLINK(new68k, GETBLINK(fx68k));
|
||||
((FX *)new68k)->usecount = 0;
|
||||
CHECK_BF(retbf68k);
|
||||
|
||||
#ifdef BIGVM
|
||||
if (nametbl_on_stk) ((FX *)new68k)->nametable += (((UNSIGNED)new68k - (UNSIGNED)fx68k) >> 1);
|
||||
#else
|
||||
if (nametbl_on_stk) ((FX *)new68k)->lonametable += (((UNSIGNED)new68k - (UNSIGNED)fx68k) >> 1);
|
||||
#endif
|
||||
/* increment use count of basic frame of returnee because
|
||||
we made another FX which points to it */
|
||||
retbf68k->usecnt++;
|
||||
SET_FASTP_NIL(fx68k);
|
||||
/* increment use count of CLINK of returnee
|
||||
because we made a copy of returnee */
|
||||
incusecount68k((FX *)Addr68k_from_StkOffset(GETCLINK(fx68k)));
|
||||
|
||||
if (GETCLINK(fx68k) != GETALINK(fx68k)) {
|
||||
incusecount68k((FX *)Addr68k_from_StkOffset(GETALINK(fx68k)));
|
||||
}
|
||||
|
||||
decusecount68k(fx68k); /* if usecon==0 -> FSB */
|
||||
SETACLINK(CURRENTFX, StkOffset_from_68K(new68k));
|
||||
CHECK_FX((FX *)new68k);
|
||||
CHECK_FX(CURRENTFX);
|
||||
#ifdef STACKCHECK
|
||||
stack_check(0);
|
||||
#endif
|
||||
#ifdef FLIPCURSOR
|
||||
flip_cursorbar(5);
|
||||
#endif
|
||||
|
||||
return ((FX *)new68k);
|
||||
} /* make_FXcopy end */
|
||||
|
||||
/********************************************************************/
|
||||
/*
|
||||
Func Name : slowreturn()
|
||||
@@ -62,7 +150,6 @@ int slowreturn(void) {
|
||||
register DLword *freeptr;
|
||||
register Bframe *currentBF;
|
||||
register FX *returnFX;
|
||||
extern FX *make_FXcopy(register FX * fx68k);
|
||||
|
||||
S_CHECK(SLOWP(CURRENTFX), "CURRENTFX not SLOWP");
|
||||
|
||||
@@ -168,92 +255,6 @@ retry: /* this is retry entry after MAKE_FXCOPY etc */
|
||||
|
||||
} /* slowreturn end */
|
||||
|
||||
FX *make_FXcopy(register FX *fx68k) {
|
||||
register int size;
|
||||
int nametbl_on_stk = NIL;
|
||||
register DLword *new68k;
|
||||
register Bframe *retbf68k;
|
||||
extern DLword *freestackblock(DLword n, StackWord * start68k, int align);
|
||||
|
||||
#ifdef FLIPCURSOR
|
||||
flip_cursorbar(5);
|
||||
#endif
|
||||
|
||||
CHECK_FX(fx68k);
|
||||
size = FX_size(fx68k) + DLWORDSPER_CELL;
|
||||
#ifdef BIGVM
|
||||
if (fx68k->validnametable && ((fx68k->nametable >> 16) == STK_HI))
|
||||
#else
|
||||
if (fx68k->validnametable && (fx68k->hi2nametable == STK_HI))
|
||||
#endif /* BIGVM */
|
||||
{
|
||||
/* frame contains a name table, so we care that the alignment
|
||||
of the new block be same as old */
|
||||
#ifdef STACKCHECK
|
||||
{
|
||||
DLword n;
|
||||
#ifdef BIGVM
|
||||
n = fx68k->nametable & 0xFFFF;
|
||||
#else
|
||||
n = fx68k->lonametable;
|
||||
#endif /* BIGVM */
|
||||
if ((n <= StkOffset_from_68K(fx68k)) && (n >= fx68k->nextblock))
|
||||
error("hardreturn:nametable check");
|
||||
}
|
||||
#endif
|
||||
nametbl_on_stk = T;
|
||||
/* Find a free stack block */
|
||||
new68k = freestackblock(size, (StackWord *)CURRENTFX,
|
||||
(StkOffset_from_68K(fx68k) - DLWORDSPER_CELL) % DLWORDSPER_QUAD);
|
||||
} /*if end */
|
||||
else
|
||||
new68k = freestackblock(size, (StackWord *)CURRENTFX, -1); /* No align */
|
||||
|
||||
if (new68k == 0) return (0); /* No more space for STACK */
|
||||
|
||||
/* blt(dest,source,size) */
|
||||
blt(new68k, (((DLword *)fx68k) - DLWORDSPER_CELL), size);
|
||||
|
||||
((Bframe *)new68k)->residual = T;
|
||||
new68k = new68k + DLWORDSPER_CELL; /* now NEW points to the FX */
|
||||
((FX *)new68k)->nextblock = (StkOffset_from_68K(new68k) + size) - DLWORDSPER_CELL;
|
||||
retbf68k = (Bframe *)Addr68k_from_StkOffset(GETBLINK(fx68k));
|
||||
/* Set true BFptr,not the residual */
|
||||
SETBLINK(new68k, GETBLINK(fx68k));
|
||||
((FX *)new68k)->usecount = 0;
|
||||
CHECK_BF(retbf68k);
|
||||
|
||||
#ifdef BIGVM
|
||||
if (nametbl_on_stk) ((FX *)new68k)->nametable += (((UNSIGNED)new68k - (UNSIGNED)fx68k) >> 1);
|
||||
#else
|
||||
if (nametbl_on_stk) ((FX *)new68k)->lonametable += (((UNSIGNED)new68k - (UNSIGNED)fx68k) >> 1);
|
||||
#endif
|
||||
/* increment use count of basic frame of returnee because
|
||||
we made another FX which points to it */
|
||||
retbf68k->usecnt++;
|
||||
SET_FASTP_NIL(fx68k);
|
||||
/* increment use count of CLINK of returnee
|
||||
because we made a copy of returnee */
|
||||
incusecount68k((FX *)Addr68k_from_StkOffset(GETCLINK(fx68k)));
|
||||
|
||||
if (GETCLINK(fx68k) != GETALINK(fx68k)) {
|
||||
incusecount68k((FX *)Addr68k_from_StkOffset(GETALINK(fx68k)));
|
||||
}
|
||||
|
||||
decusecount68k(fx68k); /* if usecon==0 -> FSB */
|
||||
SETACLINK(CURRENTFX, StkOffset_from_68K(new68k));
|
||||
CHECK_FX((FX *)new68k);
|
||||
CHECK_FX(CURRENTFX);
|
||||
#ifdef STACKCHECK
|
||||
stack_check(0);
|
||||
#endif
|
||||
#ifdef FLIPCURSOR
|
||||
flip_cursorbar(5);
|
||||
#endif
|
||||
|
||||
return ((FX *)new68k);
|
||||
} /* make_FXcopy end */
|
||||
|
||||
#define MAXSAFEUSECOUNT 200
|
||||
|
||||
void incusecount68k(FX *fx68k) {
|
||||
|
||||
Reference in New Issue
Block a user