mirror of
https://github.com/open-goal/jak-project
synced 2026-06-02 10:10:44 -04:00
[Decompiler] Add more expressions (Part 4) (#215)
* ref * more * one more * up to insert cons * recognize new * fix memory bug! * some mods to pair fields
This commit is contained in:
water111
@@ -587,4 +587,983 @@ TEST_F(FormRegressionTest, ExprFindParentMethod) {
|
||||
" v0-0\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, false, "");
|
||||
}
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprRef) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
"L272:\n"
|
||||
" addiu v1, r0, 0\n"
|
||||
" beq r0, r0, L274\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L273:\n"
|
||||
" sll r0, r0, 0\n"
|
||||
" sll r0, r0, 0\n"
|
||||
" lw a0, 2(a0)\n"
|
||||
" daddiu v1, v1, 1\n"
|
||||
|
||||
"L274:\n"
|
||||
" slt a2, v1, a1\n"
|
||||
" bne a2, r0, L273\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v1, s7, r0\n"
|
||||
" or v1, s7, r0\n"
|
||||
" lw v0, -2(a0)\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object int object)";
|
||||
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! v1-0 0)\n"
|
||||
" (while\n"
|
||||
" (<.si v1-0 a1-0)\n"
|
||||
" (nop!)\n"
|
||||
" (nop!)\n"
|
||||
" (set! a0-0 (cdr a0-0))\n"
|
||||
" (set! v1-0 (+ v1-0 1))\n"
|
||||
" )\n"
|
||||
" (set! v1-1 '#f)\n"
|
||||
" (set! v1-2 '#f)\n"
|
||||
" (car a0-0)\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprPairMethod4) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
"L266:\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" bne a0, v1, L267\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" addiu v0, r0, 0\n"
|
||||
" beq r0, r0, L271\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L267:\n"
|
||||
" lw v1, 2(a0)\n"
|
||||
" addiu v0, r0, 1\n"
|
||||
" beq r0, r0, L269\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L268:\n"
|
||||
" daddiu v0, v0, 1\n"
|
||||
" lw v1, 2(v1)\n"
|
||||
|
||||
"L269:\n"
|
||||
" daddiu a0, s7, -10\n"
|
||||
" dsubu a0, v1, a0\n"
|
||||
" daddiu a1, s7, 8\n"
|
||||
" movz a1, s7, a0\n"
|
||||
" beql s7, a1, L270\n"
|
||||
" or a0, a1, r0\n"
|
||||
|
||||
" dsll32 a0, v1, 30\n"
|
||||
" slt a1, a0, r0\n"
|
||||
" daddiu a0, s7, 8\n"
|
||||
" movz a0, s7, a1\n"
|
||||
|
||||
"L270:\n"
|
||||
" bne s7, a0, L268\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v1, s7, r0\n"
|
||||
|
||||
"L271:\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0\n";
|
||||
std::string type = "(function pair int)";
|
||||
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (cond\n"
|
||||
" ((= a0-0 '()) (set! v0-0 0))\n"
|
||||
" (else\n"
|
||||
" (set! v1-1 (cdr a0-0))\n"
|
||||
" (set! v0-0 1)\n"
|
||||
" (while\n"
|
||||
" (truthy\n"
|
||||
" (and (truthy (!= v1-1 '())) "
|
||||
" (<0.si (sll (the-as uint v1-1) 62)))\n"
|
||||
" )\n"
|
||||
" (set! v0-0 (+ v0-0 1))\n"
|
||||
" (set! v1-1 (cdr v1-1))\n"
|
||||
" )\n"
|
||||
" (set! v1-2 '#f)\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" v0-0\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprPairMethod5) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
" lw v1, pair(s7)\n"
|
||||
" lhu v0, 8(v1)\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function pair uint)";
|
||||
|
||||
std::string expected = "(-> pair size)";
|
||||
test_with_expr(func, type, expected, false, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprLast) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v0, a0, r0\n"
|
||||
" beq r0, r0, L264\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L263:\n"
|
||||
" sll r0, r0, 0\n"
|
||||
" sll r0, r0, 0\n"
|
||||
" lw v0, 2(v0)\n"
|
||||
|
||||
"L264:\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" lw a0, 2(v0)\n"
|
||||
" bne a0, v1, L263\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v1, s7, r0\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object object)";
|
||||
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! v0-0 a0-0)\n"
|
||||
" (while (!= (cdr v0-0) '())"
|
||||
" (nop!)\n"
|
||||
" (nop!)\n"
|
||||
" (set! v0-0 (cdr v0-0)))\n"
|
||||
" (set! v1-1 '#f)\n"
|
||||
" v0-0\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprMember) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
"L257:\n"
|
||||
" or v1, a1, r0\n"
|
||||
" beq r0, r0, L259\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L258:\n"
|
||||
" lw v1, 2(v1)\n"
|
||||
|
||||
"L259:\n"
|
||||
" daddiu a1, s7, -10\n"
|
||||
" dsubu a1, v1, a1\n"
|
||||
" daddiu a2, s7, 8\n"
|
||||
" movn a2, s7, a1\n"
|
||||
" bnel s7, a2, L260\n"
|
||||
" or a1, a2, r0\n"
|
||||
|
||||
" lw a1, -2(v1)\n"
|
||||
" dsubu a2, a1, a0\n"
|
||||
" daddiu a1, s7, 8\n"
|
||||
" movn a1, s7, a2\n"
|
||||
|
||||
"L260:\n"
|
||||
" beq s7, a1, L258\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or a0, s7, r0\n"
|
||||
" daddiu a0, s7, -10\n"
|
||||
" beq v1, a0, L261\n"
|
||||
" or v0, s7, r0\n"
|
||||
|
||||
" or v0, v1, r0\n"
|
||||
|
||||
"L261:\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object object object)";
|
||||
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! v1-0 a1-0)\n"
|
||||
" (while\n"
|
||||
" (not (or (truthy (= v1-0 '())) (= (car v1-0) a0-0)))\n"
|
||||
" (set! v1-0 (cdr v1-0))\n"
|
||||
" )\n"
|
||||
" (set! a0-1 '#f)\n"
|
||||
" (if (!= v1-0 '()) v1-0)\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprNmember) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
" daddiu sp, sp, -48\n"
|
||||
" sd ra, 0(sp)\n"
|
||||
" sq s5, 16(sp)\n"
|
||||
" sq gp, 32(sp)\n"
|
||||
|
||||
" or s5, a0, r0\n"
|
||||
" or gp, a1, r0\n"
|
||||
" beq r0, r0, L254\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L253:\n"
|
||||
" lw gp, 2(gp)\n"
|
||||
|
||||
"L254:\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" dsubu v1, gp, v1\n"
|
||||
" daddiu a0, s7, 8\n"
|
||||
" movn a0, s7, v1\n"
|
||||
" bnel s7, a0, L255\n"
|
||||
" or v1, a0, r0\n"
|
||||
|
||||
" lw t9, name=(s7)\n"
|
||||
" lw a0, -2(gp)\n"
|
||||
" or a1, s5, r0\n"
|
||||
" jalr ra, t9\n"
|
||||
" sll v0, ra, 0\n"
|
||||
|
||||
" or v1, v0, r0\n"
|
||||
|
||||
"L255:\n"
|
||||
" beq s7, v1, L253\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v1, s7, r0\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" beq gp, v1, L256\n"
|
||||
" or v0, s7, r0\n"
|
||||
|
||||
" or v0, gp, r0\n"
|
||||
|
||||
"L256:\n"
|
||||
" ld ra, 0(sp)\n"
|
||||
" lq gp, 32(sp)\n"
|
||||
" lq s5, 16(sp)\n"
|
||||
" jr ra\n"
|
||||
" daddiu sp, sp, 48";
|
||||
std::string type = "(function basic object object)";
|
||||
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! s5-0 a0-0)\n"
|
||||
" (set! gp-0 a1-0)\n"
|
||||
" (while\n"
|
||||
" (not (or (truthy (= gp-0 '())) (name= (car gp-0) s5-0)))\n"
|
||||
" (set! gp-0 (cdr gp-0))\n"
|
||||
" )\n"
|
||||
" (set! v1-2 '#f)\n"
|
||||
" (if (!= gp-0 '()) gp-0)\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprAssoc) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
" or v1, a1, r0\n"
|
||||
" beq r0, r0, L249\n"
|
||||
" sll r0, r0, 0\n"
|
||||
"L248:\n"
|
||||
" lw v1, 2(v1)\n"
|
||||
|
||||
"L249:\n"
|
||||
" daddiu a1, s7, -10\n"
|
||||
" dsubu a1, v1, a1\n"
|
||||
" daddiu a2, s7, 8\n"
|
||||
" movn a2, s7, a1\n"
|
||||
" bnel s7, a2, L250\n"
|
||||
" or a1, a2, r0\n"
|
||||
|
||||
" lw a1, -2(v1)\n"
|
||||
" lw a1, -2(a1)\n"
|
||||
" dsubu a2, a1, a0\n"
|
||||
" daddiu a1, s7, 8\n"
|
||||
" movn a1, s7, a2\n"
|
||||
|
||||
"L250:\n"
|
||||
" beq s7, a1, L248\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or a0, s7, r0\n"
|
||||
" daddiu a0, s7, -10\n"
|
||||
" beq v1, a0, L251\n"
|
||||
" or v0, s7, r0\n"
|
||||
|
||||
" lw v0, -2(v1)\n"
|
||||
|
||||
"L251:\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object object object)";
|
||||
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! v1-0 a1-0)\n"
|
||||
" (while\n"
|
||||
" (not (or (truthy (= v1-0 '())) (= (car (car v1-0)) a0-0)))\n"
|
||||
" (set! v1-0 (cdr v1-0))\n"
|
||||
" )\n"
|
||||
" (set! a0-1 '#f)\n"
|
||||
" (if (!= v1-0 '()) (car v1-0))\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprAssoce) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v1, a1, r0\n"
|
||||
" beq r0, r0, L244\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L243:\n"
|
||||
" lw v1, 2(v1)\n"
|
||||
|
||||
"L244:\n"
|
||||
" daddiu a1, s7, -10\n"
|
||||
" dsubu a1, v1, a1\n"
|
||||
" daddiu a2, s7, 8\n"
|
||||
" movn a2, s7, a1\n"
|
||||
" bnel s7, a2, L245\n"
|
||||
" or a1, a2, r0\n"
|
||||
|
||||
" lw a1, -2(v1)\n"
|
||||
" lw a1, -2(a1)\n"
|
||||
" dsubu a1, a1, a0\n"
|
||||
" daddiu a2, s7, 8\n"
|
||||
" movn a2, s7, a1\n"
|
||||
" bnel s7, a2, L245\n"
|
||||
" or a1, a2, r0\n"
|
||||
|
||||
" lw a1, -2(v1)\n"
|
||||
" lw a1, -2(a1)\n"
|
||||
" daddiu a2, s7, else\n"
|
||||
" dsubu a2, a1, a2\n"
|
||||
" daddiu a1, s7, 8\n"
|
||||
" movn a1, s7, a2\n"
|
||||
|
||||
"L245:\n"
|
||||
" beq s7, a1, L243\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or a0, s7, r0\n"
|
||||
" daddiu a0, s7, -10\n"
|
||||
" beq v1, a0, L246\n"
|
||||
" or v0, s7, r0\n"
|
||||
|
||||
" lw v0, -2(v1)\n"
|
||||
|
||||
"L246:\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object object object)";
|
||||
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! v1-0 a1-0)\n"
|
||||
" (while\n"
|
||||
" (not\n"
|
||||
" (or\n"
|
||||
" (truthy (= v1-0 '()))\n"
|
||||
" (truthy (= (car (car v1-0)) a0-0))\n"
|
||||
" (= (car (car v1-0)) 'else)\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (set! v1-0 (cdr v1-0))\n"
|
||||
" )\n"
|
||||
" (set! a0-1 '#f)\n"
|
||||
" (if (!= v1-0 '()) (car v1-0))\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprNassoc) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
" daddiu sp, sp, -48\n"
|
||||
" sd ra, 0(sp)\n"
|
||||
" sq s5, 16(sp)\n"
|
||||
" sq gp, 32(sp)\n"
|
||||
|
||||
" or s5, a0, r0\n"
|
||||
" or gp, a1, r0\n"
|
||||
" beq r0, r0, L238\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L237:\n"
|
||||
" lw gp, 2(gp)\n"
|
||||
|
||||
"L238:\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" dsubu v1, gp, v1\n"
|
||||
" daddiu a0, s7, 8\n"
|
||||
" movn a0, s7, v1\n"
|
||||
" bnel s7, a0, L240\n"
|
||||
" or v1, a0, r0\n"
|
||||
|
||||
" lw v1, -2(gp)\n"
|
||||
" lw a1, -2(v1)\n"
|
||||
" dsll32 v1, a1, 30\n"
|
||||
" slt v1, v1, r0\n"
|
||||
" beq v1, r0, L239\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" lw t9, nmember(s7)\n"
|
||||
" or a0, s5, r0\n"
|
||||
" jalr ra, t9\n"
|
||||
" sll v0, ra, 0\n"
|
||||
|
||||
" or v1, v0, r0\n"
|
||||
" beq r0, r0, L240\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L239:\n"
|
||||
" lw t9, name=(s7)\n"
|
||||
" or a0, a1, r0\n"
|
||||
" or a1, s5, r0\n"
|
||||
" jalr ra, t9\n"
|
||||
" sll v0, ra, 0\n"
|
||||
|
||||
" or v1, v0, r0\n"
|
||||
|
||||
"L240:\n"
|
||||
" beq s7, v1, L237\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v1, s7, r0\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" beq gp, v1, L241\n"
|
||||
" or v0, s7, r0\n"
|
||||
|
||||
" lw v0, -2(gp)\n"
|
||||
|
||||
"L241:\n"
|
||||
" ld ra, 0(sp)\n"
|
||||
" lq gp, 32(sp)\n"
|
||||
" lq s5, 16(sp)\n"
|
||||
" jr ra\n"
|
||||
" daddiu sp, sp, 48";
|
||||
std::string type = "(function object object object)";
|
||||
|
||||
// will need fixing if we clean up the set! if thing
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! s5-0 a0-0)\n"
|
||||
" (set! gp-0 a1-0)\n"
|
||||
" (while\n"
|
||||
" (not\n"
|
||||
" (or\n"
|
||||
" (truthy (= gp-0 '()))\n"
|
||||
" (begin\n"
|
||||
" (set! a1-1 (car (car gp-0)))\n"
|
||||
" (if\n"
|
||||
" (pair? a1-1)\n"
|
||||
" (set! v1-1 (nmember s5-0 a1-1))\n"
|
||||
" (set! v1-1 (name= a1-1 s5-0))\n"
|
||||
" )\n"
|
||||
" v1-1\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (set! gp-0 (cdr gp-0))\n"
|
||||
" )\n"
|
||||
" (set! v1-3 '#f)\n"
|
||||
" (if (!= gp-0 '()) (car gp-0))\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprNassoce) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
"L230:\n"
|
||||
" daddiu sp, sp, -64\n"
|
||||
" sd ra, 0(sp)\n"
|
||||
" sq s4, 16(sp)\n"
|
||||
" sq s5, 32(sp)\n"
|
||||
" sq gp, 48(sp)\n"
|
||||
|
||||
" or s5, a0, r0\n"
|
||||
" or gp, a1, r0\n"
|
||||
" beq r0, r0, L232\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L231:\n"
|
||||
" lw gp, 2(gp)\n"
|
||||
|
||||
"L232:\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" dsubu v1, gp, v1\n"
|
||||
" daddiu a0, s7, 8\n"
|
||||
" movn a0, s7, v1\n"
|
||||
" bnel s7, a0, L234\n"
|
||||
" or v1, a0, r0\n"
|
||||
|
||||
" lw v1, -2(gp)\n"
|
||||
" lw s4, -2(v1)\n"
|
||||
" dsll32 v1, s4, 30\n"
|
||||
" slt v1, v1, r0\n"
|
||||
" beq v1, r0, L233\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" lw t9, nmember(s7)\n"
|
||||
" or a0, s5, r0\n"
|
||||
" or a1, s4, r0\n"
|
||||
" jalr ra, t9\n"
|
||||
" sll v0, ra, 0\n"
|
||||
|
||||
" or v1, v0, r0\n"
|
||||
" beq r0, r0, L234\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L233:\n"
|
||||
" lw t9, name=(s7)\n"
|
||||
" or a0, s4, r0\n"
|
||||
" or a1, s5, r0\n"
|
||||
" jalr ra, t9\n"
|
||||
" sll v0, ra, 0\n"
|
||||
|
||||
" bnel s7, v0, L234\n"
|
||||
" or v1, v0, r0\n"
|
||||
|
||||
" daddiu v1, s7, else\n"
|
||||
" dsubu a0, s4, v1\n"
|
||||
" daddiu v1, s7, 8\n"
|
||||
" movn v1, s7, a0\n"
|
||||
|
||||
"L234:\n"
|
||||
" beq s7, v1, L231\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v1, s7, r0\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" beq gp, v1, L235\n"
|
||||
" or v0, s7, r0\n"
|
||||
|
||||
" lw v0, -2(gp)\n"
|
||||
|
||||
"L235:\n"
|
||||
" ld ra, 0(sp)\n"
|
||||
" lq gp, 48(sp)\n"
|
||||
" lq s5, 32(sp)\n"
|
||||
" lq s4, 16(sp)\n"
|
||||
" jr ra\n"
|
||||
" daddiu sp, sp, 64";
|
||||
std::string type = "(function object object object)";
|
||||
|
||||
// will need fixing if we clean up the set! if thing
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! s5-0 a0-0)\n"
|
||||
" (set! gp-0 a1-0)\n"
|
||||
" (while\n"
|
||||
" (not\n"
|
||||
" (or\n"
|
||||
" (truthy (= gp-0 '()))\n"
|
||||
" (begin\n"
|
||||
" (set! s4-0 (car (car gp-0)))\n"
|
||||
" (if\n"
|
||||
" (pair? s4-0)\n"
|
||||
" (set! v1-1 (nmember s5-0 s4-0))\n"
|
||||
" (set! v1-1 (or (truthy (name= s4-0 s5-0)) (= s4-0 'else)))\n"
|
||||
" )\n"
|
||||
" v1-1\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (set! gp-0 (cdr gp-0))\n"
|
||||
" )\n"
|
||||
" (set! v1-4 '#f)\n"
|
||||
" (if (!= gp-0 '()) (car gp-0))\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprAppend) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
"L224:\n"
|
||||
" daddiu v1, s7, -10\n"
|
||||
" bne a0, v1, L225\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or v0, a1, r0\n"
|
||||
" beq r0, r0, L229\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L225:\n"
|
||||
" or v1, a0, r0\n"
|
||||
" beq r0, r0, L227\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L226:\n"
|
||||
" sll r0, r0, 0\n"
|
||||
" sll r0, r0, 0\n"
|
||||
" lw v1, 2(v1)\n"
|
||||
|
||||
"L227:\n"
|
||||
" daddiu a2, s7, -10\n"
|
||||
" lw a3, 2(v1)\n"
|
||||
" bne a3, a2, L226\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or a2, s7, r0\n"
|
||||
" daddiu a2, s7, -10\n"
|
||||
" beq v1, a2, L228\n"
|
||||
" or a2, s7, r0\n"
|
||||
|
||||
" sw a1, 2(v1)\n"
|
||||
" or v1, a1, r0\n"
|
||||
|
||||
"L228:\n"
|
||||
" or v0, a0, r0\n"
|
||||
|
||||
"L229:\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object object object)";
|
||||
|
||||
// todo - will be changed by if fix.
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (cond\n"
|
||||
" ((= a0-0 '()) (set! v0-0 a1-0))\n"
|
||||
" (else\n"
|
||||
" (set! v1-1 a0-0)\n"
|
||||
" (while (!= (cdr v1-1) '()) "
|
||||
" (nop!) "
|
||||
" (nop!) "
|
||||
" (set! v1-1 (cdr v1-1)))\n"
|
||||
" (set! a2-1 '#f)\n"
|
||||
" (when (!= v1-1 '()) "
|
||||
" (set! (cdr v1-1) a1-0) "
|
||||
" (set! v1-2 a1-0))\n"
|
||||
" (set! v0-0 a0-0)\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" v0-0\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprDelete) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
"L217:\n"
|
||||
" lw v1, -2(a1)\n"
|
||||
" bne a0, v1, L218\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" lw v0, 2(a1)\n"
|
||||
" beq r0, r0, L223\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L218:\n"
|
||||
" or v1, a1, r0\n"
|
||||
" lw a2, 2(a1)\n"
|
||||
" beq r0, r0, L220\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L219:\n"
|
||||
" or v1, a2, r0\n"
|
||||
" lw a2, 2(a2)\n"
|
||||
|
||||
"L220:\n"
|
||||
" daddiu a3, s7, -10\n"
|
||||
" dsubu a3, a2, a3\n"
|
||||
" daddiu t0, s7, 8\n"
|
||||
" movn t0, s7, a3\n"
|
||||
" bnel s7, t0, L221\n"
|
||||
" or a3, t0, r0\n"
|
||||
|
||||
" lw a3, -2(a2)\n"
|
||||
" dsubu t0, a3, a0\n"
|
||||
" daddiu a3, s7, 8\n"
|
||||
" movn a3, s7, t0\n"
|
||||
|
||||
"L221:\n"
|
||||
" beq s7, a3, L219\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or a0, s7, r0\n"
|
||||
" daddiu a0, s7, -10\n"
|
||||
" beq a2, a0, L222\n"
|
||||
" or a0, s7, r0\n"
|
||||
|
||||
" lw a0, 2(a2)\n"
|
||||
" sw a0, 2(v1)\n"
|
||||
|
||||
"L222:\n"
|
||||
" or v0, a1, r0\n"
|
||||
|
||||
"L223:\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object object pair)";
|
||||
|
||||
// todo - will be changed by if fix.
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (cond\n"
|
||||
" ((= a0-0 (car a1-0)) (set! v0-0 (cdr a1-0)))\n"
|
||||
" (else\n"
|
||||
" (set! v1-1 a1-0)\n"
|
||||
" (set! a2-0 (cdr a1-0))\n"
|
||||
" (while\n"
|
||||
" (not (or (truthy (= a2-0 (quote ()))) (= (car a2-0) a0-0)))\n"
|
||||
" (set! v1-1 a2-0)\n"
|
||||
" (set! a2-0 (cdr a2-0))\n"
|
||||
" )\n"
|
||||
" (set! a0-1 (quote #f))\n"
|
||||
" (if (!= a2-0 (quote ())) (set! (cdr v1-1) (cdr a2-0)))\n"
|
||||
" (set! v0-0 a1-0)\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (the-as pair v0-0)\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprDeleteCar) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
"L210:\n"
|
||||
" lw v1, -2(a1)\n"
|
||||
" lw v1, -2(v1)\n"
|
||||
" bne a0, v1, L211\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" lw v0, 2(a1)\n"
|
||||
" beq r0, r0, L216\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L211:\n"
|
||||
" or v1, a1, r0\n"
|
||||
" lw a2, 2(a1)\n"
|
||||
" beq r0, r0, L213\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
"L212:\n"
|
||||
" or v1, a2, r0\n"
|
||||
" lw a2, 2(a2)\n"
|
||||
|
||||
"L213:\n"
|
||||
" daddiu a3, s7, -10\n"
|
||||
" dsubu a3, a2, a3\n"
|
||||
" daddiu t0, s7, 8\n"
|
||||
" movn t0, s7, a3\n"
|
||||
" bnel s7, t0, L214\n"
|
||||
" or a3, t0, r0\n"
|
||||
|
||||
" lw a3, -2(a2)\n"
|
||||
" lw a3, -2(a3)\n"
|
||||
" dsubu t0, a3, a0\n"
|
||||
" daddiu a3, s7, 8\n"
|
||||
" movn a3, s7, t0\n"
|
||||
|
||||
"L214:\n"
|
||||
" beq s7, a3, L212\n"
|
||||
" sll r0, r0, 0\n"
|
||||
|
||||
" or a0, s7, r0\n"
|
||||
" daddiu a0, s7, -10\n"
|
||||
" beq a2, a0, L215\n"
|
||||
" or a0, s7, r0\n"
|
||||
|
||||
" lw a0, 2(a2)\n"
|
||||
" sw a0, 2(v1)\n"
|
||||
|
||||
"L215:\n"
|
||||
" or v0, a1, r0\n"
|
||||
|
||||
"L216:\n"
|
||||
" jr ra\n"
|
||||
" daddu sp, sp, r0";
|
||||
std::string type = "(function object object pair)";
|
||||
|
||||
// todo - will be changed by if fix.
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (cond\n"
|
||||
" ((= a0-0 (car (car a1-0))) (set! v0-0 (cdr a1-0)))\n"
|
||||
" (else\n"
|
||||
" (set! v1-2 a1-0)\n"
|
||||
" (set! a2-0 (cdr a1-0))\n"
|
||||
" (while\n"
|
||||
" (not (or (truthy (= a2-0 (quote ()))) (= (car (car a2-0)) a0-0)))\n"
|
||||
" (set! v1-2 a2-0)\n"
|
||||
" (set! a2-0 (cdr a2-0))\n"
|
||||
" )\n"
|
||||
" (set! a0-1 (quote #f))\n"
|
||||
" (if (!= a2-0 (quote ())) (set! (cdr v1-2) (cdr a2-0)))\n"
|
||||
" (set! v0-0 a1-0)\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (the-as pair v0-0)\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
TEST_F(FormRegressionTest, ExprInsertCons) {
|
||||
std::string func =
|
||||
" sll r0, r0, 0\n"
|
||||
" daddiu sp, sp, -32\n"
|
||||
" sd ra, 0(sp)\n"
|
||||
" sq gp, 16(sp)\n"
|
||||
|
||||
" or gp, a0, r0\n"
|
||||
" lw t9, delete-car!(s7)\n"
|
||||
" lw a0, -2(gp)\n"
|
||||
" jalr ra, t9\n"
|
||||
" sll v0, ra, 0\n"
|
||||
|
||||
" or a3, v0, r0\n"
|
||||
" lw v1, pair(s7)\n"
|
||||
" lwu t9, 16(v1)\n"
|
||||
" daddiu a0, s7, global\n"
|
||||
" lw a1, pair(s7)\n"
|
||||
" or a2, gp, r0\n"
|
||||
" jalr ra, t9\n"
|
||||
" sll v0, ra, 0\n"
|
||||
|
||||
" ld ra, 0(sp)\n"
|
||||
" lq gp, 16(sp)\n"
|
||||
" jr ra\n"
|
||||
" daddiu sp, sp, 32";
|
||||
std::string type = "(function object object pair)";
|
||||
|
||||
// NOTE - this appears to _not_ be a nested call.
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (set! gp-0 a0-0)\n"
|
||||
" (set! a3-0 (delete-car! (car gp-0) a1-0))\n"
|
||||
" (new 'global pair gp-0 a3-0)\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, true, "");
|
||||
}
|
||||
|
||||
// TEST_F(FormRegressionTest, ExprSort) {
|
||||
// std::string func =
|
||||
// " sll r0, r0, 0\n"
|
||||
// " daddiu sp, sp, -112\n"
|
||||
// " sd ra, 0(sp)\n"
|
||||
// " sq s1, 16(sp)\n"
|
||||
// " sq s2, 32(sp)\n"
|
||||
// " sq s3, 48(sp)\n"
|
||||
// " sq s4, 64(sp)\n"
|
||||
// " sq s5, 80(sp)\n"
|
||||
// " sq gp, 96(sp)\n"
|
||||
//
|
||||
// " or gp, a0, r0\n"
|
||||
// " or s5, a1, r0\n"
|
||||
// " addiu s4, r0, -1\n"
|
||||
// " beq r0, r0, L208\n"
|
||||
// " sll r0, r0, 0\n"
|
||||
//
|
||||
// "L201:\n"
|
||||
// " addiu s4, r0, 0\n"
|
||||
// " or s3, gp, r0\n"
|
||||
// " beq r0, r0, L206\n"
|
||||
// " sll r0, r0, 0\n"
|
||||
//
|
||||
// "L202:\n"
|
||||
// " lw s2, -2(s3)\n"
|
||||
// " lw v1, 2(s3)\n"
|
||||
// " lw s1, -2(v1)\n"
|
||||
// " or t9, s5, r0\n"
|
||||
// " or a0, s2, r0\n"
|
||||
// " or a1, s1, r0\n"
|
||||
// " jalr ra, t9\n"
|
||||
// " sll v0, ra, 0\n"
|
||||
//
|
||||
// " or v1, v0, r0\n"
|
||||
// " beql s7, v1, L203\n"
|
||||
// " daddiu a0, s7, 8\n"
|
||||
//
|
||||
// " slt a1, r0, v1\n"
|
||||
// " daddiu a0, s7, 8\n"
|
||||
// " movz a0, s7, a1\n"
|
||||
//
|
||||
// "L203:\n"
|
||||
// " beql s7, a0, L204\n"
|
||||
// " or v1, a0, r0\n"
|
||||
//
|
||||
// " daddiu a0, s7, #t\n"
|
||||
// " dsubu a0, v1, a0\n"
|
||||
// " daddiu v1, s7, 8\n"
|
||||
// " movz v1, s7, a0\n"
|
||||
//
|
||||
// "L204:\n"
|
||||
// " beq s7, v1, L205\n"
|
||||
// " or v1, s7, r0\n"
|
||||
//
|
||||
// " daddiu s4, s4, 1\n"
|
||||
// " sw s1, -2(s3)\n"
|
||||
// " lw v1, 2(s3)\n"
|
||||
// " sw s2, -2(v1)\n"
|
||||
// " or v1, s2, r0\n"
|
||||
//
|
||||
// "L205:\n"
|
||||
// " lw s3, 2(s3)\n"
|
||||
//
|
||||
// "L206:\n"
|
||||
// " lw v1, 2(s3)\n"
|
||||
// " daddiu a0, s7, -10\n"
|
||||
// " dsubu v1, v1, a0\n"
|
||||
// " daddiu a0, s7, 8\n"
|
||||
// " movn a0, s7, v1\n"
|
||||
// " bnel s7, a0, L207\n"
|
||||
// " or v1, a0, r0\n"
|
||||
//
|
||||
// " lw v1, 2(s3)\n"
|
||||
// " dsll32 v1, v1, 30\n"
|
||||
// " slt a0, v1, r0\n"
|
||||
// " daddiu v1, s7, 8\n"
|
||||
// " movn v1, s7, a0\n"
|
||||
//
|
||||
// "L207:\n"
|
||||
// " beq s7, v1, L202\n"
|
||||
// " sll r0, r0, 0\n"
|
||||
//
|
||||
// " or v1, s7, r0\n"
|
||||
// " or v1, s7, r0\n"
|
||||
//
|
||||
// "L208:\n"
|
||||
// " bne s4, r0, L201\n"
|
||||
// " sll r0, r0, 0\n"
|
||||
//
|
||||
// " or v1, s7, r0\n"
|
||||
// " or v0, gp, r0\n"
|
||||
// " ld ra, 0(sp)\n"
|
||||
// " lq gp, 96(sp)\n"
|
||||
// " lq s5, 80(sp)\n"
|
||||
// " lq s4, 64(sp)\n"
|
||||
// " lq s3, 48(sp)\n"
|
||||
// " lq s2, 32(sp)\n"
|
||||
// " lq s1, 16(sp)\n"
|
||||
// " jr ra\n"
|
||||
// " daddiu sp, sp, 112";
|
||||
// std::string type = "(function object (function object object object) object)";
|
||||
//
|
||||
// // NOTE - this appears to _not_ be a nested call.
|
||||
// std::string expected =
|
||||
// "(begin\n"
|
||||
// " (set! gp-0 a0-0)\n"
|
||||
// " (set! a3-0 (delete-car! (car gp-0) a1-0))\n"
|
||||
// " (new 'global pair gp-0 a3-0)\n"
|
||||
// " )";
|
||||
// test_with_expr(func, type, expected, true, "");
|
||||
//}
|
||||
Reference in New Issue
Block a user