mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 15:18:14 +00:00
68baf6fb30
Rather than adding/or-ing the STK_OFFSET constant into a stack offset to convert it to a pointer in general Lisp memory and then converting from that to a native address... use the functions specifically present to do those conversions with embedded checks on stack offset validity.
115 lines
3.9 KiB
C
115 lines
3.9 KiB
C
#ifndef RETURN_H
|
|
#define RETURN_H 1
|
|
/* $Id: return.h,v 1.2 1999/01/03 02:06:22 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
|
|
/**************************************************************/
|
|
/*
|
|
|
|
File Name : return.h
|
|
Desc. : Macros for return,contextsw
|
|
|
|
Written by : Takeshi Shimizu
|
|
11-May-88
|
|
|
|
*/
|
|
/**************************************************************/
|
|
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-98 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
|
|
#ifdef BIGVM
|
|
#define FX_FNHEADER CURRENTFX->fnheader
|
|
#else
|
|
#define FX_FNHEADER (CURRENTFX->hi2fnheader << 16) | CURRENTFX->lofnheader
|
|
#endif /* BIGVM */
|
|
|
|
|
|
|
|
/* FAST case return use */
|
|
#ifndef RESWAPPEDCODESTREAM
|
|
#define FastRetCALL \
|
|
do { \
|
|
/* Get IVar from Returnee's IVAR offset slot(BF) */ \
|
|
IVar = NativeAligned2FromStackOffset(GETWORD((DLword *)CURRENTFX - 1)); \
|
|
/* Get FuncObj from Returnee's FNHEAD slot in FX */ \
|
|
FuncObj = (struct fnhead *)NativeAligned4FromLAddr(FX_FNHEADER); \
|
|
/* Get PC from Returnee's pc slot in FX */ \
|
|
PC = (ByteCode *)FuncObj + CURRENTFX->pc ; \
|
|
} while (0)
|
|
#else
|
|
#define FastRetCALL \
|
|
do { \
|
|
/* Get IVar from Returnee's IVAR offset slot(BF) */ \
|
|
IVar = NativeAligned2FromStackOffset(GETWORD((DLword *)CURRENTFX - 1)); \
|
|
/* Get FuncObj from Returnee's FNHEAD slot in FX */ \
|
|
FuncObj = (struct fnhead *)NativeAligned4FromLAddr(FX_FNHEADER); \
|
|
/* Get PC from Returnee's pc slot in FX */ \
|
|
PC = (ByteCode *)FuncObj + CURRENTFX->pc ; \
|
|
if (!(FuncObj->byteswapped)) \
|
|
{ \
|
|
byte_swap_code_block(FuncObj); \
|
|
FuncObj->byteswapped = 1; \
|
|
} \
|
|
} while (0)
|
|
#endif /* RESWAPPEDCODESTREAM */
|
|
|
|
|
|
|
|
/** in CONTEXTSW , for exchanging context **/
|
|
|
|
#define Midpunt(fxnum) \
|
|
do { DLword midpunt; \
|
|
midpunt = LOLOC(LAddrFromNative(CURRENTFX)); \
|
|
PVar=(DLword *) \
|
|
NativeAligned2FromStackOffset( \
|
|
(GETWORD(((DLword *)InterfacePage) + (fxnum)))) \
|
|
+ FRAMESIZE; \
|
|
GETWORD(((DLword *)InterfacePage) + (fxnum)) = midpunt ; \
|
|
} while (0)
|
|
|
|
|
|
#define CHECKFX \
|
|
do { if (((UNSIGNED)PVar -(UNSIGNED)CURRENTFX) != 20) \
|
|
{ printf("Invalid FX(0x%x) and PV(0x%x) \n", \
|
|
LAddrFromNative(CURRENTFX),LAddrFromNative(PVar)); \
|
|
} \
|
|
} while (0)
|
|
|
|
|
|
|
|
/**** Calls when invoke the function is assumed
|
|
that it is called by CONTEXTSW in original LISP code **/
|
|
|
|
#define BEFORE_CONTEXTSW \
|
|
do { CurrentStackPTR += 2; \
|
|
CURRENTFX->nextblock=StackOffsetFromNative(CurrentStackPTR); \
|
|
GETWORD(CurrentStackPTR)=STK_FSB_WORD; \
|
|
GETWORD(CurrentStackPTR+1)= (((UNSIGNED)EndSTKP-(UNSIGNED)(CurrentStackPTR))>>1); \
|
|
if (GETWORD(CurrentStackPTR+1) == 0) error("0-long free block."); \
|
|
} while (0)
|
|
|
|
|
|
#define AFTER_CONTEXTSW \
|
|
do { DLword *ac_ptr68k,*ac_freeptr; \
|
|
ac_ptr68k = (DLword*)NativeAligned2FromStackOffset(CURRENTFX->nextblock); \
|
|
if(GETWORD(ac_ptr68k) != STK_FSB_WORD) error("pre_moveframe: MP9316"); \
|
|
CHECK_FX(CURRENTFX); \
|
|
ac_freeptr=ac_ptr68k; \
|
|
while(GETWORD(ac_freeptr) == STK_FSB_WORD) \
|
|
EndSTKP=ac_freeptr=ac_freeptr+ GETWORD(ac_freeptr+1); \
|
|
S_CHECK(CURRENTFX->incall== NIL, "CONTEXTSW during fn call"); \
|
|
/*S_CHECK(CURRENTFX->nopush== NIL, "CONTEXTSW, NOPUSH is set"); ** JDS 4/9/96 this seems not to matter, so I removed it. */\
|
|
CurrentStackPTR = ac_ptr68k- 2 ; \
|
|
CHECK_FX(CURRENTFX); \
|
|
S_CHECK( EndSTKP > CurrentStackPTR, \
|
|
"End of stack isn't beyond current stk pointer."); \
|
|
} while (0)
|
|
#endif /* RETURN_H */
|