diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/vm_ppcspe.dasc | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/vm_ppcspe.dasc b/src/vm_ppcspe.dasc index cbd6ecdd..94bb7137 100644 --- a/src/vm_ppcspe.dasc +++ b/src/vm_ppcspe.dasc | |||
@@ -2052,38 +2052,6 @@ static void build_subroutines(BuildCtx *ctx) | |||
2052 | |->vm_trunc_hilo: | 2052 | |->vm_trunc_hilo: |
2053 | |.endif | 2053 | |.endif |
2054 | | | 2054 | | |
2055 | |// Callable from C: double lj_vm_foldarith(double x, double y, int op) | ||
2056 | |// Compute x op y for basic arithmetic operators (+ - * / % ^ and unary -) | ||
2057 | |// and basic math functions. ORDER ARITH | ||
2058 | |->vm_foldarith: | ||
2059 | | evmergelo CARG2, CARG1, CARG2 | ||
2060 | | cmplwi CARG5, 1 | ||
2061 | | evmergelo CARG4, CARG3, CARG4 | ||
2062 | | beq >1; bgt >2 | ||
2063 | | efdadd CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr | ||
2064 | |1: | ||
2065 | | efdsub CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr | ||
2066 | |2: | ||
2067 | | cmplwi CARG5, 3; beq >1; bgt >2 | ||
2068 | | efdmul CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr | ||
2069 | |1: | ||
2070 | | efddiv CRET2, CARG2, CARG4; evmergehi CRET1, CRET2, CRET2; blr | ||
2071 | |2: | ||
2072 | | cmplwi CARG5, 5; beq >1; bgt >2 | ||
2073 | | evmr CARG3, CARG2; efddiv CRET2, CARG2, CARG4; evmr RB, CARG4 | ||
2074 | | mflr RC; bl ->vm_floor_efd; mtlr RC | ||
2075 | | efdmul CRET2, CRET2, RB; efdsub CRET2, CARG3, CRET2 | ||
2076 | | evmergehi CRET1, CRET2, CRET2; blr | ||
2077 | |1: | ||
2078 | | b extern pow | ||
2079 | |2: | ||
2080 | | cmplwi CARG5, 7; beq >1; bgt >2 | ||
2081 | | xoris CARG1, CARG1, 0x8000; blr | ||
2082 | |1: | ||
2083 | | rlwinm CARG1, CARG1, 0, 1, 31; blr | ||
2084 | |2: | ||
2085 | | NYI // Other operations only needed by JIT compiler. | ||
2086 | | | ||
2087 | |//----------------------------------------------------------------------- | 2055 | |//----------------------------------------------------------------------- |
2088 | |//-- Miscellaneous functions -------------------------------------------- | 2056 | |//-- Miscellaneous functions -------------------------------------------- |
2089 | |//----------------------------------------------------------------------- | 2057 | |//----------------------------------------------------------------------- |