Restore PPC Test Suite

There's loads of things still broken, but it does work well enough for one to test the veracity.

Author: dingusdev

cpu/ppc/test/ppctests.cpp

@@ -32,10 +32,109 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 #include <vector>
 
 using namespace std;
+using namespace dppc_interpreter;
 
 int ntested; // number of tested instructions
 int nfailed; // number of failed instructions
 
+//Hack to get floating point tests working again
+static PPCOpcode test_fp_grabber59[2048];
+static PPCOpcode test_fp_grabber63[2048];
+
+#define FP_Insert(op, idx, fn)                        \
+    do {                                              \
+        if ((op) == 59)                               \
+            test_fp_grabber59[(idx) & 2047] = (fn);   \
+        else                                          \
+            test_fp_grabber63[(idx) & 2047] = (fn);   \
+    } while (0)
+
+#define OPX_fp(op, subop, fn) FP_Insert(op, (subop) << 1, fn)
+
+#define OPXd_fp(op, subop, fn)                       \
+    do {                                             \
+        FP_Insert(op, ((subop) << 1) | 0, fn<RC0>);  \
+        FP_Insert(op, ((subop) << 1) | 1, fn<RC1>);  \
+    } while (0)
+
+#define OPXdc_fp(op, subop, fn, carry)                       \
+    do {                                                     \
+        FP_Insert(op, ((subop) << 1) | 0, (fn<carry, RC0>)); \
+        FP_Insert(op, ((subop) << 1) | 1, (fn<carry, RC1>)); \
+    } while (0)
+
+#define OP63(subop, fn) OPX_fp(63, subop, fn)
+#define OP63d(subop, fn) OPXd_fp(63, subop, fn)
+#define OP63dc(subop, fn, carry) OPXdc_fp(63, subop, fn, carry)
+
+#define OP59d(subop, fn) OPXd_fp(59, subop, fn)
+
+#define OP59cd(subop, fn)                             \
+    do {                                              \
+        for (uint32_t c = 0; c < 32; c++) {           \
+            OPXd_fp(59, (c << 5) | (subop), fn);      \
+        }                                             \
+    } while (0)
+
+static void init_fp_table() {
+    OP59d(18, ppc_fdivs);
+    OP59d(20, ppc_fsubs);
+    OP59d(21, ppc_fadds);
+
+    if (ppc_state.spr[SPR::PVR] == PPC_VER::MPC970MP)
+        OP59d(22, ppc_fsqrts);
+
+    if (!is_601)
+        OP59d(24, ppc_fres);
+
+    OP59d(25, ppc_fmuls);
+    OP59d(28, ppc_fmsubs);
+    OP59d(29, ppc_fmadds);
+    OP59d(30, ppc_fnmsubs);
+    OP59d(31, ppc_fnmadds);
+
+    OP63(0, ppc_fcmpu);
+    OP63d(12, ppc_frsp);
+    OP63d(14, ppc_fctiw);
+    OP63d(15, ppc_fctiwz);
+    OP63d(18, ppc_fdiv);
+    OP63d(20, ppc_fsub);
+    OP63d(21, ppc_fadd);
+
+    if (ppc_state.spr[SPR::PVR] == PPC_VER::MPC970MP)
+        OP63d(22, ppc_fsqrt);
+
+    if (!is_601)
+        OP63d(26, ppc_frsqrte);
+
+    OP63(32, ppc_fcmpo);
+    OP63d(38, ppc_mtfsb1);
+    OP63d(40, ppc_fneg);
+    OP63(64, ppc_mcrfs);
+    OP63d(70, ppc_mtfsb0);
+    OP63d(72, ppc_fmr);
+    OP63d(134, ppc_mtfsfi);
+    OP63d(136, ppc_fnabs);
+    OP63d(264, ppc_fabs);
+
+    if (is_601)
+        OP63dc(583, ppc_mffs, IS601);
+    else
+        OP63dc(583, ppc_mffs, NOT601);
+
+    OP63d(711, ppc_mtfsf);
+
+    for (int i = 0; i < 1024; i += 32) {
+        if (!is_601)
+            OP63d(i + 23, ppc_fsel);
+        OP63d(i + 25, ppc_fmul);
+        OP63d(i + 28, ppc_fmsub);
+        OP63d(i + 29, ppc_fmadd);
+        OP63d(i + 30, ppc_fnmsub);
+        OP63d(i + 31, ppc_fnmadd);
+    }
+}
+
 #if defined(PPC_TESTS)
 void ppc_exception_handler(Except_Type exception_type, uint32_t srr1_bits) {
     power_on = false;
@@ -209,6 +308,8 @@ static void read_test_float_data() {
         return;
     }
 
+    init_fp_table();
+
     lineno = 0;
 
     while (getline(tf2stream, line)) {
@@ -292,7 +393,12 @@ static void read_test_float_data() {
 
         ppc_state.cr = 0;
 
-        ppc_main_opcode(ppc_opcode_grabber, opcode);
+        if ((opcode >> 26) & 63) {
+            test_fp_grabber63[opcode & 2047];
+        }
+        else {
+            test_fp_grabber59[opcode & 2047];
+        }
 
         ntested++;