#ifndef RETMACRO_H
#define RETMACRO_H 1
/* $Id: return.h,v 1.2 1999/01/03 02:06:22 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */


/**************************************************************/
/*

	File Name : 	retmacro.h (was 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 /* RETMACRO_H */