ubergames/ioef
0
0
Fork 0
mirror of https://github.com/UberGames/ioef.git synced 2024-11-28 06:52:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

realloc vm->instructionPointers on ppc64

Browse source 
rename VM_Malloc, VM_Free to PPC_Malloc, PPC_Free
safer constant optimization handling

Patch by Przemysław Iskra (#3796)
This commit is contained in:
Ludwig Nussel 2008-11-10 09:46:31 +00:00
parent 235945c6bb
commit 01dca75d9f
1 changed files with 96 additions and 78 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

174
code/qcommon/vm_powerpc.c
View file

@ -59,7 +59,7 @@ static clock_t time_total_vm = 0;
//#define VM_SYSTEM_MALLOC //#define VM_SYSTEM_MALLOC
#ifdef VM_SYSTEM_MALLOC #ifdef VM_SYSTEM_MALLOC
static inline void * static inline void *
VM_Malloc( size_t size ) PPC_Malloc( size_t size )
{ {
void *mem = malloc( size ); void *mem = malloc( size );
if ( ! mem ) if ( ! mem )
@ -67,10 +67,10 @@ VM_Malloc( size_t size )
return mem; return mem;
} }
# define VM_Free free # define PPC_Free free
#else #else
# define VM_Malloc Z_Malloc # define PPC_Malloc Z_Malloc
# define VM_Free Z_Free # define PPC_Free Z_Free
#endif #endif
/* /*
@ -360,7 +360,7 @@ VM_AsmCall( int callSyscallInvNum, int callProgramStack )
// we need to convert ints to longs on 64bit powerpcs // we need to convert ints to longs on 64bit powerpcs
if ( sizeof( intptr_t ) == sizeof( int ) ) { if ( sizeof( intptr_t ) == sizeof( int ) ) {
intptr_t *argPosition = (int *)((byte *)currentVM->dataBase + callProgramStack + 4); intptr_t *argPosition = (intptr_t *)((byte *)currentVM->dataBase + callProgramStack + 4);
// generated code does not invert syscall number // generated code does not invert syscall number
argPosition[ 0 ] = -1 - callSyscallInvNum; argPosition[ 0 ] = -1 - callSyscallInvNum;
@ -498,7 +498,7 @@ PPC_AppendInstructions(
if ( num_instructions < 0 ) if ( num_instructions < 0 )
num_instructions = 0; num_instructions = 0;
size_t iBytes = sizeof( ppc_instruction_t ) * num_instructions; size_t iBytes = sizeof( ppc_instruction_t ) * num_instructions;
dest_instruction_t *di_now = VM_Malloc( sizeof( dest_instruction_t ) + iBytes ); dest_instruction_t *di_now = PPC_Malloc( sizeof( dest_instruction_t ) + iBytes );
di_now->length = num_instructions; di_now->length = num_instructions;
di_now->jump = NULL; di_now->jump = NULL;
@ -522,8 +522,8 @@ PPC_PrepareJump(
unsigned long int ext unsigned long int ext
) )
{ {
dest_instruction_t *di_now = VM_Malloc( sizeof( dest_instruction_t ) ); dest_instruction_t *di_now = PPC_Malloc( sizeof( dest_instruction_t ) );
symbolic_jump_t *sj = VM_Malloc( sizeof( symbolic_jump_t ) ); symbolic_jump_t *sj = PPC_Malloc( sizeof( symbolic_jump_t ) );
sj->jump_to = dest; sj->jump_to = dest;
sj->bo = bo; sj->bo = bo;
@ -620,7 +620,7 @@ PPC_PushData( unsigned int datum )
// last chunk is full, create new one // last chunk is full, create new one
if ( d_now->count >= LOCAL_DATA_CHUNK ) { if ( d_now->count >= LOCAL_DATA_CHUNK ) {
d_now->next = VM_Malloc( sizeof( local_data_t ) ); d_now->next = PPC_Malloc( sizeof( local_data_t ) );
d_now = d_now->next; d_now = d_now->next;
d_now->count = 0; d_now->count = 0;
d_now->next = NULL; d_now->next = NULL;
@ -712,15 +712,15 @@ static const long int fpr_total = sizeof( fpr_list ) / sizeof( fpr_list[0] );
static void static void
PPC_CompileInit( void ) PPC_CompileInit( void )
{ {
di_first = di_last = VM_Malloc( sizeof( dest_instruction_t ) ); di_first = di_last = PPC_Malloc( sizeof( dest_instruction_t ) );
di_first->count = 0; di_first->count = 0;
di_first->next = NULL; di_first->next = NULL;
di_first->jump = NULL; di_first->jump = NULL;
sj_first = sj_last = VM_Malloc( sizeof( symbolic_jump_t ) ); sj_first = sj_last = PPC_Malloc( sizeof( symbolic_jump_t ) );
sj_first->nextJump = NULL; sj_first->nextJump = NULL;
data_first = VM_Malloc( sizeof( local_data_t ) ); data_first = PPC_Malloc( sizeof( local_data_t ) );
data_first->count = 0; data_first->count = 0;
data_first->next = NULL; data_first->next = NULL;
@ -817,7 +817,7 @@ PPC_EmitConst( source_instruction_t * const i_const )
emitEnd(); emitEnd();
} }
#define maybeEmitConst() if ( i_const ) PPC_EmitConst( i_const ) #define MAYBE_EMIT_CONST() if ( i_const ) PPC_EmitConst( i_const )
/* /*
* emit empty instruction, just sets the needed pointers * emit empty instruction, just sets the needed pointers
@ -827,7 +827,7 @@ PPC_EmitNull( source_instruction_t * const i_null )
{ {
PPC_AppendInstructions( i_null->i_count, 0, NULL ); PPC_AppendInstructions( i_null->i_count, 0, NULL );
} }
#define emitFalseConst() PPC_EmitNull( i_const ) #define EMIT_FALSE_CONST() PPC_EmitNull( i_const )
/* /*
@ -1053,12 +1053,12 @@ VM_CompileFunction( source_instruction_t * const i_first )
default: default:
case OP_UNDEF: case OP_UNDEF:
case OP_IGNORE: case OP_IGNORE:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iNOP ); in( iNOP );
break; break;
case OP_BREAK: case OP_BREAK:
maybeEmitConst(); MAYBE_EMIT_CONST();
// force SEGV // force SEGV
in( iLWZ, r0, 0, r0 ); in( iLWZ, r0, 0, r0 );
break; break;
@ -1094,7 +1094,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_LEAVE: case OP_LEAVE:
if ( i_const ) { if ( i_const ) {
emitFalseConst(); EMIT_FALSE_CONST();
if ( i_const->regR & rTYPE_FLOAT) if ( i_const->regR & rTYPE_FLOAT)
DIE( "constant float in OP_LEAVE" ); DIE( "constant float in OP_LEAVE" );
@ -1111,6 +1111,8 @@ VM_CompileFunction( source_instruction_t * const i_first )
} }
gpr_pos--; gpr_pos--;
} else { } else {
MAYBE_EMIT_CONST();
/* place return value in r3 */ /* place return value in r3 */
if ( ARG_INT ) { if ( ARG_INT ) {
if ( rFIRST != r3 ) if ( rFIRST != r3 )
@ -1152,7 +1154,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_CALL: case OP_CALL:
if ( i_const ) { if ( i_const ) {
emitFalseConst(); EMIT_FALSE_CONST();
if ( i_const->arg.si >= 0 ) { if ( i_const->arg.si >= 0 ) {
emitJump( emitJump(
@ -1172,6 +1174,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
if ( rFIRST != r3 ) if ( rFIRST != r3 )
in( iMR, rFIRST, r3 ); in( iMR, rFIRST, r3 );
} else { } else {
MAYBE_EMIT_CONST();
in( iCMPWI, cr7, rFIRST, 0 ); in( iCMPWI, cr7, rFIRST, 0 );
in( iBLTm, cr7, +4*5 /* syscall */ ); // XXX jump ! in( iBLTm, cr7, +4*5 /* syscall */ ); // XXX jump !
@ -1201,7 +1204,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_PUSH: case OP_PUSH:
maybeEmitConst(); MAYBE_EMIT_CONST();
if ( RET_INT ) if ( RET_INT )
gpr_pos++; gpr_pos++;
else else
@ -1211,7 +1214,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_POP: case OP_POP:
maybeEmitConst(); MAYBE_EMIT_CONST();
if ( ARG_INT ) if ( ARG_INT )
gpr_pos--; gpr_pos--;
else else
@ -1221,12 +1224,12 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_CONST: case OP_CONST:
maybeEmitConst(); MAYBE_EMIT_CONST();
/* nothing here */ /* nothing here */
break; break;
case OP_LOCAL: case OP_LOCAL:
maybeEmitConst(); MAYBE_EMIT_CONST();
{ {
signed long int hi, lo; signed long int hi, lo;
hi = i_now->arg.ss[ 0 ]; hi = i_now->arg.ss[ 0 ];
@ -1247,13 +1250,15 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_JUMP: case OP_JUMP:
if ( i_const ) { if ( i_const ) {
emitFalseConst(); EMIT_FALSE_CONST();
emitJump( emitJump(
i_const->arg.i, i_const->arg.i,
branchAlways, 0, 0 branchAlways, 0, 0
); );
} else { } else {
MAYBE_EMIT_CONST();
in( iLL, r0, VM_Data_Offset( iPointers ), rVMDATA ); in( iLL, r0, VM_Data_Offset( iPointers ), rVMDATA );
in( iRLWINM, rFIRST, rFIRST, GPRLEN_SHIFT, 0, 31-GPRLEN_SHIFT ); // mul * GPRLEN in( iRLWINM, rFIRST, rFIRST, GPRLEN_SHIFT, 0, 31-GPRLEN_SHIFT ); // mul * GPRLEN
in( iLLX, r0, rFIRST, r0 ); // load pointer in( iLLX, r0, rFIRST, r0 ); // load pointer
@ -1266,13 +1271,13 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_EQ: case OP_EQ:
case OP_NE: case OP_NE:
if ( i_const && i_const->arg.si >= -0x8000 && i_const->arg.si < 0x10000 ) { if ( i_const && i_const->arg.si >= -0x8000 && i_const->arg.si < 0x10000 ) {
emitFalseConst(); EMIT_FALSE_CONST();
if ( i_const->arg.si >= 0x8000 ) if ( i_const->arg.si >= 0x8000 )
in( iCMPLWI, cr7, rSECOND, i_const->arg.i ); in( iCMPLWI, cr7, rSECOND, i_const->arg.i );
else else
in( iCMPWI, cr7, rSECOND, i_const->arg.si ); in( iCMPWI, cr7, rSECOND, i_const->arg.si );
} else { } else {
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iCMPW, cr7, rSECOND, rFIRST ); in( iCMPW, cr7, rSECOND, rFIRST );
} }
emitJump( emitJump(
@ -1286,10 +1291,10 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_LTI: case OP_LTI:
case OP_GEI: case OP_GEI:
if ( i_const && i_const->arg.si >= -0x8000 && i_const->arg.si < 0x8000 ) { if ( i_const && i_const->arg.si >= -0x8000 && i_const->arg.si < 0x8000 ) {
emitFalseConst(); EMIT_FALSE_CONST();
in( iCMPWI, cr7, rSECOND, i_const->arg.si ); in( iCMPWI, cr7, rSECOND, i_const->arg.si );
} else { } else {
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iCMPW, cr7, rSECOND, rFIRST ); in( iCMPW, cr7, rSECOND, rFIRST );
} }
emitJump( emitJump(
@ -1303,10 +1308,10 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_GTI: case OP_GTI:
case OP_LEI: case OP_LEI:
if ( i_const && i_const->arg.si >= -0x8000 && i_const->arg.si < 0x8000 ) { if ( i_const && i_const->arg.si >= -0x8000 && i_const->arg.si < 0x8000 ) {
emitFalseConst(); EMIT_FALSE_CONST();
in( iCMPWI, cr7, rSECOND, i_const->arg.si ); in( iCMPWI, cr7, rSECOND, i_const->arg.si );
} else { } else {
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iCMPW, cr7, rSECOND, rFIRST ); in( iCMPW, cr7, rSECOND, rFIRST );
} }
emitJump( emitJump(
@ -1320,10 +1325,10 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_LTU: case OP_LTU:
case OP_GEU: case OP_GEU:
if ( i_const && i_const->arg.i < 0x10000 ) { if ( i_const && i_const->arg.i < 0x10000 ) {
emitFalseConst(); EMIT_FALSE_CONST();
in( iCMPLWI, cr7, rSECOND, i_const->arg.i ); in( iCMPLWI, cr7, rSECOND, i_const->arg.i );
} else { } else {
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iCMPLW, cr7, rSECOND, rFIRST ); in( iCMPLW, cr7, rSECOND, rFIRST );
} }
emitJump( emitJump(
@ -1337,10 +1342,10 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_GTU: case OP_GTU:
case OP_LEU: case OP_LEU:
if ( i_const && i_const->arg.i < 0x10000 ) { if ( i_const && i_const->arg.i < 0x10000 ) {
emitFalseConst(); EMIT_FALSE_CONST();
in( iCMPLWI, cr7, rSECOND, i_const->arg.i ); in( iCMPLWI, cr7, rSECOND, i_const->arg.i );
} else { } else {
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iCMPLW, cr7, rSECOND, rFIRST ); in( iCMPLW, cr7, rSECOND, rFIRST );
} }
emitJump( emitJump(
@ -1353,7 +1358,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_EQF: case OP_EQF:
case OP_NEF: case OP_NEF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFCMPU, cr7, fSECOND, fFIRST ); in( iFCMPU, cr7, fSECOND, fFIRST );
emitJump( emitJump(
i_now->arg.i, i_now->arg.i,
@ -1365,7 +1370,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_LTF: case OP_LTF:
case OP_GEF: case OP_GEF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFCMPU, cr7, fSECOND, fFIRST ); in( iFCMPU, cr7, fSECOND, fFIRST );
emitJump( emitJump(
i_now->arg.i, i_now->arg.i,
@ -1377,7 +1382,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_GTF: case OP_GTF:
case OP_LEF: case OP_LEF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFCMPU, cr7, fSECOND, fFIRST ); in( iFCMPU, cr7, fSECOND, fFIRST );
emitJump( emitJump(
i_now->arg.i, i_now->arg.i,
@ -1388,7 +1393,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_LOAD1: case OP_LOAD1:
maybeEmitConst(); MAYBE_EMIT_CONST();
#if OPTIMIZE_MASK #if OPTIMIZE_MASK
in( iRLWINM, rFIRST, rFIRST, 0, fastMaskHi, fastMaskLo ); in( iRLWINM, rFIRST, rFIRST, 0, fastMaskHi, fastMaskLo );
#else #else
@ -1399,7 +1404,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_LOAD2: case OP_LOAD2:
maybeEmitConst(); MAYBE_EMIT_CONST();
#if OPTIMIZE_MASK #if OPTIMIZE_MASK
in( iRLWINM, rFIRST, rFIRST, 0, fastMaskHi, fastMaskLo ); in( iRLWINM, rFIRST, rFIRST, 0, fastMaskHi, fastMaskLo );
#else #else
@ -1410,7 +1415,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_LOAD4: case OP_LOAD4:
maybeEmitConst(); MAYBE_EMIT_CONST();
#if OPTIMIZE_MASK #if OPTIMIZE_MASK
in( iRLWINM, rFIRST, rFIRST, 0, fastMaskHi, fastMaskLo ); in( iRLWINM, rFIRST, rFIRST, 0, fastMaskHi, fastMaskLo );
#else #else
@ -1427,7 +1432,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_STORE1: case OP_STORE1:
maybeEmitConst(); MAYBE_EMIT_CONST();
#if OPTIMIZE_MASK #if OPTIMIZE_MASK
in( iRLWINM, rSECOND, rSECOND, 0, fastMaskHi, fastMaskLo ); in( iRLWINM, rSECOND, rSECOND, 0, fastMaskHi, fastMaskLo );
#else #else
@ -1439,7 +1444,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_STORE2: case OP_STORE2:
maybeEmitConst(); MAYBE_EMIT_CONST();
#if OPTIMIZE_MASK #if OPTIMIZE_MASK
in( iRLWINM, rSECOND, rSECOND, 0, fastMaskHi, fastMaskLo ); in( iRLWINM, rSECOND, rSECOND, 0, fastMaskHi, fastMaskLo );
#else #else
@ -1451,7 +1456,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_STORE4: case OP_STORE4:
maybeEmitConst(); MAYBE_EMIT_CONST();
if ( ARG_INT ) { if ( ARG_INT ) {
#if OPTIMIZE_MASK #if OPTIMIZE_MASK
in( iRLWINM, rSECOND, rSECOND, 0, fastMaskHi, fastMaskLo ); in( iRLWINM, rSECOND, rSECOND, 0, fastMaskHi, fastMaskLo );
@ -1477,7 +1482,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_ARG: case OP_ARG:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iADDI, r0, rPSTACK, i_now->arg.b ); in( iADDI, r0, rPSTACK, i_now->arg.b );
if ( ARG_INT ) { if ( ARG_INT ) {
in( iSTWX, rFIRST, rDATABASE, r0 ); in( iSTWX, rFIRST, rDATABASE, r0 );
@ -1489,7 +1494,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_BLOCK_COPY: case OP_BLOCK_COPY:
maybeEmitConst(); MAYBE_EMIT_CONST();
#if OPTIMIZE_COPY #if OPTIMIZE_COPY
if ( i_now->arg.i <= SL( 16, 32 ) ) { if ( i_now->arg.i <= SL( 16, 32 ) ) {
/* block is very short so copy it in-place */ /* block is very short so copy it in-place */
@ -1568,23 +1573,23 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_SEX8: case OP_SEX8:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iEXTSB, rFIRST, rFIRST ); in( iEXTSB, rFIRST, rFIRST );
break; break;
case OP_SEX16: case OP_SEX16:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iEXTSH, rFIRST, rFIRST ); in( iEXTSH, rFIRST, rFIRST );
break; break;
case OP_NEGI: case OP_NEGI:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iNEG, rFIRST, rFIRST ); in( iNEG, rFIRST, rFIRST );
break; break;
case OP_ADD: case OP_ADD:
if ( i_const ) { if ( i_const ) {
emitFalseConst(); EMIT_FALSE_CONST();
signed short int hi, lo; signed short int hi, lo;
hi = i_const->arg.ss[ 0 ]; hi = i_const->arg.ss[ 0 ];
@ -1596,32 +1601,37 @@ VM_CompileFunction( source_instruction_t * const i_first )
in( iADDIS, rSECOND, rSECOND, hi ); in( iADDIS, rSECOND, rSECOND, hi );
if ( lo != 0 ) if ( lo != 0 )
in( iADDI, rSECOND, rSECOND, lo ); in( iADDI, rSECOND, rSECOND, lo );
// if both are zero no instruction will be written
if ( hi == 0 && lo == 0 )
force_emit = 1;
} else { } else {
MAYBE_EMIT_CONST();
in( iADD, rSECOND, rSECOND, rFIRST ); in( iADD, rSECOND, rSECOND, rFIRST );
} }
gpr_pos--; gpr_pos--;
break; break;
case OP_SUB: case OP_SUB:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iSUB, rSECOND, rSECOND, rFIRST ); in( iSUB, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_DIVI: case OP_DIVI:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iDIVW, rSECOND, rSECOND, rFIRST ); in( iDIVW, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_DIVU: case OP_DIVU:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iDIVWU, rSECOND, rSECOND, rFIRST ); in( iDIVWU, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_MODI: case OP_MODI:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iDIVW, r0, rSECOND, rFIRST ); in( iDIVW, r0, rSECOND, rFIRST );
in( iMULLW, r0, r0, rFIRST ); in( iMULLW, r0, r0, rFIRST );
in( iSUB, rSECOND, rSECOND, r0 ); in( iSUB, rSECOND, rSECOND, r0 );
@ -1629,7 +1639,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_MODU: case OP_MODU:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iDIVWU, r0, rSECOND, rFIRST ); in( iDIVWU, r0, rSECOND, rFIRST );
in( iMULLW, r0, r0, rFIRST ); in( iMULLW, r0, r0, rFIRST );
in( iSUB, rSECOND, rSECOND, r0 ); in( iSUB, rSECOND, rSECOND, r0 );
@ -1638,83 +1648,83 @@ VM_CompileFunction( source_instruction_t * const i_first )
case OP_MULI: case OP_MULI:
case OP_MULU: case OP_MULU:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iMULLW, rSECOND, rSECOND, rFIRST ); in( iMULLW, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_BAND: case OP_BAND:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iAND, rSECOND, rSECOND, rFIRST ); in( iAND, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_BOR: case OP_BOR:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iOR, rSECOND, rSECOND, rFIRST ); in( iOR, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_BXOR: case OP_BXOR:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iXOR, rSECOND, rSECOND, rFIRST ); in( iXOR, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_BCOM: case OP_BCOM:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iNOT, rFIRST, rFIRST ); in( iNOT, rFIRST, rFIRST );
break; break;
case OP_LSH: case OP_LSH:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iSLW, rSECOND, rSECOND, rFIRST ); in( iSLW, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_RSHI: case OP_RSHI:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iSRAW, rSECOND, rSECOND, rFIRST ); in( iSRAW, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_RSHU: case OP_RSHU:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iSRW, rSECOND, rSECOND, rFIRST ); in( iSRW, rSECOND, rSECOND, rFIRST );
gpr_pos--; gpr_pos--;
break; break;
case OP_NEGF: case OP_NEGF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFNEG, fFIRST, fFIRST ); in( iFNEG, fFIRST, fFIRST );
break; break;
case OP_ADDF: case OP_ADDF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFADDS, fSECOND, fSECOND, fFIRST ); in( iFADDS, fSECOND, fSECOND, fFIRST );
fpr_pos--; fpr_pos--;
break; break;
case OP_SUBF: case OP_SUBF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFSUBS, fSECOND, fSECOND, fFIRST ); in( iFSUBS, fSECOND, fSECOND, fFIRST );
fpr_pos--; fpr_pos--;
break; break;
case OP_DIVF: case OP_DIVF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFDIVS, fSECOND, fSECOND, fFIRST ); in( iFDIVS, fSECOND, fSECOND, fFIRST );
fpr_pos--; fpr_pos--;
break; break;
case OP_MULF: case OP_MULF:
maybeEmitConst(); MAYBE_EMIT_CONST();
in( iFMULS, fSECOND, fSECOND, fFIRST ); in( iFMULS, fSECOND, fSECOND, fFIRST );
fpr_pos--; fpr_pos--;
break; break;
case OP_CVIF: case OP_CVIF:
maybeEmitConst(); MAYBE_EMIT_CONST();
fpr_pos++; fpr_pos++;
in( iXORIS, rFIRST, rFIRST, 0x8000 ); in( iXORIS, rFIRST, rFIRST, 0x8000 );
in( iLIS, r0, 0x4330 ); in( iLIS, r0, 0x4330 );
@ -1728,7 +1738,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
break; break;
case OP_CVFI: case OP_CVFI:
maybeEmitConst(); MAYBE_EMIT_CONST();
gpr_pos++; gpr_pos++;
in( iFCTIWZ, fFIRST, fFIRST ); in( iFCTIWZ, fFIRST, fFIRST );
in( iSTFD, fFIRST, stack_temp, r1 ); in( iSTFD, fFIRST, stack_temp, r1 );
@ -1765,7 +1775,7 @@ VM_CompileFunction( source_instruction_t * const i_first )
while ( i_next ) { while ( i_next ) {
i_now = i_next; i_now = i_next;
i_next = i_now->next; i_next = i_now->next;
VM_Free( i_now ); PPC_Free( i_now );
} }
} }
} }
@ -1949,7 +1959,7 @@ PPC_ComputeCode( vm_t *vm )
accumulated += d_now->count; accumulated += d_now->count;
d_next = d_now->next; d_next = d_now->next;
VM_Free( d_now ); PPC_Free( d_now );
if ( !d_next ) if ( !d_next )
break; break;
@ -1961,14 +1971,14 @@ PPC_ComputeCode( vm_t *vm )
/* free most of the compilation memory */ /* free most of the compilation memory */
{ {
di_now = di_first->next; di_now = di_first->next;
VM_Free( di_first ); PPC_Free( di_first );
VM_Free( sj_first ); PPC_Free( sj_first );
while ( di_now ) { while ( di_now ) {
di_first = di_now->next; di_first = di_now->next;
if ( di_now->jump ) if ( di_now->jump )
VM_Free( di_now->jump ); PPC_Free( di_now->jump );
VM_Free( di_now ); PPC_Free( di_now );
di_now = di_first; di_now = di_first;
} }
} }
@ -2001,9 +2011,15 @@ VM_Compile( vm_t *vm, vmHeader_t *header )
PPC_MakeFastMask( vm->dataMask ); PPC_MakeFastMask( vm->dataMask );
i_first = VM_Malloc( sizeof( source_instruction_t ) ); i_first = PPC_Malloc( sizeof( source_instruction_t ) );
i_first->next = NULL; i_first->next = NULL;
// realloc instructionPointers with correct size
// use Z_Malloc so vm.c will be able to free the memory
if ( sizeof( void * ) != sizeof( int ) ) {
Z_Free( vm->instructionPointers );
vm->instructionPointers = Z_Malloc( header->instructionCount * sizeof( void * ) );
}
di_pointers = (void *)vm->instructionPointers; di_pointers = (void *)vm->instructionPointers;
memset( di_pointers, 0, header->instructionCount * sizeof( void * ) ); memset( di_pointers, 0, header->instructionCount * sizeof( void * ) );
@ -2026,7 +2042,7 @@ VM_Compile( vm_t *vm, vmHeader_t *header )
i_last = i_first; i_last = i_first;
} }
i_now = VM_Malloc( sizeof( source_instruction_t ) ); i_now = PPC_Malloc( sizeof( source_instruction_t ) );
i_now->op = op; i_now->op = op;
i_now->i_count = i_count; i_now->i_count = i_count;
i_now->arg.i = 0; i_now->arg.i = 0;
@ -2052,17 +2068,19 @@ VM_Compile( vm_t *vm, vmHeader_t *header )
i_last = i_now; i_last = i_now;
} }
VM_CompileFunction( i_first ); VM_CompileFunction( i_first );
VM_Free( i_first ); PPC_Free( i_first );
PPC_ShrinkJumps(); PPC_ShrinkJumps();
memset( di_pointers, 0, header->instructionCount * sizeof( void * ) ); memset( di_pointers, 0, header->instructionCount * sizeof( void * ) );
PPC_ComputeCode( vm ); PPC_ComputeCode( vm );
/* check for uninitialized pointers */ /* check for uninitialized pointers */
#ifdef DEBUG_VM
long int i; long int i;
for ( i = 0; i < header->instructionCount; i++ ) for ( i = 0; i < header->instructionCount; i++ )
if ( vm->instructionPointers[ i ] == 0 ) if ( di_pointers[ i ] == 0 )
Com_Printf( S_COLOR_RED "Pointer %ld not initialized !\n", i ); Com_Printf( S_COLOR_RED "Pointer %ld not initialized !\n", i );
#endif
/* mark memory as executable and not writeable */ /* mark memory as executable and not writeable */
if ( mprotect( vm->codeBase, vm->codeLength, PROT_READ|PROT_EXEC ) ) { if ( mprotect( vm->codeBase, vm->codeLength, PROT_READ|PROT_EXEC ) ) {