Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

2026-02-15 20:26:33 +00:00 · 2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
--- a/inc/return.h
+++ b/inc/return.h
@@ -0,0 +1,118 @@
+/* $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.			*/
+/*									*/
+/*	The contents of this file are proprietary information 		*/
+/*	belonging to Venue, and are provided to you under license.	*/
+/*	They may not be further distributed or disclosed to third	*/
+/*	parties without the specific permission of Venue.		*/
+/*									*/
+/************************************************************************/
+
+
+#ifdef BIGVM
+#define FX_FNHEADER CURRENTFX->fnheader
+#else
+#define FX_FNHEADER (CURRENTFX->hi2fnheader << 16) | CURRENTFX->lofnheader
+#endif /* BIGVM */
+
+
+
+/* FAST case return use */
+#ifndef ISC
+#define FastRetCALL							\
+  {									\
+    /* Get IVar from Retunee's IVAR offset slot(BF) */ 			\
+    IVar = Addr68k_from_LADDR(STK_OFFSET | GETWORD((DLword *)CURRENTFX -1)); \
+    /* Get FuncObj from Retunee's FNHEAD slot in FX */ 			\
+    FuncObj = (struct fnhead *)						\
+		Addr68k_from_LADDR(FX_FNHEADER);	\
+    /* Get PC from Retunee's pc slot in FX */ 				\
+    PC = (ByteCode *)FuncObj + CURRENTFX->pc ; 				\
+  }
+#else
+#define FastRetCALL							\
+  {									\
+    /* Get IVar from Retunee's IVAR offset slot(BF) */ 			\
+    IVar = Addr68k_from_LADDR(STK_OFFSET | GETWORD((DLword *)CURRENTFX -1)); \
+    /* Get FuncObj from Retunee's FNHEAD slot in FX */ 			\
+    FuncObj = (struct fnhead *)						\
+		Addr68k_from_LADDR(FX_FNHEADER);	\
+    /* Get PC from Retunee's pc slot in FX */ 				\
+    PC = (ByteCode *)FuncObj + CURRENTFX->pc ; 				\
+    if (!(FuncObj->byteswapped))					\
+      {								\
+	byte_swap_code_block(FuncObj);				\
+	FuncObj->byteswapped = 1;				\
+      }								\
+  }
+#endif /* ISC */
+
+
+
+/** in CONTEXTSW , for exchanging context **/
+
+#define Midpunt(fxnum) 							\
+  { register DLword midpunt; 					\
+    midpunt = LOLOC(LADDR_from_68k(CURRENTFX));			\
+    PVar=(DLword *)							\
+	    Addr68k_from_StkOffset(					\
+			(GETWORD(((DLword *)InterfacePage) +fxnum)))	\
+		+ FRAMESIZE; 						\
+    GETWORD(((DLword *)InterfacePage) +fxnum) = midpunt ;		\
+  }
+
+
+#define CHECKFX							\
+  if (((UNSIGNED)PVar -(UNSIGNED)CURRENTFX) != 20)			\
+    { printf("Invalid FX(0x%x) and PV(0x%x) \n",		\
+	     LADDR_from_68k(CURRENTFX),LADDR_from_68k(PVar));	\
+    }
+
+
+
+/**** Calls when invoke the function is assumed
+	that it is called by CONTEXTSW in orginal LISP code **/
+
+#define BEFORE_CONTEXTSW						\
+  { CurrentStackPTR += 2; 						\
+    CURRENTFX->nextblock=StkOffset_from_68K(CurrentStackPTR); 		\
+    GETWORD(CurrentStackPTR)=STK_FSB_WORD; 				\
+    GETWORD(CurrentStackPTR+1)= (((UNSIGNED)EndSTKP-(UNSIGNED)(CurrentStackPTR))>>1); \
+    if (GETWORD(CurrentStackPTR+1) == 0) error("0-long free block."); \
+  }
+
+
+#define AFTER_CONTEXTSW							\
+  { register DLword *ptr68k,*freeptr;					\
+    ptr68k = (DLword*)Addr68k_from_StkOffset(CURRENTFX->nextblock);	\
+    if(GETWORD(ptr68k) != STK_FSB_WORD) error("pre_moveframe: MP9316");	\
+    CHECK_FX(CURRENTFX);						\
+    freeptr=ptr68k;							\
+    while(GETWORD(freeptr) == STK_FSB_WORD)  				\
+      EndSTKP=freeptr=freeptr+  GETWORD(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 = ptr68k- 2 ;					\
+    CHECK_FX(CURRENTFX);						\
+    S_CHECK( EndSTKP > CurrentStackPTR, 				\
+		"End of stack isn't beyond current stk pointer."); 	\
+  }
+