1512 lines
30 KiB
C
1512 lines
30 KiB
C
#define FUNCTION_MARKER "mr r0, r0\n" \
|
|
"mr r1, r1\n" \
|
|
"mr r2, r2\n"
|
|
|
|
#if EEL_F_SIZE == 8
|
|
|
|
void nseel_asm_1pdd(void)
|
|
{
|
|
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r5, 0, 0xdead\n"
|
|
"ori r5, r5, 0xbeef\n"
|
|
"mtctr r5\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
:: );
|
|
}
|
|
void nseel_asm_1pdd_end(void){}
|
|
|
|
void nseel_asm_2pdd(void)
|
|
{
|
|
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"fmr f2, f1\n"
|
|
"lfd f1, 0(r14)\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
:: );
|
|
};
|
|
void nseel_asm_2pdd_end(void){}
|
|
|
|
void nseel_asm_2pdds(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r5, 0, 0xdead\n"
|
|
"ori r5, r5, 0xbeef\n"
|
|
"fmr f2, f1\n"
|
|
"lfd f1, 0(r14)\n"
|
|
"mtctr r5\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
"stfd f1, 0(r14)\n"
|
|
"mr r3, r14\n"
|
|
FUNCTION_MARKER
|
|
:: );
|
|
}
|
|
void nseel_asm_2pdds_end(void){}
|
|
|
|
#else // 32 bit floating point calls
|
|
|
|
#error no 32 bit float support
|
|
|
|
#endif
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
// do nothing, eh
|
|
void nseel_asm_exec2(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_exec2_end(void) { }
|
|
|
|
|
|
|
|
void nseel_asm_invsqrt(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"frsqrte f1, f1\n" // less accurate than our x86 equivilent, but invsqrt() is inherently inaccurate anyway
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_invsqrt_end(void) {}
|
|
|
|
void nseel_asm_dbg_getstackptr(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r1, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_dbg_getstackptr_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_sqr(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fmul f1, f1, f1\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_sqr_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_abs(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fabs f1, f1\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_abs_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_assign(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f1, 0(r3)\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_assign_end(void) {}
|
|
//
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_assign_fromfp(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_assign_fromfp_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_assign_fast(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f1, 0(r3)\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_assign_fast_end(void) {}
|
|
//
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_assign_fast_fromfp(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_assign_fast_fromfp_end(void) {}
|
|
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_add(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fadd f1, f1, f2\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_add_end(void) {}
|
|
|
|
void nseel_asm_add_op(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fadd f1, f1, f2\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_add_op_end(void) {}
|
|
|
|
void nseel_asm_add_op_fast(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fadd f1, f1, f2\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_add_op_fast_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_sub(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fsub f1, f2, f1\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_sub_end(void) {}
|
|
|
|
void nseel_asm_sub_op(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fsub f1, f2, f1\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_sub_op_end(void) {}
|
|
|
|
void nseel_asm_sub_op_fast(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fsub f1, f2, f1\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_sub_op_fast_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_mul(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fmul f1, f2, f1\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_mul_end(void) {}
|
|
|
|
void nseel_asm_mul_op(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fmul f1, f2, f1\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_mul_op_end(void) {}
|
|
|
|
void nseel_asm_mul_op_fast(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fmul f1, f2, f1\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_mul_op_fast_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_div(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fdiv f1, f2, f1\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_div_end(void) {}
|
|
|
|
void nseel_asm_div_op(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fdiv f1, f2, f1\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_div_op_end(void) {}
|
|
|
|
void nseel_asm_div_op_fast(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fdiv f1, f2, f1\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_div_op_fast_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_mod(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fabs f1, f1\n"
|
|
"fabs f2, f2\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
|
|
"divw r12, r11, r10\n"
|
|
"mullw r12, r12, r10\n"
|
|
"subf r10, r12, r11\n"
|
|
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_mod_end(void) {}
|
|
|
|
void nseel_asm_shl(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"slw r10, r11, r10\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_shl_end(void) {}
|
|
|
|
void nseel_asm_shr(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"sraw r10, r11, r10\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_shr_end(void) {}
|
|
|
|
void nseel_asm_mod_op(void)
|
|
{
|
|
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fabs f1, f1\n"
|
|
"fabs f2, f2\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
|
|
"divw r12, r11, r10\n"
|
|
"mullw r12, r12, r10\n"
|
|
"subf r10, r12, r11\n"
|
|
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
|
|
}
|
|
void nseel_asm_mod_op_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_or(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"or r10, r10, r11\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_or_end(void) {}
|
|
|
|
void nseel_asm_or0(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fctiwz f1, f1\n"
|
|
"addis r11, 0, 0x4330\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_or0_end(void) {}
|
|
|
|
void nseel_asm_or_op(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"or r10, r10, r11\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_or_op_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_xor(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"xor r10, r10, r11\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_xor_end(void) {}
|
|
|
|
void nseel_asm_xor_op(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"xor r10, r10, r11\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_xor_op_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_and(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"and r10, r10, r11\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
FUNCTION_MARKER
|
|
);}
|
|
void nseel_asm_and_end(void) {}
|
|
|
|
void nseel_asm_and_op(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fctiwz f1, f1\n"
|
|
"fctiwz f2, f2\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"stfd f2, -16(r1)\n"
|
|
"lwz r10, -4(r1)\n"
|
|
"lwz r11, -12(r1)\n" //r11 and r12 have the integers
|
|
"and r10, r10, r11\n" // r10 has the result
|
|
"addis r11, 0, 0x4330\n"
|
|
"xoris r10, r10, 0x8000\n"
|
|
"stw r11, -8(r1)\n" // 0x43300000
|
|
"stw r10, -4(r1)\n" // our integer sign flipped
|
|
"lfd f1, -8(r1)\n"
|
|
"fsub f1, f1, f30\n"
|
|
"mr r3, r14\n"
|
|
"stfd f1, 0(r14)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_and_op_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_uplus(void) // this is the same as doing nothing, it seems
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_uplus_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_uminus(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fneg f1, f1\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_uminus_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_sign(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"li r9, 0\n"
|
|
"stw r9, -4(r1)\n"
|
|
"lis r9, 0xbf80\n" // -1 in float
|
|
"lfs f2, -4(r1)\n"
|
|
|
|
"fcmpu cr7, f1, f2\n"
|
|
"blt- cr7, 0f\n"
|
|
"ble- cr7, 1f\n"
|
|
" lis r9, 0x3f80\n" // 1 in float
|
|
"0:\n"
|
|
" stw r9, -4(r1)\n"
|
|
" lfs f1, -4(r1)\n"
|
|
"1:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_sign_end(void) {}
|
|
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_bnot(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"cmpwi cr0, r3, 0\n"
|
|
"addis r3, 0, 0\n"
|
|
"bne cr0, 0f\n"
|
|
"addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_bnot_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_if(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"cmpwi cr0, r3, 0\n"
|
|
"beq cr0, 0f\n"
|
|
" addis r6, 0, 0xdead\n"
|
|
" ori r6, r6, 0xbeef\n"
|
|
" mtctr r6\n"
|
|
" bctrl\n"
|
|
"b 1f\n"
|
|
"0:\n"
|
|
" addis r6, 0, 0xdead\n"
|
|
" ori r6, r6, 0xbeef\n"
|
|
" mtctr r6\n"
|
|
" bctrl\n"
|
|
"1:\n"
|
|
FUNCTION_MARKER
|
|
:: );
|
|
}
|
|
void nseel_asm_if_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_repeat(void)
|
|
{
|
|
#if NSEEL_LOOPFUNC_SUPPORT_MAXLEN > 0
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fctiwz f1, f1\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"lwz r5, -4(r1)\n" // r5 has count now
|
|
"cmpwi cr0, r5, 0\n"
|
|
"ble cr0, 1f\n" // skip the loop
|
|
|
|
"addis r7, 0, ha16(%0)\n"
|
|
"addi r7, r7, lo16(%0)\n"
|
|
|
|
"stwu r16, -16(r1)\n" // set up the stack for the loop, save r16
|
|
|
|
"cmpw cr0, r7, r5\n"
|
|
"bge cr0, 0f\n"
|
|
"mr r5, r7\n" // set r5 to max if we have to
|
|
"0:\n"
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n"
|
|
|
|
"addi r5, r5, -1\n"
|
|
"stw r5, 4(r1)\n"
|
|
|
|
"mtctr r6\n"
|
|
"bctrl\n"
|
|
|
|
"lwz r16, 0(r1)\n"
|
|
"lwz r5, 4(r1)\n"
|
|
|
|
"cmpwi cr0, r5, 0\n"
|
|
"bgt cr0, 0b\n"
|
|
|
|
"addi r1, r1, 16\n" // restore old stack
|
|
|
|
"1:\n"
|
|
FUNCTION_MARKER
|
|
::"g" (NSEEL_LOOPFUNC_SUPPORT_MAXLEN)
|
|
);
|
|
#else
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fctiwz f1, f1\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"lwz r5, -4(r1)\n" // r5 has count now
|
|
"cmpwi cr0, r5, 0\n"
|
|
"ble cr0, 1f\n" // skip the loop
|
|
|
|
"stwu r16, -16(r1)\n" // set up the stack for the loop, save r16
|
|
|
|
"0:\n"
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n"
|
|
|
|
"addi r5, r5, -1\n"
|
|
"stw r5, 4(r1)\n"
|
|
|
|
"mtctr r6\n"
|
|
"bctrl\n"
|
|
|
|
"lwz r16, 0(r1)\n"
|
|
"lwz r5, 4(r1)\n"
|
|
|
|
"cmpwi cr0, r5, 0\n"
|
|
"bgt cr0, 0b\n"
|
|
|
|
"addi r1, r1, 16\n" // restore old stack
|
|
|
|
"1:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
#endif
|
|
}
|
|
void nseel_asm_repeat_end(void) {}
|
|
|
|
void nseel_asm_repeatwhile(void)
|
|
{
|
|
#if NSEEL_LOOPFUNC_SUPPORT_MAXLEN > 0
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"stwu r16, -16(r1)\n" // save r16 to stack, update stack
|
|
"addis r5, 0, ha16(%0)\n"
|
|
"addi r5, r5, lo16(%0)\n"
|
|
"0:\n"
|
|
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n"
|
|
"stw r5, 4(r1)\n" // save maxcnt
|
|
|
|
"mtctr r6\n"
|
|
"bctrl\n"
|
|
|
|
"lwz r16, 0(r1)\n" // restore r16
|
|
"lwz r5, 4(r1)\n" // restore, check maxcnt
|
|
|
|
"cmpwi cr7, r3, 0\n" // check return value
|
|
"addi r5, r5, -1\n"
|
|
|
|
"beq cr7, 1f\n"
|
|
|
|
"cmpwi cr0, r5, 0\n"
|
|
"bgt cr0, 0b\n"
|
|
"1:\n"
|
|
"addi r1, r1, 16\n" // restore stack
|
|
FUNCTION_MARKER
|
|
::"g" (NSEEL_LOOPFUNC_SUPPORT_MAXLEN)
|
|
);
|
|
#else
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"stwu r16, -16(r1)\n" // save r16 to stack, update stack
|
|
"0:\n"
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n"
|
|
|
|
"mtctr r6\n"
|
|
"bctrl\n"
|
|
|
|
"lwz r16, 0(r1)\n" // restore r16
|
|
|
|
"cmpwi cr7, r3, 0\n" // check return value
|
|
"bne cr7, 0b\n"
|
|
"addi r1, r1, 16\n" // restore stack
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
|
|
#endif
|
|
}
|
|
void nseel_asm_repeatwhile_end(void) {}
|
|
|
|
|
|
void nseel_asm_band(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"cmpwi cr7, r3, 0\n"
|
|
"beq cr7, 0f\n"
|
|
" addis r6, 0, 0xdead\n"
|
|
" ori r6, r6, 0xbeef\n"
|
|
" mtctr r6\n"
|
|
" bctrl\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
:: );
|
|
}
|
|
void nseel_asm_band_end(void) {}
|
|
|
|
void nseel_asm_bor(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"cmpwi cr7, r3, 0\n"
|
|
"bne cr7, 0f\n"
|
|
" addis r6, 0, 0xdead\n"
|
|
" ori r6, r6, 0xbeef\n"
|
|
" mtctr r6\n"
|
|
" bctrl\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
:: );
|
|
}
|
|
void nseel_asm_bor_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_equal(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fsub f1, f1, f2\n"
|
|
"fabs f1, f1\n"
|
|
"fcmpu cr7, f1, f31\n"
|
|
"addis r3, 0, 0\n"
|
|
"bge cr7, 0f\n"
|
|
"addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_equal_end(void) {}
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_equal_exact(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f1, f2\n"
|
|
"addis r3, 0, 0\n"
|
|
"bne cr7, 0f\n"
|
|
"addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_equal_exact_end(void) {}
|
|
//
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_notequal_exact(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f1, f2\n"
|
|
"addis r3, 0, 0\n"
|
|
"beq cr7, 0f\n"
|
|
"addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_notequal_exact_end(void) {}
|
|
//
|
|
//
|
|
//
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_notequal(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fsub f1, f1, f2\n"
|
|
"fabs f1, f1\n"
|
|
"fcmpu cr7, f1, f31\n"
|
|
"addis r3, 0, 0\n"
|
|
"blt cr7, 0f\n"
|
|
" addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_notequal_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_below(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f1, f2\n"
|
|
"addis r3, 0, 0\n"
|
|
"ble cr7, 0f\n"
|
|
"addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_below_end(void) {}
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_beloweq(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f1, f2\n"
|
|
"addis r3, 0, 0\n"
|
|
"blt cr7, 0f\n"
|
|
" addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_beloweq_end(void) {}
|
|
|
|
|
|
//---------------------------------------------------------------------------------------------------------------
|
|
void nseel_asm_above(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f1, f2\n"
|
|
"addis r3, 0, 0\n"
|
|
"bge cr7, 0f\n"
|
|
"addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_above_end(void) {}
|
|
|
|
void nseel_asm_aboveeq(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f1, f2\n"
|
|
"addis r3, 0, 0\n"
|
|
"bgt cr7, 0f\n"
|
|
"addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_aboveeq_end(void) {}
|
|
|
|
|
|
|
|
void nseel_asm_min(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f1, 0(r3)\n"
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f2, f1\n"
|
|
"bgt cr7, 0f\n"
|
|
"mr r3, r14\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_min_end(void) {}
|
|
|
|
void nseel_asm_max(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f1, 0(r3)\n"
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f2, f1\n"
|
|
"blt cr7, 0f\n"
|
|
"mr r3, r14\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
|
|
void nseel_asm_max_end(void) {}
|
|
|
|
|
|
void nseel_asm_min_fp(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f2, f1\n"
|
|
"bgt cr7, 0f\n"
|
|
"fmr f1, f2\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_min_fp_end(void) {}
|
|
|
|
void nseel_asm_max_fp(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, 0(r14)\n"
|
|
"fcmpu cr7, f2, f1\n"
|
|
"blt cr7, 0f\n"
|
|
"fmr f1, f2\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
|
|
void nseel_asm_max_fp_end(void) {}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void _asm_generic3parm(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r6, r3\n"
|
|
"addis r3, 0, 0xdead\n"
|
|
"ori r3, r3, 0xbeef\n"
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"mr r4, r15\n"
|
|
"mr r5, r14\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void _asm_generic3parm_end(void) {}
|
|
|
|
void _asm_generic3parm_retd(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r6, r3\n"
|
|
"addis r3, 0, 0xdead\n"
|
|
"ori r3, r3, 0xbeef\n"
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"mr r4, r15\n"
|
|
"mr r5, r14\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void _asm_generic3parm_retd_end(void) {}
|
|
|
|
|
|
void _asm_generic2parm(void) // this prob neds to be fixed for ppc
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r5, r3\n"
|
|
"addis r3, 0, 0xdead\n"
|
|
"ori r3, r3, 0xbeef\n"
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"mr r4, r14\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void _asm_generic2parm_end(void) {}
|
|
|
|
|
|
void _asm_generic2parm_retd(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r5, r3\n"
|
|
"addis r3, 0, 0xdead\n"
|
|
"ori r3, r3, 0xbeef\n"
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"mr r4, r14\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void _asm_generic2parm_retd_end(void) {}
|
|
|
|
void _asm_generic1parm(void) // this prob neds to be fixed for ppc
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r4, r3\n"
|
|
"addis r3, 0, 0xdead\n"
|
|
"ori r3, r3, 0xbeef\n"
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void _asm_generic1parm_end(void) {}
|
|
|
|
|
|
|
|
void _asm_generic1parm_retd(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"mr r4, r3\n"
|
|
"addis r3, 0, 0xdead\n"
|
|
"ori r3, r3, 0xbeef\n"
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void _asm_generic1parm_retd_end(void) {}
|
|
|
|
|
|
|
|
|
|
void _asm_megabuf(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"lfd f2, -8(r13)\n"
|
|
"mr r3, r13\n"
|
|
|
|
"fadd f1, f2, f1\n"
|
|
|
|
// f1 has (float) index of array, r3 has EEL_F **
|
|
"fctiwz f1, f1\n"
|
|
"stfd f1, -8(r1)\n"
|
|
"lwz r4, -4(r1)\n" // r4 is index of array
|
|
|
|
"andis. r15, r4, %0\n" // check to see if it has any bits in 0xFF800000, which is 0xFFFFFFFF - (NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK - 1)
|
|
"bne cr0, 0f\n" // out of range, jump to error
|
|
|
|
// shr 14 (16 for NSEEL_RAM_ITEMSPERBLOCK, minus two for pointer size), which is rotate 18
|
|
// mask 7 bits (NSEEL_RAM_BLOCKS), but leave two empty bits (pointer size)
|
|
"rlwinm r15, r4, %1, %2, 29\n"
|
|
"lwzx r15, r3, r15\n" // r15 = (r3+r15)
|
|
"cmpi cr0, r15, 0\n"
|
|
"bne cr0, 1f\n" // if nonzero, jump to final calculation
|
|
|
|
"0:\n"
|
|
// set up function call
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
"mtctr r7\n"
|
|
"subi r1, r1, 64\n"
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
"b 2f\n"
|
|
"1:\n"
|
|
// good news: we can do a direct addr return
|
|
// bad news: more rlwinm ugliness!
|
|
// shift left by 3 (sizeof(EEL_F)), mask off lower 3 bits, only allow 16 bits (NSEEL_RAM_ITEMSPERBLOCK) through
|
|
"rlwinm r3, r4, 3, %3, 28\n"
|
|
|
|
// add offset of loaded block
|
|
"add r3, r3, r15\n"
|
|
|
|
"2:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
"i" ((0xFFFFFFFF - (NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK - 1))>>16),
|
|
"i" (32 - NSEEL_RAM_ITEMSPERBLOCK_LOG2 + 2),
|
|
"i" (30 - NSEEL_RAM_BLOCKS_LOG2),
|
|
"i" (28 - NSEEL_RAM_ITEMSPERBLOCK_LOG2 + 1)
|
|
);
|
|
}
|
|
|
|
void _asm_megabuf_end(void) {}
|
|
|
|
void _asm_gmegabuf(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fadd f1, f31, f1\n"
|
|
"addis r3, 0, 0xdead\n" // set up context pointer
|
|
"ori r3, r3, 0xbeef\n"
|
|
|
|
"fctiwz f1, f1\n"
|
|
"subi r1, r1, 64\n"
|
|
|
|
"addis r7, 0, 0xdead\n"
|
|
"ori r7, r7, 0xbeef\n"
|
|
|
|
"stfd f1, 8(r1)\n"
|
|
"mtctr r7\n"
|
|
|
|
"lwz r4, 12(r1)\n"
|
|
|
|
"bctrl\n"
|
|
"addi r1, r1, 64\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
|
|
void _asm_gmegabuf_end(void) {}
|
|
|
|
void nseel_asm_fcall(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n"
|
|
"mtctr r6\n"
|
|
"bctrl\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_fcall_end(void) {}
|
|
|
|
|
|
|
|
void nseel_asm_stack_push(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n" // r6 is stack
|
|
|
|
"lfd f1, 0(r3)\n" // f1 is value to copy to stack
|
|
"lwz r3, 0(r6)\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"addi r3, r3, 0x8\n"
|
|
|
|
"and r3, r3, r14\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"or r3, r3, r14\n"
|
|
|
|
"stfd f1, 0(r3)\n" // copy parameter to stack
|
|
|
|
"stw r3, 0(r6)\n" // update stack state
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_stack_push_end(void) {}
|
|
|
|
void nseel_asm_stack_pop(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n" // r6 is stack
|
|
"lwz r15, 0(r6)\n" // return the old stack pointer
|
|
|
|
"lfd f1, 0(r15)\n"
|
|
"subi r15, r15, 0x8\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"and r15, r15, r14\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"or r15, r15, r14\n"
|
|
"stw r15, 0(r6)\n"
|
|
|
|
"stfd f1, 0(r3)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_stack_pop_end(void) {}
|
|
|
|
|
|
|
|
void nseel_asm_stack_pop_fast(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n" // r6 is stack
|
|
"lwz r3, 0(r6)\n" // return the old stack pointer
|
|
|
|
"mr r15, r3\n" // update stack pointer
|
|
"subi r15, r15, 0x8\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"and r15, r15, r14\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"or r15, r15, r14\n"
|
|
"stw r15, 0(r6)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_stack_pop_fast_end(void) {}
|
|
|
|
void nseel_asm_stack_peek(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fctiwz f1, f1\n"
|
|
"stfd f1, -8(r1)\n"
|
|
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n" // r6 is stack
|
|
|
|
"lwz r14, -4(r1)\n"
|
|
"rlwinm r14, r14, 3, 0, 28\n" // slwi r14, r14, 3 -- 3 is log2(sizeof(EEL_F)) -- 28 represents 31-3
|
|
"lwz r3, 0(r6)\n" // return the old stack pointer
|
|
|
|
"sub r3, r3, r14\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"and r3, r3, r14\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"or r3, r3, r14\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_stack_peek_end(void) {}
|
|
|
|
|
|
void nseel_asm_stack_peek_top(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n" // r6 is stack
|
|
"lwz r3, 0(r6)\n" // return the old stack pointer
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_stack_peek_top_end(void) {}
|
|
|
|
|
|
void nseel_asm_stack_peek_int(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n" // r6 is stack
|
|
"lwz r3, 0(r6)\n" // return the old stack pointer
|
|
|
|
"addis r14, 0, 0xdead\n" // add manual offset
|
|
"ori r14, r14, 0xbeef\n"
|
|
"sub r3, r3, r14\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"and r3, r3, r14\n"
|
|
|
|
"addis r14, 0, 0xdead\n"
|
|
"ori r14, r14, 0xbeef\n"
|
|
"or r3, r3, r14\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_stack_peek_int_end(void) {}
|
|
|
|
void nseel_asm_stack_exch(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"addis r6, 0, 0xdead\n"
|
|
"ori r6, r6, 0xbeef\n" // r6 is stack
|
|
"lfd f1, 0(r3)\n"
|
|
"lwz r14, 0(r6)\n"
|
|
"lfd f2, 0(r14)\n"
|
|
|
|
"stfd f1, 0(r14)\n"
|
|
"stfd f2, 0(r3)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_stack_exch_end(void) {}
|
|
|
|
|
|
void nseel_asm_booltofp(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"cmpwi cr7, r3, 0\n"
|
|
"li r14, 0\n"
|
|
"beq cr7, 0f\n"
|
|
"addis r14, 0, 0x3f80\n"
|
|
"0:\n"
|
|
"stw r14, -8(r1)\n"
|
|
"lfs f1, -8(r1)\n"
|
|
FUNCTION_MARKER
|
|
);
|
|
}
|
|
void nseel_asm_booltofp_end(void){ }
|
|
|
|
void nseel_asm_fptobool(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fabs f1, f1\n"
|
|
"fcmpu cr7, f1, f31\n"
|
|
"addis r3, 0, 1\n"
|
|
"bge cr7, 0f\n"
|
|
" addis r3, 0, 0\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_fptobool_end(void){ }
|
|
|
|
void nseel_asm_fptobool_rev(void)
|
|
{
|
|
__asm__(
|
|
FUNCTION_MARKER
|
|
"fabs f1, f1\n"
|
|
"fcmpu cr7, f1, f31\n"
|
|
"addis r3, 0, 0\n"
|
|
"bge cr7, 0f\n"
|
|
" addis r3, 0, 1\n"
|
|
"0:\n"
|
|
FUNCTION_MARKER
|
|
::
|
|
);
|
|
}
|
|
void nseel_asm_fptobool_rev_end(void){ }
|
|
|