mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 07:39:12 -04:00
@@ -930,48 +930,36 @@ TEST_F(FormRegressionTestJak1, DmaBufferAddVuFunction) {
|
||||
std::string type = "(function dma-buffer vu-function int symbol)";
|
||||
std::string expected =
|
||||
"(begin\n"
|
||||
" (let ((v1-0 (&-> arg1 data 4))\n"
|
||||
" (let ((v1-0 (the-as object (+ (the-as uint arg1) 16)))\n"
|
||||
" (a3-0 (-> arg1 qlength))\n"
|
||||
" (a1-1 (-> arg1 origin))\n"
|
||||
" )\n"
|
||||
" (while (> a3-0 0)\n"
|
||||
" (let ((t0-1 (min 127 a3-0)))\n"
|
||||
" (let* ((t1-1 arg0)\n"
|
||||
" (t2-0 (the-as object (-> t1-1 base)))\n"
|
||||
" )\n"
|
||||
" (set!\n"
|
||||
" (-> (the-as dma-packet t2-0) dma)\n"
|
||||
" (new\n"
|
||||
" 'static\n"
|
||||
" 'dma-tag\n"
|
||||
" :id\n"
|
||||
" (dma-tag-id ref)\n"
|
||||
" :addr\n"
|
||||
" (the-as int v1-0)\n"
|
||||
" :qwc\n"
|
||||
" t0-1\n"
|
||||
" (while (> a3-0 0)\n"
|
||||
" (let ((t0-1 (min 127 a3-0)))\n"
|
||||
" (let* ((t1-1 arg0)\n"
|
||||
" (t2-0 (the-as object (-> t1-1 base)))\n"
|
||||
" )\n"
|
||||
" (set! (-> (the-as dma-packet t2-0) dma)\n"
|
||||
" (new 'static 'dma-tag :id (dma-tag-id ref) :addr (the-as int v1-0) :qwc "
|
||||
"t0-1)\n"
|
||||
" )\n"
|
||||
" (set! (-> (the-as dma-packet t2-0) vif0) (new 'static 'vif-tag :cmd (if (zero? "
|
||||
"arg2)\n"
|
||||
" 16\n"
|
||||
" 19\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (set! (-> (the-as dma-packet t2-0) vif1) (new 'static 'vif-tag :cmd (vif-cmd mpg) "
|
||||
":num (* t0-1 2) :imm a1-1))\n"
|
||||
" (set! (-> t1-1 base) (&+ (the-as pointer t2-0) 16))\n"
|
||||
" )\n"
|
||||
" (set! v1-0 (+ (the-as uint v1-0) (* t0-1 16)))\n"
|
||||
" (set! a3-0 (- a3-0 t0-1))\n"
|
||||
" (+! a1-1 (* t0-1 2))\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (set!\n"
|
||||
" (-> (the-as dma-packet t2-0) vif0)\n"
|
||||
" (new 'static 'vif-tag :cmd (if (zero? arg2)\n"
|
||||
" 16\n"
|
||||
" 19\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" (set!\n"
|
||||
" (-> (the-as dma-packet t2-0) vif1)\n"
|
||||
" (new 'static 'vif-tag :cmd (vif-cmd mpg) :num (* t0-1 2) :imm a1-1)\n"
|
||||
" )\n"
|
||||
" (set! (-> t1-1 base) (&+ (the-as pointer t2-0) 16))\n"
|
||||
" )\n"
|
||||
" (&+! v1-0 (* t0-1 16))\n"
|
||||
" (set! a3-0 (- a3-0 t0-1))\n"
|
||||
" (+! a1-1 (* t0-1 2))\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" )\n"
|
||||
" #f\n"
|
||||
" )";
|
||||
test_with_expr(func, type, expected, false, "", {}, "[[[9, 33], \"t2\", \"dma-packet\"]]");
|
||||
|
||||
Reference in New Issue
Block a user