summaryrefslogtreecommitdiff
path: root/src/qcommon/vm_ppc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/qcommon/vm_ppc.c')
-rw-r--r--src/qcommon/vm_ppc.c1479
1 files changed, 1479 insertions, 0 deletions
diff --git a/src/qcommon/vm_ppc.c b/src/qcommon/vm_ppc.c
new file mode 100644
index 00000000..2314b0c5
--- /dev/null
+++ b/src/qcommon/vm_ppc.c
@@ -0,0 +1,1479 @@
+/*
+===========================================================================
+Copyright (C) 1999-2005 Id Software, Inc.
+
+This file is part of Quake III Arena source code.
+
+Quake III Arena source code is free software; you can redistribute it
+and/or modify it under the terms of the GNU General Public License as
+published by the Free Software Foundation; either version 2 of the License,
+or (at your option) any later version.
+
+Quake III Arena source code is distributed in the hope that it will be
+useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with Quake III Arena source code; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+===========================================================================
+*/
+// vm_ppc.c
+// ppc dynamic compiler
+
+#include "vm_local.h"
+
+#pragma opt_pointer_analysis off
+
+
+typedef enum {
+ R_REAL_STACK = 1,
+ // registers 3-11 are the parameter passing registers
+
+ // state
+ R_STACK = 3, // local
+ R_OPSTACK, // global
+
+ // constants
+ R_MEMBASE, // global
+ R_MEMMASK,
+ R_ASMCALL, // global
+ R_INSTRUCTIONS, // global
+ R_NUM_INSTRUCTIONS, // global
+ R_CVM, // currentVM
+
+ // temps
+ R_TOP = 11,
+ R_SECOND = 12,
+ R_EA = 2 // effective address calculation
+
+} regNums_t;
+
+#define RG_REAL_STACK r1
+#define RG_STACK r3
+#define RG_OPSTACK r4
+#define RG_MEMBASE r5
+#define RG_MEMMASK r6
+#define RG_ASMCALL r7
+#define RG_INSTRUCTIONS r8
+#define RG_NUM_INSTRUCTIONS r9
+#define RG_CVM r10
+#define RG_TOP r12
+#define RG_SECOND r13
+#define RG_EA r14
+
+// this doesn't have the low order bits set for instructions i'm not using...
+typedef enum {
+ PPC_TDI = 0x08000000,
+ PPC_TWI = 0x0c000000,
+ PPC_MULLI = 0x1c000000,
+ PPC_SUBFIC = 0x20000000,
+ PPC_CMPI = 0x28000000,
+ PPC_CMPLI = 0x2c000000,
+ PPC_ADDIC = 0x30000000,
+ PPC_ADDIC_ = 0x34000000,
+ PPC_ADDI = 0x38000000,
+ PPC_ADDIS = 0x3c000000,
+ PPC_BC = 0x40000000,
+ PPC_SC = 0x44000000,
+ PPC_B = 0x48000000,
+
+ PPC_MCRF = 0x4c000000,
+ PPC_BCLR = 0x4c000020,
+ PPC_RFID = 0x4c000000,
+ PPC_CRNOR = 0x4c000000,
+ PPC_RFI = 0x4c000000,
+ PPC_CRANDC = 0x4c000000,
+ PPC_ISYNC = 0x4c000000,
+ PPC_CRXOR = 0x4c000000,
+ PPC_CRNAND = 0x4c000000,
+ PPC_CREQV = 0x4c000000,
+ PPC_CRORC = 0x4c000000,
+ PPC_CROR = 0x4c000000,
+//------------
+ PPC_BCCTR = 0x4c000420,
+ PPC_RLWIMI = 0x50000000,
+ PPC_RLWINM = 0x54000000,
+ PPC_RLWNM = 0x5c000000,
+ PPC_ORI = 0x60000000,
+ PPC_ORIS = 0x64000000,
+ PPC_XORI = 0x68000000,
+ PPC_XORIS = 0x6c000000,
+ PPC_ANDI_ = 0x70000000,
+ PPC_ANDIS_ = 0x74000000,
+ PPC_RLDICL = 0x78000000,
+ PPC_RLDICR = 0x78000000,
+ PPC_RLDIC = 0x78000000,
+ PPC_RLDIMI = 0x78000000,
+ PPC_RLDCL = 0x78000000,
+ PPC_RLDCR = 0x78000000,
+ PPC_CMP = 0x7c000000,
+ PPC_TW = 0x7c000000,
+ PPC_SUBFC = 0x7c000010,
+ PPC_MULHDU = 0x7c000000,
+ PPC_ADDC = 0x7c000014,
+ PPC_MULHWU = 0x7c000000,
+ PPC_MFCR = 0x7c000000,
+ PPC_LWAR = 0x7c000000,
+ PPC_LDX = 0x7c000000,
+ PPC_LWZX = 0x7c00002e,
+ PPC_SLW = 0x7c000030,
+ PPC_CNTLZW = 0x7c000000,
+ PPC_SLD = 0x7c000000,
+ PPC_AND = 0x7c000038,
+ PPC_CMPL = 0x7c000040,
+ PPC_SUBF = 0x7c000050,
+ PPC_LDUX = 0x7c000000,
+//------------
+ PPC_DCBST = 0x7c000000,
+ PPC_LWZUX = 0x7c00006c,
+ PPC_CNTLZD = 0x7c000000,
+ PPC_ANDC = 0x7c000000,
+ PPC_TD = 0x7c000000,
+ PPC_MULHD = 0x7c000000,
+ PPC_MULHW = 0x7c000000,
+ PPC_MTSRD = 0x7c000000,
+ PPC_MFMSR = 0x7c000000,
+ PPC_LDARX = 0x7c000000,
+ PPC_DCBF = 0x7c000000,
+ PPC_LBZX = 0x7c0000ae,
+ PPC_NEG = 0x7c000000,
+ PPC_MTSRDIN = 0x7c000000,
+ PPC_LBZUX = 0x7c000000,
+ PPC_NOR = 0x7c0000f8,
+ PPC_SUBFE = 0x7c000000,
+ PPC_ADDE = 0x7c000000,
+ PPC_MTCRF = 0x7c000000,
+ PPC_MTMSR = 0x7c000000,
+ PPC_STDX = 0x7c000000,
+ PPC_STWCX_ = 0x7c000000,
+ PPC_STWX = 0x7c00012e,
+ PPC_MTMSRD = 0x7c000000,
+ PPC_STDUX = 0x7c000000,
+ PPC_STWUX = 0x7c00016e,
+ PPC_SUBFZE = 0x7c000000,
+ PPC_ADDZE = 0x7c000000,
+ PPC_MTSR = 0x7c000000,
+ PPC_STDCX_ = 0x7c000000,
+ PPC_STBX = 0x7c0001ae,
+ PPC_SUBFME = 0x7c000000,
+ PPC_MULLD = 0x7c000000,
+//------------
+ PPC_ADDME = 0x7c000000,
+ PPC_MULLW = 0x7c0001d6,
+ PPC_MTSRIN = 0x7c000000,
+ PPC_DCBTST = 0x7c000000,
+ PPC_STBUX = 0x7c000000,
+ PPC_ADD = 0x7c000214,
+ PPC_DCBT = 0x7c000000,
+ PPC_LHZX = 0x7c00022e,
+ PPC_EQV = 0x7c000000,
+ PPC_TLBIE = 0x7c000000,
+ PPC_ECIWX = 0x7c000000,
+ PPC_LHZUX = 0x7c000000,
+ PPC_XOR = 0x7c000278,
+ PPC_MFSPR = 0x7c0002a6,
+ PPC_LWAX = 0x7c000000,
+ PPC_LHAX = 0x7c000000,
+ PPC_TLBIA = 0x7c000000,
+ PPC_MFTB = 0x7c000000,
+ PPC_LWAUX = 0x7c000000,
+ PPC_LHAUX = 0x7c000000,
+ PPC_STHX = 0x7c00032e,
+ PPC_ORC = 0x7c000338,
+ PPC_SRADI = 0x7c000000,
+ PPC_SLBIE = 0x7c000000,
+ PPC_ECOWX = 0x7c000000,
+ PPC_STHUX = 0x7c000000,
+ PPC_OR = 0x7c000378,
+ PPC_DIVDU = 0x7c000000,
+ PPC_DIVWU = 0x7c000396,
+ PPC_MTSPR = 0x7c0003a6,
+ PPC_DCBI = 0x7c000000,
+ PPC_NAND = 0x7c000000,
+ PPC_DIVD = 0x7c000000,
+//------------
+ PPC_DIVW = 0x7c0003d6,
+ PPC_SLBIA = 0x7c000000,
+ PPC_MCRXR = 0x7c000000,
+ PPC_LSWX = 0x7c000000,
+ PPC_LWBRX = 0x7c000000,
+ PPC_LFSX = 0x7c000000,
+ PPC_SRW = 0x7c000430,
+ PPC_SRD = 0x7c000000,
+ PPC_TLBSYNC = 0x7c000000,
+ PPC_LFSUX = 0x7c000000,
+ PPC_MFSR = 0x7c000000,
+ PPC_LSWI = 0x7c000000,
+ PPC_SYNC = 0x7c000000,
+ PPC_LFDX = 0x7c000000,
+ PPC_LFDUX = 0x7c000000,
+ PPC_MFSRIN = 0x7c000000,
+ PPC_STSWX = 0x7c000000,
+ PPC_STWBRX = 0x7c000000,
+ PPC_STFSX = 0x7c000000,
+ PPC_STFSUX = 0x7c000000,
+ PPC_STSWI = 0x7c000000,
+ PPC_STFDX = 0x7c000000,
+ PPC_DCBA = 0x7c000000,
+ PPC_STFDUX = 0x7c000000,
+ PPC_LHBRX = 0x7c000000,
+ PPC_SRAW = 0x7c000630,
+ PPC_SRAD = 0x7c000000,
+ PPC_SRAWI = 0x7c000000,
+ PPC_EIEIO = 0x7c000000,
+ PPC_STHBRX = 0x7c000000,
+ PPC_EXTSH = 0x7c000734,
+ PPC_EXTSB = 0x7c000774,
+ PPC_ICBI = 0x7c000000,
+//------------
+ PPC_STFIWX = 0x7c0007ae,
+ PPC_EXTSW = 0x7c000000,
+ PPC_DCBZ = 0x7c000000,
+ PPC_LWZ = 0x80000000,
+ PPC_LWZU = 0x84000000,
+ PPC_LBZ = 0x88000000,
+ PPC_LBZU = 0x8c000000,
+ PPC_STW = 0x90000000,
+ PPC_STWU = 0x94000000,
+ PPC_STB = 0x98000000,
+ PPC_STBU = 0x9c000000,
+ PPC_LHZ = 0xa0000000,
+ PPC_LHZU = 0xa4000000,
+ PPC_LHA = 0xa8000000,
+ PPC_LHAU = 0xac000000,
+ PPC_STH = 0xb0000000,
+ PPC_STHU = 0xb4000000,
+ PPC_LMW = 0xb8000000,
+ PPC_STMW = 0xbc000000,
+ PPC_LFS = 0xc0000000,
+ PPC_LFSU = 0xc4000000,
+ PPC_LFD = 0xc8000000,
+ PPC_LFDU = 0xcc000000,
+ PPC_STFS = 0xd0000000,
+ PPC_STFSU = 0xd4000000,
+ PPC_STFD = 0xd8000000,
+ PPC_STFDU = 0xdc000000,
+ PPC_LD = 0xe8000000,
+ PPC_LDU = 0xe8000001,
+ PPC_LWA = 0xe8000002,
+ PPC_FDIVS = 0xec000024,
+ PPC_FSUBS = 0xec000028,
+ PPC_FADDS = 0xec00002a,
+//------------
+ PPC_FSQRTS = 0xec000000,
+ PPC_FRES = 0xec000000,
+ PPC_FMULS = 0xec000032,
+ PPC_FMSUBS = 0xec000000,
+ PPC_FMADDS = 0xec000000,
+ PPC_FNMSUBS = 0xec000000,
+ PPC_FNMADDS = 0xec000000,
+ PPC_STD = 0xf8000000,
+ PPC_STDU = 0xf8000001,
+ PPC_FCMPU = 0xfc000000,
+ PPC_FRSP = 0xfc000018,
+ PPC_FCTIW = 0xfc000000,
+ PPC_FCTIWZ = 0xfc00001e,
+ PPC_FDIV = 0xfc000000,
+ PPC_FSUB = 0xfc000028,
+ PPC_FADD = 0xfc000000,
+ PPC_FSQRT = 0xfc000000,
+ PPC_FSEL = 0xfc000000,
+ PPC_FMUL = 0xfc000000,
+ PPC_FRSQRTE = 0xfc000000,
+ PPC_FMSUB = 0xfc000000,
+ PPC_FMADD = 0xfc000000,
+ PPC_FNMSUB = 0xfc000000,
+ PPC_FNMADD = 0xfc000000,
+ PPC_FCMPO = 0xfc000000,
+ PPC_MTFSB1 = 0xfc000000,
+ PPC_FNEG = 0xfc000050,
+ PPC_MCRFS = 0xfc000000,
+ PPC_MTFSB0 = 0xfc000000,
+ PPC_FMR = 0xfc000000,
+ PPC_MTFSFI = 0xfc000000,
+ PPC_FNABS = 0xfc000000,
+ PPC_FABS = 0xfc000000,
+//------------
+ PPC_MFFS = 0xfc000000,
+ PPC_MTFSF = 0xfc000000,
+ PPC_FCTID = 0xfc000000,
+ PPC_FCTIDZ = 0xfc000000,
+ PPC_FCFID = 0xfc000000
+
+} ppcOpcodes_t;
+
+
+// the newly generated code
+static unsigned *buf;
+static int compiledOfs; // in dwords
+
+// fromt the original bytecode
+static byte *code;
+static int pc;
+
+void AsmCall( void );
+
+double itofConvert[2];
+
+static int Constant4( void ) {
+ int v;
+
+ v = code[pc] | (code[pc+1]<<8) | (code[pc+2]<<16) | (code[pc+3]<<24);
+ pc += 4;
+ return v;
+}
+
+static int Constant1( void ) {
+ int v;
+
+ v = code[pc];
+ pc += 1;
+ return v;
+}
+
+static void Emit4( int i ) {
+ buf[ compiledOfs ] = i;
+ compiledOfs++;
+}
+
+static void Inst( int opcode, int destReg, int aReg, int bReg ) {
+ unsigned r;
+
+ r = opcode | ( destReg << 21 ) | ( aReg << 16 ) | ( bReg << 11 ) ;
+ buf[ compiledOfs ] = r;
+ compiledOfs++;
+}
+
+static void Inst4( int opcode, int destReg, int aReg, int bReg, int cReg ) {
+ unsigned r;
+
+ r = opcode | ( destReg << 21 ) | ( aReg << 16 ) | ( bReg << 11 ) | ( cReg << 6 );
+ buf[ compiledOfs ] = r;
+ compiledOfs++;
+}
+
+static void InstImm( int opcode, int destReg, int aReg, int immediate ) {
+ unsigned r;
+
+ if ( immediate > 32767 || immediate < -32768 ) {
+ Com_Error( ERR_FATAL, "VM_Compile: immediate value %i out of range, opcode %x,%d,%d", immediate, opcode, destReg, aReg );
+ }
+ r = opcode | ( destReg << 21 ) | ( aReg << 16 ) | ( immediate & 0xffff );
+ buf[ compiledOfs ] = r;
+ compiledOfs++;
+}
+
+static void InstImmU( int opcode, int destReg, int aReg, int immediate ) {
+ unsigned r;
+
+ if ( immediate > 0xffff || immediate < 0 ) {
+ Com_Error( ERR_FATAL, "VM_Compile: immediate value %i out of range", immediate );
+ }
+ r = opcode | ( destReg << 21 ) | ( aReg << 16 ) | ( immediate & 0xffff );
+ buf[ compiledOfs ] = r;
+ compiledOfs++;
+}
+
+static qboolean rtopped;
+static int pop0, pop1, oc0, oc1;
+static vm_t *tvm;
+static int instruction;
+static byte *jused;
+static int pass;
+
+static void ltop() {
+ if (rtopped == qfalse) {
+ InstImm( PPC_LWZ, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ }
+}
+
+static void ltopandsecond() {
+ if (pass>=0 && buf[compiledOfs-1] == (PPC_STWU | R_TOP<<21 | R_OPSTACK<<16 | 4 ) && jused[instruction]==0 ) {
+ compiledOfs--;
+ if (!pass) {
+ tvm->instructionPointers[instruction] = compiledOfs * 4;
+ }
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ } else if (pass>=0 && buf[compiledOfs-1] == (PPC_STW | R_TOP<<21 | R_OPSTACK<<16 | 0 ) && jused[instruction]==0 ) {
+ compiledOfs--;
+ if (!pass) {
+ tvm->instructionPointers[instruction] = compiledOfs * 4;
+ }
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -8 );
+ } else {
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -8 );
+ }
+ rtopped = qfalse;
+}
+
+// TJW: Unused
+#if 0
+static void fltop() {
+ if (rtopped == qfalse) {
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ }
+}
+#endif
+
+static void fltopandsecond() {
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_LFS, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -8 );
+ rtopped = qfalse;
+ return;
+}
+
+/*
+=================
+VM_Compile
+=================
+*/
+void VM_Compile( vm_t *vm, vmHeader_t *header ) {
+ int op;
+ int maxLength;
+ int v;
+ int i;
+
+ // set up the into-to-float variables
+ ((int *)itofConvert)[0] = 0x43300000;
+ ((int *)itofConvert)[1] = 0x80000000;
+ ((int *)itofConvert)[2] = 0x43300000;
+
+ // allocate a very large temp buffer, we will shrink it later
+ maxLength = header->codeLength * 8;
+ buf = Z_Malloc( maxLength );
+ jused = Z_Malloc(header->instructionCount + 2);
+ Com_Memset(jused, 0, header->instructionCount+2);
+
+ // compile everything twice, so the second pass will have valid instruction
+ // pointers for branches
+ for ( pass = -1 ; pass < 2 ; pass++ ) {
+
+ rtopped = qfalse;
+ // translate all instructions
+ pc = 0;
+
+ pop0 = 343545;
+ pop1 = 2443545;
+ oc0 = -2343535;
+ oc1 = 24353454;
+ tvm = vm;
+ code = (byte *)header + header->codeOffset;
+ compiledOfs = 0;
+#ifndef __GNUC__
+ // metrowerks seems to require this header in front of functions
+ Emit4( (int)(buf+2) );
+ Emit4( 0 );
+#endif
+
+ for ( instruction = 0 ; instruction < header->instructionCount ; instruction++ ) {
+ if ( compiledOfs*4 > maxLength - 16 ) {
+ Com_Error( ERR_DROP, "VM_Compile: maxLength exceeded" );
+ }
+
+ op = code[ pc ];
+ if ( !pass ) {
+ vm->instructionPointers[ instruction ] = compiledOfs * 4;
+ }
+ pc++;
+ switch ( op ) {
+ case 0:
+ break;
+ case OP_BREAK:
+ InstImmU( PPC_ADDI, R_TOP, 0, 0 );
+ InstImm( PPC_LWZ, R_TOP, R_TOP, 0 ); // *(int *)0 to crash to debugger
+ rtopped = qfalse;
+ break;
+ case OP_ENTER:
+ InstImm( PPC_ADDI, R_STACK, R_STACK, -Constant4() ); // sub R_STACK, R_STACK, imm
+ rtopped = qfalse;
+ break;
+ case OP_CONST:
+ v = Constant4();
+ if (code[pc] == OP_LOAD4 || code[pc] == OP_LOAD2 || code[pc] == OP_LOAD1) {
+ v &= vm->dataMask;
+ }
+ if ( v < 32768 && v >= -32768 ) {
+ InstImmU( PPC_ADDI, R_TOP, 0, v & 0xffff );
+ } else {
+ InstImmU( PPC_ADDIS, R_TOP, 0, (v >> 16)&0xffff );
+ if ( v & 0xffff ) {
+ InstImmU( PPC_ORI, R_TOP, R_TOP, v & 0xffff );
+ }
+ }
+ if (code[pc] == OP_LOAD4) {
+ Inst( PPC_LWZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ pc++;
+ instruction++;
+ } else if (code[pc] == OP_LOAD2) {
+ Inst( PPC_LHZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ pc++;
+ instruction++;
+ } else if (code[pc] == OP_LOAD1) {
+ Inst( PPC_LBZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ pc++;
+ instruction++;
+ }
+ if (code[pc] == OP_STORE4) {
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STWX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ pc++;
+ instruction++;
+ rtopped = qfalse;
+ break;
+ } else if (code[pc] == OP_STORE2) {
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STHX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ pc++;
+ instruction++;
+ rtopped = qfalse;
+ break;
+ } else if (code[pc] == OP_STORE1) {
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STBX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ pc++;
+ instruction++;
+ rtopped = qfalse;
+ break;
+ }
+ if (code[pc] == OP_JUMP) {
+ jused[v] = 1;
+ }
+ InstImm( PPC_STWU, R_TOP, R_OPSTACK, 4 );
+ rtopped = qtrue;
+ break;
+ case OP_LOCAL:
+ oc0 = oc1;
+ oc1 = Constant4();
+ if (code[pc] == OP_LOAD4 || code[pc] == OP_LOAD2 || code[pc] == OP_LOAD1) {
+ oc1 &= vm->dataMask;
+ }
+ InstImm( PPC_ADDI, R_TOP, R_STACK, oc1 );
+ if (code[pc] == OP_LOAD4) {
+ Inst( PPC_LWZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ pc++;
+ instruction++;
+ } else if (code[pc] == OP_LOAD2) {
+ Inst( PPC_LHZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ pc++;
+ instruction++;
+ } else if (code[pc] == OP_LOAD1) {
+ Inst( PPC_LBZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ pc++;
+ instruction++;
+ }
+ if (code[pc] == OP_STORE4) {
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STWX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ pc++;
+ instruction++;
+ rtopped = qfalse;
+ break;
+ } else if (code[pc] == OP_STORE2) {
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STHX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ pc++;
+ instruction++;
+ rtopped = qfalse;
+ break;
+ } else if (code[pc] == OP_STORE1) {
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STBX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ pc++;
+ instruction++;
+ rtopped = qfalse;
+ break;
+ }
+ InstImm( PPC_STWU, R_TOP, R_OPSTACK, 4 );
+ rtopped = qtrue;
+ break;
+ case OP_ARG:
+ ltop(); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ InstImm( PPC_ADDI, R_EA, R_STACK, Constant1() ); // location to put it
+ Inst( PPC_STWX, R_TOP, R_EA, R_MEMBASE );
+ rtopped = qfalse;
+ break;
+ case OP_CALL:
+ Inst( PPC_MFSPR, R_SECOND, 8, 0 ); // move from link register
+ InstImm( PPC_STWU, R_SECOND, R_REAL_STACK, -16 ); // save off the old return address
+
+ Inst( PPC_MTSPR, R_ASMCALL, 9, 0 ); // move to count register
+ Inst( PPC_BCCTR | 1, 20, 0, 0 ); // jump and link to the count register
+
+ InstImm( PPC_LWZ, R_SECOND, R_REAL_STACK, 0 ); // fetch the old return address
+ InstImm( PPC_ADDI, R_REAL_STACK, R_REAL_STACK, 16 );
+ Inst( PPC_MTSPR, R_SECOND, 8, 0 ); // move to link register
+ rtopped = qfalse;
+ break;
+ case OP_PUSH:
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, 4 );
+ rtopped = qfalse;
+ break;
+ case OP_POP:
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ rtopped = qfalse;
+ break;
+ case OP_LEAVE:
+ InstImm( PPC_ADDI, R_STACK, R_STACK, Constant4() ); // add R_STACK, R_STACK, imm
+ Inst( PPC_BCLR, 20, 0, 0 ); // branch unconditionally to link register
+ rtopped = qfalse;
+ break;
+ case OP_LOAD4:
+ ltop(); // get value from opstack
+ //Inst( PPC_AND, R_MEMMASK, R_TOP, R_TOP ); // mask it
+ Inst( PPC_LWZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 );
+ rtopped = qtrue;
+ break;
+ case OP_LOAD2:
+ ltop(); // get value from opstack
+ //Inst( PPC_AND, R_MEMMASK, R_TOP, R_TOP ); // mask it
+ Inst( PPC_LHZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 );
+ rtopped = qtrue;
+ break;
+ case OP_LOAD1:
+ ltop(); // get value from opstack
+ //Inst( PPC_AND, R_MEMMASK, R_TOP, R_TOP ); // mask it
+ Inst( PPC_LBZX, R_TOP, R_TOP, R_MEMBASE ); // load from memory base
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 );
+ rtopped = qtrue;
+ break;
+ case OP_STORE4:
+ ltopandsecond(); // get value from opstack
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STWX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ rtopped = qfalse;
+ break;
+ case OP_STORE2:
+ ltopandsecond(); // get value from opstack
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STHX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ rtopped = qfalse;
+ break;
+ case OP_STORE1:
+ ltopandsecond(); // get value from opstack
+ //Inst( PPC_AND, R_MEMMASK, R_SECOND, R_SECOND ); // mask it
+ Inst( PPC_STBX, R_TOP, R_SECOND, R_MEMBASE ); // store from memory base
+ rtopped = qfalse;
+ break;
+
+ case OP_EQ:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMP, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 2, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (v&0x3ffffff) );
+ rtopped = qfalse;
+ break;
+ case OP_NE:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMP, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 2, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 2, v );
+
+ rtopped = qfalse;
+ break;
+ case OP_LTI:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMP, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 0, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 12, 0, v );
+ rtopped = qfalse;
+ break;
+ case OP_LEI:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMP, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 1, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 1, v );
+ rtopped = qfalse;
+ break;
+ case OP_GTI:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMP, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 1, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 12, 1, v );
+ rtopped = qfalse;
+ break;
+ case OP_GEI:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMP, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 0, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 0, v );
+ rtopped = qfalse;
+ break;
+ case OP_LTU:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMPL, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 0, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 12, 0, v );
+ rtopped = qfalse;
+ break;
+ case OP_LEU:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMPL, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 1, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 1, v );
+ rtopped = qfalse;
+ break;
+ case OP_GTU:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMPL, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 1, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 12, 1, v );
+ rtopped = qfalse;
+ break;
+ case OP_GEU:
+ ltopandsecond(); // get value from opstack
+ Inst( PPC_CMPL, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 0, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 0, v );
+ rtopped = qfalse;
+ break;
+
+ case OP_EQF:
+ fltopandsecond(); // get value from opstack
+ Inst( PPC_FCMPU, 0, R_TOP, R_SECOND );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 2, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 12, 2, v );
+ rtopped = qfalse;
+ break;
+ case OP_NEF:
+ fltopandsecond(); // get value from opstack
+ Inst( PPC_FCMPU, 0, R_TOP, R_SECOND );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 2, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 2, v );
+ rtopped = qfalse;
+ break;
+ case OP_LTF:
+ fltopandsecond(); // get value from opstack
+ Inst( PPC_FCMPU, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 0, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 12, 0, v );
+ rtopped = qfalse;
+ break;
+ case OP_LEF:
+ fltopandsecond(); // get value from opstack
+ Inst( PPC_FCMPU, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 1, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 1, v );
+ rtopped = qfalse;
+ break;
+ case OP_GTF:
+ fltopandsecond(); // get value from opstack
+ Inst( PPC_FCMPU, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 4, 1, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 12, 1, v );
+ rtopped = qfalse;
+ break;
+ case OP_GEF:
+ fltopandsecond(); // get value from opstack
+ Inst( PPC_FCMPU, 0, R_SECOND, R_TOP );
+ i = Constant4();
+ jused[i] = 1;
+ InstImm( PPC_BC, 12, 0, 8 );
+ if ( pass==1 ) {
+ v = vm->instructionPointers[ i ] - (int)&buf[compiledOfs];
+ } else {
+ v = 0;
+ }
+ Emit4(PPC_B | (unsigned int)(v&0x3ffffff) );
+// InstImm( PPC_BC, 4, 0, v );
+ rtopped = qfalse;
+ break;
+
+ case OP_NEGI:
+ ltop(); // get value from opstack
+ InstImm( PPC_SUBFIC, R_TOP, R_TOP, 0 );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_ADD:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_ADD, R_TOP, R_TOP, R_SECOND );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_SUB:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_SUBF, R_TOP, R_TOP, R_SECOND );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_DIVI:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_DIVW, R_TOP, R_SECOND, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_DIVU:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_DIVWU, R_TOP, R_SECOND, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_MODI:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_DIVW, R_EA, R_SECOND, R_TOP );
+ Inst( PPC_MULLW, R_EA, R_TOP, R_EA );
+ Inst( PPC_SUBF, R_TOP, R_EA, R_SECOND );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_MODU:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_DIVWU, R_EA, R_SECOND, R_TOP );
+ Inst( PPC_MULLW, R_EA, R_TOP, R_EA );
+ Inst( PPC_SUBF, R_TOP, R_EA, R_SECOND );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_MULI:
+ case OP_MULU:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_MULLW, R_TOP, R_SECOND, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_BAND:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_AND, R_SECOND, R_TOP, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_BOR:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_OR, R_SECOND, R_TOP, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_BXOR:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_XOR, R_SECOND, R_TOP, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_BCOM:
+ ltop(); // get value from opstack
+ Inst( PPC_NOR, R_TOP, R_TOP, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_LSH:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_SLW, R_SECOND, R_TOP, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_RSHI:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_SRAW, R_SECOND, R_TOP, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+ case OP_RSHU:
+ ltop(); // get value from opstack
+ InstImm( PPC_LWZU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_SRW, R_SECOND, R_TOP, R_TOP );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qtrue;
+ break;
+
+ case OP_NEGF:
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ Inst( PPC_FNEG, R_TOP, 0, R_TOP );
+ InstImm( PPC_STFS, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qfalse;
+ break;
+ case OP_ADDF:
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_LFSU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_FADDS, R_TOP, R_SECOND, R_TOP );
+ InstImm( PPC_STFS, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qfalse;
+ break;
+ case OP_SUBF:
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_LFSU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_FSUBS, R_TOP, R_SECOND, R_TOP );
+ InstImm( PPC_STFS, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qfalse;
+ break;
+ case OP_DIVF:
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_LFSU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst( PPC_FDIVS, R_TOP, R_SECOND, R_TOP );
+ InstImm( PPC_STFS, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qfalse;
+ break;
+ case OP_MULF:
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ InstImm( PPC_LFSU, R_SECOND, R_OPSTACK, -4 ); // get value from opstack
+ Inst4( PPC_FMULS, R_TOP, R_SECOND, 0, R_TOP );
+ InstImm( PPC_STFS, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qfalse;
+ break;
+
+ case OP_CVIF:
+ v = (int)&itofConvert;
+ InstImmU( PPC_ADDIS, R_EA, 0, (v >> 16)&0xffff );
+ InstImmU( PPC_ORI, R_EA, R_EA, v & 0xffff );
+ InstImm( PPC_LWZ, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ InstImmU( PPC_XORIS, R_TOP, R_TOP, 0x8000 );
+ InstImm( PPC_STW, R_TOP, R_EA, 12 );
+ InstImm( PPC_LFD, R_TOP, R_EA, 0 );
+ InstImm( PPC_LFD, R_SECOND, R_EA, 8 );
+ Inst( PPC_FSUB, R_TOP, R_SECOND, R_TOP );
+ // Inst( PPC_FRSP, R_TOP, 0, R_TOP );
+ InstImm( PPC_STFS, R_TOP, R_OPSTACK, 0 ); // save value to opstack
+ rtopped = qfalse;
+ break;
+ case OP_CVFI:
+ InstImm( PPC_LFS, R_TOP, R_OPSTACK, 0 ); // get value from opstack
+ Inst( PPC_FCTIWZ, R_TOP, 0, R_TOP );
+ Inst( PPC_STFIWX, R_TOP, 0, R_OPSTACK ); // save value to opstack
+ rtopped = qfalse;
+ break;
+ case OP_SEX8:
+ ltop(); // get value from opstack
+ Inst( PPC_EXTSB, R_TOP, R_TOP, 0 );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 );
+ rtopped = qtrue;
+ break;
+ case OP_SEX16:
+ ltop(); // get value from opstack
+ Inst( PPC_EXTSH, R_TOP, R_TOP, 0 );
+ InstImm( PPC_STW, R_TOP, R_OPSTACK, 0 );
+ rtopped = qtrue;
+ break;
+
+ case OP_BLOCK_COPY:
+ v = Constant4() >> 2;
+ ltop(); // source
+ InstImm( PPC_LWZ, R_SECOND, R_OPSTACK, -4 ); // dest
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -8 );
+ InstImmU( PPC_ADDI, R_EA, 0, v ); // count
+ // FIXME: range check
+ Inst( PPC_MTSPR, R_EA, 9, 0 ); // move to count register
+
+ Inst( PPC_ADD, R_TOP, R_TOP, R_MEMBASE );
+ InstImm( PPC_ADDI, R_TOP, R_TOP, -4 );
+ Inst( PPC_ADD, R_SECOND, R_SECOND, R_MEMBASE );
+ InstImm( PPC_ADDI, R_SECOND, R_SECOND, -4 );
+
+ InstImm( PPC_LWZU, R_EA, R_TOP, 4 ); // source
+ InstImm( PPC_STWU, R_EA, R_SECOND, 4 ); // dest
+ Inst( PPC_BC | 0xfff8 , 16, 0, 0 ); // loop
+ rtopped = qfalse;
+ break;
+
+ case OP_JUMP:
+ ltop(); // get value from opstack
+ InstImm( PPC_ADDI, R_OPSTACK, R_OPSTACK, -4 );
+ Inst( PPC_RLWINM | ( 29 << 1 ), R_TOP, R_TOP, 2 );
+ // FIXME: range check
+ Inst( PPC_LWZX, R_TOP, R_TOP, R_INSTRUCTIONS );
+ Inst( PPC_MTSPR, R_TOP, 9, 0 ); // move to count register
+ Inst( PPC_BCCTR, 20, 0, 0 ); // jump to the count register
+ rtopped = qfalse;
+ break;
+ default:
+ Com_Error( ERR_DROP, "VM_CompilePPC: bad opcode %i at instruction %i, offset %i", op, instruction, pc );
+ }
+ pop0 = pop1;
+ pop1 = op;
+ }
+
+ Com_Printf( "VM file %s pass %d compiled to %i bytes of code\n", vm->name, (pass+1), compiledOfs*4 );
+
+ if ( pass == 0 ) {
+ // copy to an exact size buffer on the hunk
+ vm->codeLength = compiledOfs * 4;
+ vm->codeBase = Hunk_Alloc( vm->codeLength, h_low );
+ Com_Memcpy( vm->codeBase, buf, vm->codeLength );
+ Z_Free( buf );
+
+ // offset all the instruction pointers for the new location
+ for ( i = 0 ; i < header->instructionCount ; i++ ) {
+ vm->instructionPointers[i] += (int)vm->codeBase;
+ }
+
+ // go back over it in place now to fixup reletive jump targets
+ buf = (unsigned *)vm->codeBase;
+ }
+ }
+ Z_Free( jused );
+}
+
+/*
+==============
+VM_CallCompiled
+
+This function is called directly by the generated code
+==============
+*/
+int VM_CallCompiled( vm_t *vm, int *args ) {
+ int stack[1024];
+ int programStack;
+ int stackOnEntry;
+ byte *image;
+
+ currentVM = vm;
+
+ // interpret the code
+ vm->currentlyInterpreting = qtrue;
+
+ // we might be called recursively, so this might not be the very top
+ programStack = vm->programStack;
+ stackOnEntry = programStack;
+ image = vm->dataBase;
+
+ // set up the stack frame
+ programStack -= 48;
+
+ *(int *)&image[ programStack + 44] = args[9];
+ *(int *)&image[ programStack + 40] = args[8];
+ *(int *)&image[ programStack + 36] = args[7];
+ *(int *)&image[ programStack + 32] = args[6];
+ *(int *)&image[ programStack + 28] = args[5];
+ *(int *)&image[ programStack + 24] = args[4];
+ *(int *)&image[ programStack + 20] = args[3];
+ *(int *)&image[ programStack + 16] = args[2];
+ *(int *)&image[ programStack + 12] = args[1];
+ *(int *)&image[ programStack + 8 ] = args[0];
+ *(int *)&image[ programStack + 4 ] = 0; // return stack
+ *(int *)&image[ programStack ] = -1; // will terminate the loop on return
+
+ // off we go into generated code...
+ // the PPC calling standard says the parms will all go into R3 - R11, so
+ // no special asm code is needed here
+#ifdef __GNUC__
+ ((void(*)(int, int, int, int, int, int, int, int))(vm->codeBase))(
+ programStack, (int)&stack,
+ (int)image, vm->dataMask, (int)&AsmCall,
+ (int)vm->instructionPointers, vm->instructionPointersLength,
+ (int)vm );
+#else
+ ((void(*)(int, int, int, int, int, int, int, int))(vm->codeBase))(
+ programStack, (int)&stack,
+ (int)image, vm->dataMask, *(int *)&AsmCall /* skip function pointer header */,
+ (int)vm->instructionPointers, vm->instructionPointersLength,
+ (int)vm );
+#endif
+ vm->programStack = stackOnEntry;
+
+ vm->currentlyInterpreting = qfalse;
+
+ return stack[1];
+}
+
+
+/*
+==================
+AsmCall
+
+Put this at end of file because gcc messes up debug line numbers
+==================
+*/
+#ifdef __GNUC__
+
+void AsmCall( void ) {
+asm (
+ // pop off the destination instruction
+" lwz r12,0(r4) \n" // RG_TOP, 0(RG_OPSTACK)
+" addi r4,r4,-4 \n" // RG_OPSTACK, RG_OPSTACK, -4 \n"
+
+ // see if it is a system trap
+" cmpwi r12,0 \n" // RG_TOP, 0 \n"
+" bc 12,0, systemTrap \n"
+
+ // calling another VM function, so lookup in instructionPointers
+" slwi r12,r12,2 \n" // RG_TOP,RG_TOP,2
+ // FIXME: range check
+" lwzx r12, r8, r12 \n" // RG_TOP, RG_INSTRUCTIONS(RG_TOP)
+" mtctr r12 \n" // RG_TOP
+);
+
+#if defined(MACOS_X) && defined(__OPTIMIZE__)
+ // On Mac OS X, gcc doesn't push a frame when we are optimized, so trying to tear it down results in grave disorder.
+#warning Mac OS X optimization on, not popping GCC AsmCall frame
+#else
+ // Mac OS X Server and unoptimized compiles include a GCC AsmCall frame
+ asm (
+" lwz r1,0(r1) \n" // pop off the GCC AsmCall frame
+" lmw r30,-8(r1) \n"
+);
+#endif
+
+asm (
+" bcctr 20,0 \n" // when it hits a leave, it will branch to the current link register
+
+ // calling a system trap
+"systemTrap: \n"
+ // convert to positive system call number
+" subfic r12,r12,-1 \n"
+
+ // save all our registers, including the current link register
+" mflr r13 \n" // RG_SECOND // copy off our link register
+" addi r1,r1,-92 \n" // required 24 byets of linkage, 32 bytes of parameter, plus our saves
+" stw r3,56(r1) \n" // RG_STACK, -36(REAL_STACK)
+" stw r4,60(r1) \n" // RG_OPSTACK, 4(RG_REAL_STACK)
+" stw r5,64(r1) \n" // RG_MEMBASE, 8(RG_REAL_STACK)
+" stw r6,68(r1) \n" // RG_MEMMASK, 12(RG_REAL_STACK)
+" stw r7,72(r1) \n" // RG_ASMCALL, 16(RG_REAL_STACK)
+" stw r8,76(r1) \n" // RG_INSTRUCTIONS, 20(RG_REAL_STACK)
+" stw r9,80(r1) \n" // RG_NUM_INSTRUCTIONS, 24(RG_REAL_STACK)
+" stw r10,84(r1) \n" // RG_VM, 28(RG_REAL_STACK)
+" stw r13,88(r1) \n" // RG_SECOND, 32(RG_REAL_STACK) // link register
+
+ // save the vm stack position to allow recursive VM entry
+" addi r13,r3,-4 \n" // RG_TOP, RG_STACK, -4
+" stw r13,0(r10) \n" //RG_TOP, VM_OFFSET_PROGRAM_STACK(RG_VM)
+
+ // save the system call number as the 0th parameter
+" add r3,r3,r5 \n" // r3, RG_STACK, RG_MEMBASE // r3 is the first parameter to vm->systemCalls
+" stwu r12,4(r3) \n" // RG_TOP, 4(r3)
+
+ // make the system call with the address of all the VM parms as a parameter
+ // vm->systemCalls( &parms )
+" lwz r12,4(r10) \n" // RG_TOP, VM_OFFSET_SYSTEM_CALL(RG_VM)
+" mtctr r12 \n" // RG_TOP
+" bcctrl 20,0 \n"
+" mr r12,r3 \n" // RG_TOP, r3
+
+ // pop our saved registers
+" lwz r3,56(r1) \n" // RG_STACK, 0(RG_REAL_STACK)
+" lwz r4,60(r1) \n" // RG_OPSTACK, 4(RG_REAL_STACK)
+" lwz r5,64(r1) \n" // RG_MEMBASE, 8(RG_REAL_STACK)
+" lwz r6,68(r1) \n" // RG_MEMMASK, 12(RG_REAL_STACK)
+" lwz r7,72(r1) \n" // RG_ASMCALL, 16(RG_REAL_STACK)
+" lwz r8,76(r1) \n" // RG_INSTRUCTIONS, 20(RG_REAL_STACK)
+" lwz r9,80(r1) \n" // RG_NUM_INSTRUCTIONS, 24(RG_REAL_STACK)
+" lwz r10,84(r1) \n" // RG_VM, 28(RG_REAL_STACK)
+" lwz r13,88(r1) \n" // RG_SECOND, 32(RG_REAL_STACK)
+" addi r1,r1,92 \n" // RG_REAL_STACK, RG_REAL_STACK, 36
+
+ // restore the old link register
+" mtlr r13 \n" // RG_SECOND
+
+ // save off the return value
+" stwu r12,4(r4) \n" // RG_TOP, 0(RG_OPSTACK)
+
+ // GCC adds its own prolog / epilog code
+ );
+}
+#else
+
+// codewarrior version
+
+void asm AsmCall( void ) {
+
+ // pop off the destination instruction
+
+ lwz r12,0(r4) // RG_TOP, 0(RG_OPSTACK)
+
+ addi r4,r4,-4 // RG_OPSTACK, RG_OPSTACK, -4
+
+
+
+ // see if it is a system trap
+
+ cmpwi r12,0 // RG_TOP, 0
+
+ bc 12,0, systemTrap
+
+
+
+ // calling another VM function, so lookup in instructionPointers
+
+ slwi r12,r12,2 // RG_TOP,RG_TOP,2
+
+ // FIXME: range check
+
+ lwzx r12, r8, r12 // RG_TOP, RG_INSTRUCTIONS(RG_TOP)
+
+ mtctr r12 // RG_TOP
+
+
+
+ bcctr 20,0 // when it hits a leave, it will branch to the current link register
+
+
+
+ // calling a system trap
+
+systemTrap:
+
+ // convert to positive system call number
+
+ subfic r12,r12,-1
+
+
+
+ // save all our registers, including the current link register
+
+ mflr r13 // RG_SECOND // copy off our link register
+
+ addi r1,r1,-92 // required 24 byets of linkage, 32 bytes of parameter, plus our saves
+
+ stw r3,56(r1) // RG_STACK, -36(REAL_STACK)
+
+ stw r4,60(r1) // RG_OPSTACK, 4(RG_REAL_STACK)
+
+ stw r5,64(r1) // RG_MEMBASE, 8(RG_REAL_STACK)
+
+ stw r6,68(r1) // RG_MEMMASK, 12(RG_REAL_STACK)
+
+ stw r7,72(r1) // RG_ASMCALL, 16(RG_REAL_STACK)
+
+ stw r8,76(r1) // RG_INSTRUCTIONS, 20(RG_REAL_STACK)
+
+ stw r9,80(r1) // RG_NUM_INSTRUCTIONS, 24(RG_REAL_STACK)
+
+ stw r10,84(r1) // RG_VM, 28(RG_REAL_STACK)
+
+ stw r13,88(r1) // RG_SECOND, 32(RG_REAL_STACK) // link register
+
+
+
+ // save the vm stack position to allow recursive VM entry
+
+ addi r13,r3,-4 // RG_TOP, RG_STACK, -4
+
+ stw r13,0(r10) //RG_TOP, VM_OFFSET_PROGRAM_STACK(RG_VM)
+
+
+
+ // save the system call number as the 0th parameter
+
+ add r3,r3,r5 // r3, RG_STACK, RG_MEMBASE // r3 is the first parameter to vm->systemCalls
+
+ stwu r12,4(r3) // RG_TOP, 4(r3)
+
+
+
+ // make the system call with the address of all the VM parms as a parameter
+
+ // vm->systemCalls( &parms )
+
+ lwz r12,4(r10) // RG_TOP, VM_OFFSET_SYSTEM_CALL(RG_VM)
+
+
+
+ // perform macos cross fragment fixup crap
+
+ lwz r9,0(r12)
+
+ stw r2,52(r1) // save old TOC
+
+ lwz r2,4(r12)
+
+
+
+ mtctr r9 // RG_TOP
+
+ bcctrl 20,0
+
+
+
+ lwz r2,52(r1) // restore TOC
+
+
+
+ mr r12,r3 // RG_TOP, r3
+
+
+
+ // pop our saved registers
+
+ lwz r3,56(r1) // RG_STACK, 0(RG_REAL_STACK)
+
+ lwz r4,60(r1) // RG_OPSTACK, 4(RG_REAL_STACK)
+
+ lwz r5,64(r1) // RG_MEMBASE, 8(RG_REAL_STACK)
+
+ lwz r6,68(r1) // RG_MEMMASK, 12(RG_REAL_STACK)
+
+ lwz r7,72(r1) // RG_ASMCALL, 16(RG_REAL_STACK)
+
+ lwz r8,76(r1) // RG_INSTRUCTIONS, 20(RG_REAL_STACK)
+
+ lwz r9,80(r1) // RG_NUM_INSTRUCTIONS, 24(RG_REAL_STACK)
+
+ lwz r10,84(r1) // RG_VM, 28(RG_REAL_STACK)
+
+ lwz r13,88(r1) // RG_SECOND, 32(RG_REAL_STACK)
+
+ addi r1,r1,92 // RG_REAL_STACK, RG_REAL_STACK, 36
+
+
+
+ // restore the old link register
+
+ mtlr r13 // RG_SECOND
+
+
+
+ // save off the return value
+
+ stwu r12,4(r4) // RG_TOP, 0(RG_OPSTACK)
+
+
+
+ blr
+
+}
+
+
+
+
+#endif
generated by cgit (git 2.34.1) at 2024-11-14 22:39:58 +0000