mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-01 16:29:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

recognize +! and set-vector (#706)

Browse Source 
"
This commit is contained in:
water111
2021-07-17 15:00:10 -04:00
committed by GitHub
parent 1e90da8e7c
commit 4989470828
48 changed files with 557 additions and 1038 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/decompiler/reference/decompiler-macros.gc
+9
View File
@@ -197,3 +197,12 @@
)
)
(defmacro set-vector! (v xv yv zv wv)
"Set all fields in a vector"
(with-gensyms (vec)
`(let ((vec ,v))
(set! (-> vec x) ,xv)
(set! (-> vec y) ,yv)
(set! (-> vec z) ,zv)
(set! (-> vec w) ,wv)))
)
test/decompiler/reference/engine/ambient/mood-tables_REF.gc
+26 -156
View File
@@ -13,12 +13,7 @@
(set! (-> v1-0 direction z) 0.612)
(set! (-> v1-0 direction w) 0.0)
)
(let ((v1-1 (-> arg0 dir0 color)))
(set! (-> v1-1 x) 0.8)
(set! (-> v1-1 y) 0.775)
(set! (-> v1-1 z) 0.7)
(set! (-> v1-1 w) 1.0)
)
(set-vector! (-> arg0 dir0 color) 0.8 0.775 0.7 1.0)
(set! (-> arg0 dir0 levels x) arg2)
(let ((v1-2 (-> arg0 dir1)))
(set! (-> v1-2 direction x) 0.612)
@@ -26,12 +21,7 @@
(set! (-> v1-2 direction z) -0.612)
(set! (-> v1-2 direction w) 0.0)
)
(let ((v1-3 (-> arg0 dir1 color)))
(set! (-> v1-3 x) 0.8)
(set! (-> v1-3 y) 0.775)
(set! (-> v1-3 z) 0.7)
(set! (-> v1-3 w) 1.0)
)
(set-vector! (-> arg0 dir1 color) 0.8 0.775 0.7 1.0)
(set! (-> arg0 dir1 levels x) arg3)
(vector-matrix*!
(the-as vector (-> arg0 dir0))
@@ -50,12 +40,7 @@
(set! (-> v1-4 direction z) 0.0)
(set! (-> v1-4 direction w) 0.0)
)
(let ((v1-5 (-> arg0 dir2 color)))
(set! (-> v1-5 x) 0.8)
(set! (-> v1-5 y) 0.775)
(set! (-> v1-5 z) 0.7)
(set! (-> v1-5 w) 1.0)
)
(set-vector! (-> arg0 dir2 color) 0.8 0.775 0.7 1.0)
(let ((f0-26 arg4))
(set! (-> arg0 dir2 levels x) f0-26)
f0-26
@@ -74,12 +59,7 @@
(set! (-> v1-0 direction z) 0.0)
(set! (-> v1-0 direction w) 0.0)
)
(let ((v1-1 (-> s5-0 dir2 color)))
(set! (-> v1-1 x) 0.75)
(set! (-> v1-1 y) 0.375)
(set! (-> v1-1 z) 0.0)
(set! (-> v1-1 w) 1.0)
)
(set-vector! (-> s5-0 dir2 color) 0.75 0.375 0.0 1.0)
)
(make-light-kit (-> arg0 light-group 3) 53703.11 0.9 0.9 0.5)
(make-light-kit (-> arg0 light-group 4) 54613.332 0.9 0.9 0.4)
@@ -94,18 +74,8 @@
(defun make-misty-light-kit ((arg0 mood-context))
(let ((gp-0 (-> arg0 light-group 1)))
(make-light-kit gp-0 24576.0 1.0 0.4 1.0)
(let ((v1-0 (-> gp-0 dir0 color)))
(set! (-> v1-0 x) 0.75)
(set! (-> v1-0 y) 0.3)
(set! (-> v1-0 z) 0.0)
(set! (-> v1-0 w) 1.0)
)
(let ((v0-1 (-> gp-0 dir2 color)))
(set! (-> v0-1 x) 0.75)
(set! (-> v0-1 y) 0.3)
(set! (-> v0-1 z) 0.0)
(set! (-> v0-1 w) 1.0)
)
(set-vector! (-> gp-0 dir0 color) 0.75 0.3 0.0 1.0)
(set-vector! (-> gp-0 dir2 color) 0.75 0.3 0.0 1.0)
)
(none)
)
@@ -120,12 +90,7 @@
(set! (-> a0-1 direction z) 0.0)
(set! (-> a0-1 direction w) 1.0)
)
(let ((a0-2 (-> v1-0 dir0 color)))
(set! (-> a0-2 x) 0.375)
(set! (-> a0-2 y) 0.25)
(set! (-> a0-2 z) 0.25)
(set! (-> a0-2 w) 1.0)
)
(set-vector! (-> v1-0 dir0 color) 0.375 0.25 0.25 1.0)
(set! (-> v1-0 dir0 levels x) 1.0)
(let ((a0-3 (-> v1-0 dir1)))
(set! (-> a0-3 direction x) -0.6119)
@@ -133,12 +98,7 @@
(set! (-> a0-3 direction z) -0.6119)
(set! (-> a0-3 direction w) 1.0)
)
(let ((a0-4 (-> v1-0 dir1 color)))
(set! (-> a0-4 x) 0.25)
(set! (-> a0-4 y) 0.75)
(set! (-> a0-4 z) 1.0)
(set! (-> a0-4 w) 1.0)
)
(set-vector! (-> v1-0 dir1 color) 0.25 0.75 1.0 1.0)
(set! (-> v1-0 dir1 levels x) 0.666)
(let ((a0-5 (-> v1-0 dir2)))
(set! (-> a0-5 direction x) 0.9961)
@@ -146,12 +106,7 @@
(set! (-> a0-5 direction z) -0.0871)
(set! (-> a0-5 direction w) 1.0)
)
(let ((a0-6 (-> v1-0 dir2 color)))
(set! (-> a0-6 x) 0.0)
(set! (-> a0-6 y) 0.25)
(set! (-> a0-6 z) 1.0)
(set! (-> a0-6 w) 1.0)
)
(set-vector! (-> v1-0 dir2 color) 0.0 0.25 1.0 1.0)
(set! (-> v1-0 dir2 levels x) 1.0)
)
(let ((v1-2 (-> arg0 light-group 2)))
@@ -161,12 +116,7 @@
(set! (-> a0-7 direction z) 0.836)
(set! (-> a0-7 direction w) 1.0)
)
(let ((a0-8 (-> v1-2 dir0 color)))
(set! (-> a0-8 x) 0.8)
(set! (-> a0-8 y) 0.8)
(set! (-> a0-8 z) 0.8)
(set! (-> a0-8 w) 1.0)
)
(set-vector! (-> v1-2 dir0 color) 0.8 0.8 0.8 1.0)
(set! (-> v1-2 dir0 levels x) 0.7)
(let ((a0-9 (-> v1-2 dir1)))
(set! (-> a0-9 direction x) -0.2959)
@@ -174,31 +124,16 @@
(set! (-> a0-9 direction z) -0.8133)
(set! (-> a0-9 direction w) 1.0)
)
(let ((a0-10 (-> v1-2 dir1 color)))
(set! (-> a0-10 x) 0.8)
(set! (-> a0-10 y) 0.8)
(set! (-> a0-10 z) 0.8)
(set! (-> a0-10 w) 1.0)
)
(set-vector! (-> v1-2 dir1 color) 0.8 0.8 0.8 1.0)
(set! (-> v1-2 dir1 levels x) 0.7)
)
(let ((s5-0 (-> arg0 light-group 3)))
(make-light-kit s5-0 5461.3335 1.0 0.8 0.2)
(let ((v1-4 (-> s5-0 dir0 color)))
(set! (-> v1-4 x) 0.675)
(set! (-> v1-4 y) 0.45)
(set! (-> v1-4 z) 0.15)
(set! (-> v1-4 w) 1.0)
)
(set-vector! (-> s5-0 dir0 color) 0.675 0.45 0.15 1.0)
)
(let ((s5-1 (-> arg0 light-group 4)))
(make-light-kit s5-1 57344.0 1.0 0.8 0.2)
(let ((v1-5 (-> s5-1 dir0 color)))
(set! (-> v1-5 x) 0.675)
(set! (-> v1-5 y) 0.45)
(set! (-> v1-5 z) 0.15)
(set! (-> v1-5 w) 1.0)
)
(set-vector! (-> s5-1 dir0 color) 0.675 0.45 0.15 1.0)
)
(let ((v1-6 (-> arg0 light-group 5)))
(let ((a0-13 (-> v1-6 dir0)))
@@ -207,28 +142,13 @@
(set! (-> a0-13 direction z) 0.0)
(set! (-> a0-13 direction w) 0.0)
)
(let ((a0-14 (-> v1-6 dir0 color)))
(set! (-> a0-14 x) 2.0)
(set! (-> a0-14 y) 1.0)
(set! (-> a0-14 z) 0.0)
(set! (-> a0-14 w) 1.0)
)
(set-vector! (-> v1-6 dir0 color) 2.0 1.0 0.0 1.0)
(set! (-> v1-6 dir1 levels x) 0.0)
(set! (-> v1-6 dir2 levels x) 0.0)
)
(let ((v1-8 (-> arg0 light-group 6)))
(let ((a0-15 (-> v1-8 dir0 color)))
(set! (-> a0-15 x) 1.0)
(set! (-> a0-15 y) 0.5)
(set! (-> a0-15 z) 0.0)
(set! (-> a0-15 w) 1.0)
)
(let ((a0-16 (-> v1-8 dir1 color)))
(set! (-> a0-16 x) 0.6)
(set! (-> a0-16 y) 0.58125)
(set! (-> a0-16 z) 0.525)
(set! (-> a0-16 w) 1.0)
)
(set-vector! (-> v1-8 dir0 color) 1.0 0.5 0.0 1.0)
(set-vector! (-> v1-8 dir1 color) 0.6 0.58125 0.525 1.0)
(set! (-> v1-8 dir1 levels x) 0.0)
(set! (-> v1-8 dir2 levels x) 0.0)
)
@@ -246,12 +166,7 @@
(set! (-> v1-0 direction z) 0.0)
(set! (-> v1-0 direction w) 1.0)
)
(let ((v1-1 (-> s5-0 dir0 color)))
(set! (-> v1-1 x) 1.0)
(set! (-> v1-1 y) 0.9)
(set! (-> v1-1 z) 0.0)
(set! (-> v1-1 w) 1.0)
)
(set-vector! (-> s5-0 dir0 color) 1.0 0.9 0.0 1.0)
)
(let ((s5-1 (-> arg0 light-group 2)))
(make-light-kit s5-1 0.0 1.0 0.0 0.0)
@@ -261,12 +176,7 @@
(set! (-> v1-2 direction z) 0.0)
(set! (-> v1-2 direction w) 1.0)
)
(let ((v1-3 (-> s5-1 dir0 color)))
(set! (-> v1-3 x) 1.0)
(set! (-> v1-3 y) 0.9)
(set! (-> v1-3 z) 0.0)
(set! (-> v1-3 w) 1.0)
)
(set-vector! (-> s5-1 dir0 color) 1.0 0.9 0.0 1.0)
)
(let ((s5-2 (-> arg0 light-group 3)))
(make-light-kit s5-2 0.0 1.0 0.0 0.0)
@@ -276,12 +186,7 @@
(set! (-> v1-4 direction z) 0.0)
(set! (-> v1-4 direction w) 1.0)
)
(let ((v1-5 (-> s5-2 dir0 color)))
(set! (-> v1-5 x) 1.0)
(set! (-> v1-5 y) 0.9)
(set! (-> v1-5 z) 0.0)
(set! (-> v1-5 w) 1.0)
)
(set-vector! (-> s5-2 dir0 color) 1.0 0.9 0.0 1.0)
)
(let ((s5-3 (-> arg0 light-group 4)))
(make-light-kit s5-3 0.0 1.0 0.0 0.0)
@@ -291,12 +196,7 @@
(set! (-> v1-6 direction z) 0.0)
(set! (-> v1-6 direction w) 1.0)
)
(let ((v1-7 (-> s5-3 dir0 color)))
(set! (-> v1-7 x) 1.0)
(set! (-> v1-7 y) 0.9)
(set! (-> v1-7 z) 0.0)
(set! (-> v1-7 w) 1.0)
)
(set-vector! (-> s5-3 dir0 color) 1.0 0.9 0.0 1.0)
)
(let ((s5-4 (-> arg0 light-group 5)))
(make-light-kit s5-4 0.0 1.0 0.0 0.0)
@@ -306,12 +206,7 @@
(set! (-> v1-8 direction z) 0.0)
(set! (-> v1-8 direction w) 1.0)
)
(let ((v1-9 (-> s5-4 dir0 color)))
(set! (-> v1-9 x) 1.0)
(set! (-> v1-9 y) 0.9)
(set! (-> v1-9 z) 0.0)
(set! (-> v1-9 w) 1.0)
)
(set-vector! (-> s5-4 dir0 color) 1.0 0.9 0.0 1.0)
)
(let ((gp-1 (-> arg0 light-group 6)))
(make-light-kit gp-1 0.0 1.0 0.0 0.0)
@@ -321,12 +216,7 @@
(set! (-> v1-10 direction z) 0.0)
(set! (-> v1-10 direction w) 1.0)
)
(let ((v0-6 (-> gp-1 dir0 color)))
(set! (-> v0-6 x) 1.0)
(set! (-> v0-6 y) 0.9)
(set! (-> v0-6 z) 0.0)
(set! (-> v0-6 w) 1.0)
)
(set-vector! (-> gp-1 dir0 color) 1.0 0.9 0.0 1.0)
)
(none)
)
@@ -341,12 +231,7 @@
(set! (-> a1-0 direction z) 0.2929)
(set! (-> a1-0 direction w) 1.0)
)
(let ((a1-1 (-> v1-0 dir0 color)))
(set! (-> a1-1 x) 0.5)
(set! (-> a1-1 y) 1.0)
(set! (-> a1-1 z) 1.0)
(set! (-> a1-1 w) 1.0)
)
(set-vector! (-> v1-0 dir0 color) 0.5 1.0 1.0 1.0)
(set! (-> v1-0 dir0 levels x) 1.0)
(let ((a1-2 (-> v1-0 dir2)))
(set! (-> a1-2 direction x) 0.0)
@@ -354,12 +239,7 @@
(set! (-> a1-2 direction z) 0.0)
(set! (-> a1-2 direction w) 1.0)
)
(let ((v1-1 (-> v1-0 dir2 color)))
(set! (-> v1-1 x) 0.625)
(set! (-> v1-1 y) 0.375)
(set! (-> v1-1 z) 0.1)
(set! (-> v1-1 w) 1.0)
)
(set-vector! (-> v1-0 dir2 color) 0.625 0.375 0.1 1.0)
)
(let ((v1-2 (-> arg0 light-group 2)))
(let ((a0-1 (-> v1-2 dir0)))
@@ -368,12 +248,7 @@
(set! (-> a0-1 direction z) 0.2929)
(set! (-> a0-1 direction w) 1.0)
)
(let ((a0-2 (-> v1-2 dir0 color)))
(set! (-> a0-2 x) 0.25)
(set! (-> a0-2 y) 0.5)
(set! (-> a0-2 z) 0.5)
(set! (-> a0-2 w) 1.0)
)
(set-vector! (-> v1-2 dir0 color) 0.25 0.5 0.5 1.0)
(set! (-> v1-2 dir0 levels x) 1.0)
(let ((a0-3 (-> v1-2 dir2)))
(set! (-> a0-3 direction x) 0.0)
@@ -381,12 +256,7 @@
(set! (-> a0-3 direction z) 0.0)
(set! (-> a0-3 direction w) 1.0)
)
(let ((v0-0 (-> v1-2 dir2 color)))
(set! (-> v0-0 x) 0.625)
(set! (-> v0-0 y) 0.375)
(set! (-> v0-0 z) 0.1)
(set! (-> v0-0 w) 1.0)
)
(set-vector! (-> v1-2 dir2 color) 0.625 0.375 0.1 1.0)
)
(none)
)
test/decompiler/reference/engine/anim/aligner_REF.gc
+6 -5
View File
@@ -112,11 +112,12 @@
(the-as vector (-> obj transform))
(the-as vector (-> obj transform 1))
)
(let ((s5-2 (-> obj align scale)))
(set! (-> s5-2 x) (vector-length (the-as vector (-> obj matrix))))
(set! (-> s5-2 y) (vector-length (-> obj matrix 0 vector 1)))
(set! (-> s5-2 z) (vector-length (-> obj matrix 0 vector 2)))
(set! (-> s5-2 w) 1.0)
(set-vector!
(-> obj align scale)
(vector-length (the-as vector (-> obj matrix)))
(vector-length (-> obj matrix 0 vector 1))
(vector-length (-> obj matrix 0 vector 2))
1.0
)
(vector-!
(-> obj delta scale)
test/decompiler/reference/engine/camera/camera-h_REF.gc
+2 -2
View File
@@ -276,7 +276,7 @@
(f0-5 (* (-> obj max-partial) (fabs f1-2)))
)
(let ((f1-3 (* f1-2 (* (-> obj accel) (-> *display* time-adjust-ratio)))))
(set! (-> obj vel) (+ (-> obj vel) f1-3))
(+! (-> obj vel) f1-3)
)
(let ((f1-6 (fabs (-> obj vel)))
(f0-6 (fmin f0-5 (-> obj max-vel)))
@@ -287,7 +287,7 @@
)
)
(let ((f0-10 (* (-> obj vel) (-> *display* time-adjust-ratio))))
(set! (-> obj value) (+ (-> obj value) f0-10))
(+! (-> obj value) f0-10)
)
0
(none)
test/decompiler/reference/engine/camera/math-camera_REF.gc
+14 -22
View File
@@ -241,23 +241,20 @@
(set! (-> sprite-row-0 vector 0 z) 0.0)
(set! (-> sprite-row-0 vector 0 w) 0.0)
)
(let ((sprite-row-1 (-> math-cam sprite-2d vector 1)))
(set! (-> sprite-row-1 x) 0.0)
(set! (-> sprite-row-1 y) (- (* (/ persp-yy persp-xx) persp-x)))
(set! (-> sprite-row-1 z) 0.0)
(set! (-> sprite-row-1 w) 0.0)
(set-vector!
(-> math-cam sprite-2d vector 1)
0.0
(- (* (/ persp-yy persp-xx) persp-x))
0.0
0.0
)
(let ((sprite-row-2 (-> math-cam sprite-2d vector 2)))
(set! (-> sprite-row-2 x) 0.0)
(set! (-> sprite-row-2 y) 0.0)
(set! (-> sprite-row-2 z) (- persp-x))
(set! (-> sprite-row-2 w) 0.0)
)
(let ((sprite-row-3 (-> math-cam sprite-2d vector 3)))
(set! (-> sprite-row-3 x) 0.0)
(set! (-> sprite-row-3 y) 0.0)
(set! (-> sprite-row-3 z) (* 500000000.0 persp-x))
(set! (-> sprite-row-3 w) (* (* 60.0 persp-x) (-> math-cam pfog0)))
(set-vector! (-> math-cam sprite-2d vector 2) 0.0 0.0 (- persp-x) 0.0)
(set-vector!
(-> math-cam sprite-2d vector 3)
0.0
0.0
(* 500000000.0 persp-x)
(* (* 60.0 persp-x) (-> math-cam pfog0))
)
)
(set! (-> math-cam sprite-2d-hvdf quad) (-> math-cam hvdf-off quad))
@@ -624,12 +621,7 @@
(let ((s2-0 (new 'stack 'vector4s-3)))
(matrix*! s5-0 arg0 (-> *math-camera* camera-temp))
(matrix-3x3-inverse-transpose! gp-0 arg0)
(let ((v1-3 s3-0))
(set! (-> v1-3 x) 0.4)
(set! (-> v1-3 y) 0.4)
(set! (-> v1-3 z) 0.4)
(set! (-> v1-3 w) 1.0)
)
(set-vector! s3-0 0.4 0.4 0.4 1.0)
(let ((v1-4 (-> s4-0 data)))
(set! (-> v1-4 0) 1.0)
(set! (-> v1-4 1) 1.0)
test/decompiler/reference/engine/collide/collide-frag_REF.gc
+11 -32
View File
@@ -77,39 +77,21 @@
(s4-0 (-> obj mesh))
)
(set! (-> arg0 data s5-0 name) (symbol->string 'collide-fragment))
(set! (-> arg0 data s5-0 count) (+ (-> arg0 data s5-0 count) 1))
(+! (-> arg0 data s5-0 count) 1)
(let ((v1-11 (+ (asize-of obj) (asize-of s4-0))))
(set! (-> arg0 data s5-0 used) (+ (-> arg0 data s5-0 used) v1-11))
(set!
(-> arg0 data s5-0 total)
(+ (-> arg0 data s5-0 total) (logand -16 (+ v1-11 15)))
)
(+! (-> arg0 data s5-0 used) v1-11)
(+! (-> arg0 data s5-0 total) (logand -16 (+ v1-11 15)))
)
(set! (-> arg0 data (+ s5-0 1) name) "collision-poly")
(set!
(-> arg0 data (+ s5-0 1) count)
(+ (-> arg0 data (+ s5-0 1) count) (the-as int (-> s4-0 poly-count)))
)
(+! (-> arg0 data (+ s5-0 1) count) (the-as int (-> s4-0 poly-count)))
(let ((v1-22 (+ (-> s4-0 strip-data-len) (-> s4-0 poly-count))))
(set!
(-> arg0 data (+ s5-0 1) used)
(+ (-> arg0 data (+ s5-0 1) used) (the-as int v1-22))
)
(set!
(-> arg0 data (+ s5-0 1) total)
(+ (-> arg0 data (+ s5-0 1) total) (the-as int v1-22))
)
(+! (-> arg0 data (+ s5-0 1) used) (the-as int v1-22))
(+! (-> arg0 data (+ s5-0 1) total) (the-as int v1-22))
)
(set! (-> arg0 data (+ s5-0 2) name) "collision-vertex")
(set!
(-> arg0 data (+ s5-0 2) count)
(+ (-> arg0 data (+ s5-0 2) count) (the-as int (-> s4-0 vertex-count)))
)
(+! (-> arg0 data (+ s5-0 2) count) (the-as int (-> s4-0 vertex-count)))
(let ((v1-31 (* (-> s4-0 vertex-data-qwc) 16)))
(set!
(-> arg0 data (+ s5-0 2) used)
(+ (-> arg0 data (+ s5-0 2) used) (the-as int v1-31))
)
(+! (-> arg0 data (+ s5-0 2) used) (the-as int v1-31))
(let ((v0-2 (+ (-> arg0 data (+ s5-0 2) total) (the-as int v1-31))))
(set! (-> arg0 data (+ s5-0 2) total) v0-2)
(the-as collide-fragment v0-2)
@@ -195,13 +177,10 @@
)
(set! (-> arg0 length) (max 1 (-> arg0 length)))
(set! (-> arg0 data 0 name) (symbol->string 'drawable-group))
(set! (-> arg0 data 0 count) (+ (-> arg0 data 0 count) 1))
(+! (-> arg0 data 0 count) 1)
(let ((v1-7 32))
(set! (-> arg0 data 0 used) (+ (-> arg0 data 0 used) v1-7))
(set!
(-> arg0 data 0 total)
(+ (-> arg0 data 0 total) (logand -16 (+ v1-7 15)))
)
(+! (-> arg0 data 0 used) v1-7)
(+! (-> arg0 data 0 total) (logand -16 (+ v1-7 15)))
)
(dotimes (s3-0 (-> obj length))
(mem-usage (-> obj data s3-0) arg0 arg1)
test/decompiler/reference/engine/data/res_REF.gc
+13 -49
View File
@@ -898,7 +898,7 @@
)
(else
(set! (-> obj tag (-> obj length)) s4-1)
(set! (-> obj length) (+ (-> obj length) 1))
(+! (-> obj length) 1)
(sort! obj)
)
)
@@ -1040,19 +1040,10 @@
)
(set! (-> block length) (max (-> block length) (+ mem-use-id 1)))
(set! (-> block data mem-use-id name) mem-use-name)
(set!
(-> block data mem-use-id count)
(+ (-> block data mem-use-id count) 1)
)
(+! (-> block data mem-use-id count) 1)
(let ((obj-size (asize-of obj)))
(set!
(-> block data mem-use-id used)
(+ (-> block data mem-use-id used) obj-size)
)
(set!
(-> block data mem-use-id total)
(+ (-> block data mem-use-id total) (logand -16 (+ obj-size 15)))
)
(+! (-> block data mem-use-id used) obj-size)
(+! (-> block data mem-use-id total) (logand -16 (+ obj-size 15)))
)
(dotimes (tag-idx (-> obj length))
(when (zero? (-> obj tag tag-idx inlined?))
@@ -1077,19 +1068,10 @@
((string)
(set! (-> block length) (max (-> block length) (+ mem-use-id 1)))
(set! (-> block data mem-use-id name) mem-use-name)
(set!
(-> block data mem-use-id count)
(+ (-> block data mem-use-id count) 1)
)
(+! (-> block data mem-use-id count) 1)
(let ((v1-47 (asize-of tag-data)))
(set!
(-> block data mem-use-id used)
(+ (-> block data mem-use-id used) v1-47)
)
(set!
(-> block data mem-use-id total)
(+ (-> block data mem-use-id total) (logand -16 (+ v1-47 15)))
)
(+! (-> block data mem-use-id used) v1-47)
(+! (-> block data mem-use-id total) (logand -16 (+ v1-47 15)))
)
)
((nav-mesh collide-mesh)
@@ -1098,19 +1080,10 @@
((array)
(set! (-> block length) (max (-> block length) (+ mem-use-id 1)))
(set! (-> block data mem-use-id name) mem-use-name)
(set!
(-> block data mem-use-id count)
(+ (-> block data mem-use-id count) 1)
)
(+! (-> block data mem-use-id count) 1)
(let ((v1-63 (asize-of (the-as (array object) tag-data))))
(set!
(-> block data mem-use-id used)
(+ (-> block data mem-use-id used) v1-63)
)
(set!
(-> block data mem-use-id total)
(+ (-> block data mem-use-id total) (logand -16 (+ v1-63 15)))
)
(+! (-> block data mem-use-id used) v1-63)
(+! (-> block data mem-use-id total) (logand -16 (+ v1-63 15)))
)
(set! sv-16 0)
(while (< sv-16 (-> (the-as array tag-data) length))
@@ -1123,19 +1096,10 @@
(else
(set! (-> block length) (max (-> block length) (+ mem-use-id 1)))
(set! (-> block data mem-use-id name) mem-use-name)
(set!
(-> block data mem-use-id count)
(+ (-> block data mem-use-id count) 1)
)
(+! (-> block data mem-use-id count) 1)
(let ((v1-88 (asize-of tag-data)))
(set!
(-> block data mem-use-id used)
(+ (-> block data mem-use-id used) v1-88)
)
(set!
(-> block data mem-use-id total)
(+ (-> block data mem-use-id total) (logand -16 (+ v1-88 15)))
)
(+! (-> block data mem-use-id used) v1-88)
(+! (-> block data mem-use-id total) (logand -16 (+ v1-88 15)))
)
)
)
test/decompiler/reference/engine/debug/debug-sphere_REF.gc
+1 -6
View File
@@ -26,12 +26,7 @@
(f30-0 1.0)
(s4-0 0)
)
(let ((v1-0 s5-0))
(set! (-> v1-0 x) 0.0)
(set! (-> v1-0 y) 0.0)
(set! (-> v1-0 z) 0.0)
(set! (-> v1-0 w) 1.0)
)
(set-vector! s5-0 0.0 0.0 0.0 1.0)
(dotimes (s3-0 10)
(let ((f28-0 (* f30-0 (sin (* 3276.8 (the float s3-0)))))
(f26-0 (* f30-0 (sin (* 3276.8 (the float (+ s3-0 1))))))
test/decompiler/reference/engine/debug/menu_REF.gc
+7 -13
View File
@@ -1090,17 +1090,11 @@
)
(set! (-> v1-2 color) (cond
((> (-> arg0 hilite-timer) 0)
(set!
(-> arg0 hilite-timer)
(+ (-> arg0 hilite-timer) -1)
)
(+! (-> arg0 hilite-timer) -1)
10
)
((< (-> arg0 hilite-timer) 0)
(set!
(-> arg0 hilite-timer)
(+ (-> arg0 hilite-timer) 1)
)
(+! (-> arg0 hilite-timer) 1)
14
)
((nonzero? arg3)
@@ -1200,7 +1194,7 @@
debug-menu-item-render
((arg0 debug-menu-item) (arg1 int) (arg2 int) (arg3 int) (arg4 symbol))
(when (> (-> arg0 refresh-delay) 0)
(set! (-> arg0 refresh-ctr) (+ (-> arg0 refresh-ctr) -1))
(+! (-> arg0 refresh-ctr) -1)
(when (<= (-> arg0 refresh-ctr) 0)
(set! (-> arg0 refresh-ctr) (-> arg0 refresh-delay))
(debug-menu-item-send-msg arg0 3)
@@ -1506,7 +1500,7 @@
(defun debug-menu-context-close-submenu ((arg0 debug-menu-context))
(debug-menu-context-send-msg arg0 2 3)
(if (< 1 (-> arg0 sel-length))
(set! (-> arg0 sel-length) (+ (-> arg0 sel-length) -1))
(+! (-> arg0 sel-length) -1)
)
arg0
)
@@ -1672,7 +1666,7 @@
(cond
((<= (-> arg0 inc-delay-ctr) 0)
(if (> (-> arg0 inc-delay) 0)
(set! (-> arg0 inc-delay) (+ (-> arg0 inc-delay) -1))
(+! (-> arg0 inc-delay) -1)
)
(when (zero? (-> arg0 inc-delay))
(cond
@@ -1695,7 +1689,7 @@
)
)
(else
(set! (-> arg0 step-delay-ctr) (+ (-> arg0 step-delay-ctr) -1))
(+! (-> arg0 step-delay-ctr) -1)
)
)
)
@@ -1770,7 +1764,7 @@
)
)
(else
(set! (-> arg0 inc-delay-ctr) (+ (-> arg0 inc-delay-ctr) -1))
(+! (-> arg0 inc-delay-ctr) -1)
)
)
)
test/decompiler/reference/engine/debug/stats-h_REF.gc
+3 -3
View File
@@ -126,9 +126,9 @@
perf-stat
((obj perf-stat) (arg0 uint) (arg1 uint) (arg2 uint))
(when (nonzero? (-> obj ctrl))
(set! (-> obj to-vu0-waits) (+ (-> obj to-vu0-waits) arg0))
(set! (-> obj to-spr-waits) (+ (-> obj to-spr-waits) arg1))
(set! (-> obj from-spr-waits) (+ (-> obj from-spr-waits) arg2))
(+! (-> obj to-vu0-waits) arg0)
(+! (-> obj to-spr-waits) arg1)
(+! (-> obj from-spr-waits) arg2)
)
0
(none)
test/decompiler/reference/engine/engine/connect_REF.gc
+2 -2
View File
@@ -425,7 +425,7 @@
)
(set! (-> con prev1) (-> proc connection-list))
(set! (-> proc connection-list next1) con)
(set! (-> obj length) (+ (-> obj length) 1))
(+! (-> obj length) 1)
con
)
)
@@ -444,7 +444,7 @@
(set! (-> obj next0 prev0) obj)
(set! (-> obj prev0) (-> v1-1 dead-list))
(set! (-> v1-1 dead-list next0) obj)
(set! (-> v1-1 length) (+ (-> v1-1 length) -1))
(+! (-> v1-1 length) -1)
)
obj
)
test/decompiler/reference/engine/game/task/hint-control_REF.gc
+1 -1
View File
@@ -406,7 +406,7 @@
(= (-> gp-1 num-attempts-before-playing) 1)
(< (the-as int a0-24) 30)
)
(set! (-> gp-1 start-time) (+ (-> gp-1 start-time) a0-24))
(+! (-> gp-1 start-time) a0-24)
)
(cond
((and
test/decompiler/reference/engine/geometry/geometry_REF.gc
+2 -12
View File
@@ -1001,18 +1001,8 @@
(s5-0 (new-stack-vector0))
(gp-0 (new-stack-vector0))
)
(let ((v1-3 s4-0))
(set! (-> v1-3 x) 0.0)
(set! (-> v1-3 y) 0.0)
(set! (-> v1-3 z) 0.0)
(set! (-> v1-3 w) 1.0)
)
(let ((v1-4 a1-2))
(set! (-> v1-4 x) 100.0)
(set! (-> v1-4 y) 0.0)
(set! (-> v1-4 z) 0.0)
(set! (-> v1-4 w) 10000.0)
)
(set-vector! s4-0 0.0 0.0 0.0 1.0)
(set-vector! a1-2 100.0 0.0 0.0 10000.0)
(let ((a2-1 (circle-circle-xz-intersect s4-0 a1-2 s5-0 gp-0)))
(format #t "res = ~d~%" a2-1)
)
test/decompiler/reference/engine/geometry/vol-h_REF.gc
+2 -8
View File
@@ -128,10 +128,7 @@
(set! (-> a0-8 num-planes) (the-as int (-> s2-0 elt-count)))
(set! (-> a0-8 plane) (the-as uint v1-12))
)
(set!
(-> (the-as vol-control gp-0) pos-vol-count)
(+ (-> (the-as vol-control gp-0) pos-vol-count) 1)
)
(+! (-> (the-as vol-control gp-0) pos-vol-count) 1)
(+! s3-0 1)
(set! s2-0 (-> s5-1 tag s3-0))
)
@@ -168,10 +165,7 @@
(set! (-> a0-19 num-planes) (the-as int (-> s2-1 elt-count)))
(set! (-> a0-19 plane) (the-as uint v1-31))
)
(set!
(-> (the-as vol-control gp-0) neg-vol-count)
(+ (-> (the-as vol-control gp-0) neg-vol-count) 1)
)
(+! (-> (the-as vol-control gp-0) neg-vol-count) 1)
(+! s3-1 1)
(set! s2-1 (-> s5-2 tag s3-1))
)
test/decompiler/reference/engine/gfx/hw/display_REF.gc
+2 -2
View File
@@ -281,7 +281,7 @@
(defmethod add-frame profile-bar ((obj profile-bar) (name symbol) (color rgba))
(when *debug-segment*
(let ((new-frame (-> obj data (-> obj profile-frame-count))))
(set! (-> obj profile-frame-count) (+ (-> obj profile-frame-count) 1))
(+! (-> obj profile-frame-count) 1)
(set! (-> new-frame name) name)
(set!
(-> new-frame time-stamp)
@@ -306,7 +306,7 @@
profile-bar
((obj profile-bar) (name symbol) (color rgba))
(let ((new-frame (-> obj data (-> obj profile-frame-count))))
(set! (-> obj profile-frame-count) (+ (-> obj profile-frame-count) 1))
(+! (-> obj profile-frame-count) 1)
(set! (-> new-frame name) name)
(set! (-> new-frame time-stamp) (the-as uint *ticks-per-frame*))
(set! (-> new-frame color) color)
test/decompiler/reference/engine/gfx/hw/gs_REF.gc
+1 -1
View File
@@ -944,7 +944,7 @@
)
)
(set! (-> (&-> packet args (-> packet reg-count)) 0) (the-as uint reg-val))
(set! (-> packet reg-count) (+ (-> packet reg-count) 1))
(+! (-> packet reg-count) 1)
(none)
)
test/decompiler/reference/engine/gfx/lights_REF.gc
+7 -42
View File
@@ -49,47 +49,12 @@
;; definition for function vu-lights-default!
(defun vu-lights-default! ((arg0 vu-lights))
(let ((v1-0 (-> arg0 ambient)))
(set! (-> v1-0 x) 0.3)
(set! (-> v1-0 y) 0.3)
(set! (-> v1-0 z) 0.3)
(set! (-> v1-0 w) 1.0)
)
(let ((v1-1 (-> arg0 color)))
(set! (-> v1-1 0 x) 1.0)
(set! (-> v1-1 0 y) 1.0)
(set! (-> v1-1 0 z) 1.0)
(set! (-> v1-1 0 w) 1.0)
)
(let ((v1-2 (-> arg0 color 1)))
(set! (-> v1-2 x) 0.2)
(set! (-> v1-2 y) 0.2)
(set! (-> v1-2 z) 0.2)
(set! (-> v1-2 w) 1.0)
)
(let ((v1-3 (-> arg0 color 2)))
(set! (-> v1-3 x) 0.0)
(set! (-> v1-3 y) 0.0)
(set! (-> v1-3 z) 0.0)
(set! (-> v1-3 w) 1.0)
)
(let ((v1-4 (-> arg0 direction)))
(set! (-> v1-4 0 x) 1.0)
(set! (-> v1-4 0 y) 0.0)
(set! (-> v1-4 0 z) 0.0)
(set! (-> v1-4 0 w) 1.0)
)
(let ((v1-5 (-> arg0 direction 1)))
(set! (-> v1-5 x) 0.0)
(set! (-> v1-5 y) 1.0)
(set! (-> v1-5 z) 0.0)
(set! (-> v1-5 w) 1.0)
)
(let ((v1-6 (-> arg0 direction 2)))
(set! (-> v1-6 x) 0.0)
(set! (-> v1-6 y) 0.0)
(set! (-> v1-6 z) 1.0)
(set! (-> v1-6 w) 1.0)
)
(set-vector! (-> arg0 ambient) 0.3 0.3 0.3 1.0)
(set-vector! (-> arg0 color 0) 1.0 1.0 1.0 1.0)
(set-vector! (-> arg0 color 1) 0.2 0.2 0.2 1.0)
(set-vector! (-> arg0 color 2) 0.0 0.0 0.0 1.0)
(set-vector! (-> arg0 direction 0) 1.0 0.0 0.0 1.0)
(set-vector! (-> arg0 direction 1) 0.0 1.0 0.0 1.0)
(set-vector! (-> arg0 direction 2) 0.0 0.0 1.0 1.0)
arg0
)
test/decompiler/reference/engine/gfx/mood-h_REF.gc
+8 -48
View File
@@ -205,54 +205,14 @@
(object-new allocation type-to-make (the-as int (-> type-to-make size)))
)
)
(let ((v1-2 (-> v0-0 times)))
(set! (-> v1-2 0 x) 1.0)
(set! (-> v1-2 0 y) 1.0)
(set! (-> v1-2 0 z) 1.0)
(set! (-> v1-2 0 w) 0.0)
)
(let ((v1-3 (-> v0-0 times 1)))
(set! (-> v1-3 x) 1.0)
(set! (-> v1-3 y) 1.0)
(set! (-> v1-3 z) 1.0)
(set! (-> v1-3 w) 0.0)
)
(let ((v1-4 (-> v0-0 times 2)))
(set! (-> v1-4 x) 1.0)
(set! (-> v1-4 y) 1.0)
(set! (-> v1-4 z) 1.0)
(set! (-> v1-4 w) 0.0)
)
(let ((v1-5 (-> v0-0 times 3)))
(set! (-> v1-5 x) 1.0)
(set! (-> v1-5 y) 1.0)
(set! (-> v1-5 z) 1.0)
(set! (-> v1-5 w) 0.0)
)
(let ((v1-6 (-> v0-0 times 4)))
(set! (-> v1-6 x) 1.0)
(set! (-> v1-6 y) 1.0)
(set! (-> v1-6 z) 1.0)
(set! (-> v1-6 w) 0.0)
)
(let ((v1-7 (-> v0-0 times 5)))
(set! (-> v1-7 x) 1.0)
(set! (-> v1-7 y) 1.0)
(set! (-> v1-7 z) 1.0)
(set! (-> v1-7 w) 0.0)
)
(let ((v1-8 (-> v0-0 times 6)))
(set! (-> v1-8 x) 1.0)
(set! (-> v1-8 y) 1.0)
(set! (-> v1-8 z) 1.0)
(set! (-> v1-8 w) 0.0)
)
(let ((v1-9 (-> v0-0 times 7)))
(set! (-> v1-9 x) 1.0)
(set! (-> v1-9 y) 1.0)
(set! (-> v1-9 z) 1.0)
(set! (-> v1-9 w) 0.0)
)
(set-vector! (-> v0-0 times 0) 1.0 1.0 1.0 0.0)
(set-vector! (-> v0-0 times 1) 1.0 1.0 1.0 0.0)
(set-vector! (-> v0-0 times 2) 1.0 1.0 1.0 0.0)
(set-vector! (-> v0-0 times 3) 1.0 1.0 1.0 0.0)
(set-vector! (-> v0-0 times 4) 1.0 1.0 1.0 0.0)
(set-vector! (-> v0-0 times 5) 1.0 1.0 1.0 0.0)
(set-vector! (-> v0-0 times 6) 1.0 1.0 1.0 0.0)
(set-vector! (-> v0-0 times 7) 1.0 1.0 1.0 0.0)
v0-0
)
)
test/decompiler/reference/engine/gfx/ripple_REF.gc
+2 -2
View File
@@ -57,7 +57,7 @@
(when (zero? a3-0)
(set! (-> a2-1 v1-1 effect) arg1)
(set! (-> a2-1 v1-1 waveform) arg0)
(set! (-> *ripple-globals* count) (+ (-> *ripple-globals* count) 1))
(+! (-> *ripple-globals* count) 1)
)
)
)
@@ -76,7 +76,7 @@
(when (!= f0-1 0.0)
(dotimes (v1-4 (-> arg0 count))
(let ((a1-4 (-> arg0 wave v1-4)))
(set! (-> a1-4 offs) (+ (-> a1-4 offs) (* f0-1 (-> a1-4 delta))))
(+! (-> a1-4 offs) (* f0-1 (-> a1-4 delta)))
(set! (-> a1-4 offs) (the float (logand (the int (-> a1-4 offs)) #xffff)))
)
)
test/decompiler/reference/engine/gfx/shrub/shrub-work_REF.gc
+1 -5
View File
@@ -660,7 +660,7 @@
(set! (-> v1-1 vector 2 quad) t2-4)
(set! (-> v1-1 vector 3 quad) t3-1)
)
(set! (-> arg0 base) (&+ (-> arg0 base) 64))
(&+! (-> arg0 base) 64)
(let* ((v1-4 arg0)
(t0-4 (the-as object (-> v1-4 base)))
)
@@ -787,7 +787,3 @@
)
arg0
)
test/decompiler/reference/engine/gfx/sparticle/sparticle-h_REF.gc
+6 -5
View File
@@ -5,11 +5,12 @@
(define *sp-frame-time* (new 'global 'vector))
;; failed to figure out what this is:
(let ((v1-1 *sp-frame-time*))
(set! (-> v1-1 x) 0.00000000000000000000000000000000000001175495)
(set! (-> v1-1 y) 5.0)
(set! (-> v1-1 z) 1.0)
(set! (-> v1-1 w) 1.0)
(set-vector!
*sp-frame-time*
0.00000000000000000000000000000000000001175495
5.0
1.0
1.0
)
;; definition for symbol *sp-60-hz*, type symbol
test/decompiler/reference/engine/gfx/texture_REF.gc
+26 -41
View File
@@ -33,18 +33,15 @@
((obj texture-page) (arg0 memory-usage-block) (arg1 int))
(set! (-> arg0 length) (max 80 (-> arg0 length)))
(set! (-> arg0 data 79 name) "texture")
(set! (-> arg0 data 79 count) (+ (-> arg0 data 79 count) (-> obj length)))
(+! (-> arg0 data 79 count) (-> obj length))
(let ((v1-7 (- (asize-of obj) (the-as int (* (-> obj size) 4)))))
(dotimes (a0-6 (-> obj length))
(if (-> obj data a0-6)
(+! v1-7 64)
)
)
(set! (-> arg0 data 79 used) (+ (-> arg0 data 79 used) v1-7))
(set!
(-> arg0 data 79 total)
(+ (-> arg0 data 79 total) (logand -16 (+ v1-7 15)))
)
(+! (-> arg0 data 79 used) v1-7)
(+! (-> arg0 data 79 total) (logand -16 (+ v1-7 15)))
)
obj
)
@@ -693,7 +690,7 @@
texture-pool
((obj texture-pool) (word-count int))
(let ((v0-0 (-> obj cur)))
(set! (-> obj cur) (+ (-> obj cur) word-count))
(+! (-> obj cur) word-count)
v0-0
)
)
@@ -1701,17 +1698,14 @@
(when tfrag-page
(set! (-> level upload-size 0) 0)
(if (< distance 81920.0)
(set!
(+!
(-> level upload-size 0)
(+
(-> level upload-size 0)
(upload-vram-pages
obj
(-> obj segment-near)
tfrag-page
2
(the-as bucket-id tfrag-bucket)
)
(upload-vram-pages
obj
(-> obj segment-near)
tfrag-page
2
(the-as bucket-id tfrag-bucket)
)
)
)
@@ -1719,32 +1713,26 @@
((= distance 4095996000.0)
)
((< 102400.0 distance)
(set!
(+!
(-> level upload-size 0)
(+
(-> level upload-size 0)
(upload-vram-pages
obj
(-> obj segment-common)
tfrag-page
0
(the-as bucket-id tfrag-bucket)
)
(upload-vram-pages
obj
(-> obj segment-common)
tfrag-page
0
(the-as bucket-id tfrag-bucket)
)
)
)
(else
(set!
(+!
(-> level upload-size 0)
(+
(-> level upload-size 0)
(upload-vram-pages
obj
(-> obj segment-common)
tfrag-page
-2
(the-as bucket-id tfrag-bucket)
)
(upload-vram-pages
obj
(-> obj segment-common)
tfrag-page
-2
(the-as bucket-id tfrag-bucket)
)
)
)
@@ -2911,10 +2899,7 @@
(-> v1-2 loaded-texture-page (-> v1-2 loaded-texture-page-count))
obj
)
(set!
(-> v1-2 loaded-texture-page-count)
(+ (-> v1-2 loaded-texture-page-count) 1)
)
(+! (-> v1-2 loaded-texture-page-count) 1)
)
)
(set! (-> obj segment 1 dest) (-> obj segment 0 size))
test/decompiler/reference/engine/gfx/tie/prototype_REF.gc
+18 -36
View File
@@ -57,13 +57,10 @@
((obj prototype-array-tie) (arg0 memory-usage-block) (arg1 int))
(set! (-> arg0 length) (max 1 (-> arg0 length)))
(set! (-> arg0 data 0 name) (symbol->string 'drawable-group))
(set! (-> arg0 data 0 count) (+ (-> arg0 data 0 count) 1))
(+! (-> arg0 data 0 count) 1)
(let ((v1-8 (asize-of obj)))
(set! (-> arg0 data 0 used) (+ (-> arg0 data 0 used) v1-8))
(set!
(-> arg0 data 0 total)
(+ (-> arg0 data 0 total) (logand -16 (+ v1-8 15)))
)
(+! (-> arg0 data 0 used) v1-8)
(+! (-> arg0 data 0 total) (logand -16 (+ v1-8 15)))
)
(dotimes (s3-0 (-> obj length))
(mem-usage (-> obj array-data s3-0) arg0 arg1)
@@ -85,25 +82,19 @@
)
(set! (-> arg0 length) (max 81 (-> arg0 length)))
(set! (-> arg0 data 80 name) "string")
(set! (-> arg0 data 80 count) (+ (-> arg0 data 80 count) 1))
(+! (-> arg0 data 80 count) 1)
(let
((v1-13 ((method-of-type string asize-of) (the-as string (-> obj name)))))
(set! (-> arg0 data 80 used) (+ (-> arg0 data 80 used) v1-13))
(set!
(-> arg0 data 80 total)
(+ (-> arg0 data 80 total) (logand -16 (+ v1-13 15)))
)
(+! (-> arg0 data 80 used) v1-13)
(+! (-> arg0 data 80 total) (logand -16 (+ v1-13 15)))
)
(when (nonzero? (-> obj tie-colors))
(set! (-> arg0 length) (max 17 (-> arg0 length)))
(set! (-> arg0 data 16 name) "tie-pal")
(set! (-> arg0 data 16 count) (+ (-> arg0 data 16 count) 1))
(+! (-> arg0 data 16 count) 1)
(let ((v1-25 (asize-of (-> obj tie-colors))))
(set! (-> arg0 data 16 used) (+ (-> arg0 data 16 used) v1-25))
(set!
(-> arg0 data 16 total)
(+ (-> arg0 data 16 total) (logand -16 (+ v1-25 15)))
)
(+! (-> arg0 data 16 used) v1-25)
(+! (-> arg0 data 16 total) (logand -16 (+ v1-25 15)))
)
)
(if (nonzero? (-> obj collide-frag))
@@ -119,13 +110,10 @@
((obj prototype-inline-array-shrub) (arg0 memory-usage-block) (arg1 int))
(set! (-> arg0 length) (max 1 (-> arg0 length)))
(set! (-> arg0 data 0 name) (symbol->string 'drawable-group))
(set! (-> arg0 data 0 count) (+ (-> arg0 data 0 count) 1))
(+! (-> arg0 data 0 count) 1)
(let ((v1-8 (asize-of obj)))
(set! (-> arg0 data 0 used) (+ (-> arg0 data 0 used) v1-8))
(set!
(-> arg0 data 0 total)
(+ (-> arg0 data 0 total) (logand -16 (+ v1-8 15)))
)
(+! (-> arg0 data 0 used) v1-8)
(+! (-> arg0 data 0 total) (logand -16 (+ v1-8 15)))
)
(dotimes (s3-0 (-> obj length))
(mem-usage (-> obj data s3-0) arg0 arg1)
@@ -140,13 +128,10 @@
((obj prototype-bucket-shrub) (arg0 memory-usage-block) (arg1 int))
(set! (-> arg0 length) (max 25 (-> arg0 length)))
(set! (-> arg0 data 24 name) "prototype-bucket-shrub")
(set! (-> arg0 data 24 count) (+ (-> arg0 data 24 count) 1))
(+! (-> arg0 data 24 count) 1)
(let ((v1-5 112))
(set! (-> arg0 data 24 used) (+ (-> arg0 data 24 used) v1-5))
(set!
(-> arg0 data 24 total)
(+ (-> arg0 data 24 total) (logand -16 (+ v1-5 15)))
)
(+! (-> arg0 data 24 used) v1-5)
(+! (-> arg0 data 24 total) (logand -16 (+ v1-5 15)))
)
(dotimes (s3-0 4)
(let ((a0-5 (-> obj geometry s3-0)))
@@ -157,14 +142,11 @@
)
(set! (-> arg0 length) (max 81 (-> arg0 length)))
(set! (-> arg0 data 80 name) "string")
(set! (-> arg0 data 80 count) (+ (-> arg0 data 80 count) 1))
(+! (-> arg0 data 80 count) 1)
(let
((v1-22 ((method-of-type string asize-of) (the-as string (-> obj name)))))
(set! (-> arg0 data 80 used) (+ (-> arg0 data 80 used) v1-22))
(set!
(-> arg0 data 80 total)
(+ (-> arg0 data 80 total) (logand -16 (+ v1-22 15)))
)
(+! (-> arg0 data 80 used) v1-22)
(+! (-> arg0 data 80 total) (logand -16 (+ v1-22 15)))
)
obj
)
test/decompiler/reference/engine/gfx/wind_REF.gc
+1 -1
View File
@@ -14,7 +14,7 @@
(set! (-> arg0 wind-normal x) (cos f30-1))
(set! (-> arg0 wind-normal z) (sin f30-1))
)
(set! (-> arg0 wind-time) (+ (-> arg0 wind-time) 1))
(+! (-> arg0 wind-time) 1)
(let* ((s4-0 (logand (-> arg0 wind-time) 63))
(f0-4 (rand-vu-float-range 0.0 100.0))
(v1-5 (/ (-> arg0 wind-time) (the-as uint 120)))
test/decompiler/reference/engine/math/matrix_REF.gc
+8 -17
View File
@@ -222,12 +222,7 @@
;; Used lq/sq
(defun vector3s-matrix*! ((dst vector3s) (vec vector3s) (mat matrix))
(let ((temp-vec3 (new-stack-vector0)))
(let ((v1-0 temp-vec3))
(set! (-> v1-0 x) (-> vec x))
(set! (-> v1-0 y) (-> vec y))
(set! (-> v1-0 z) (-> vec z))
(set! (-> v1-0 w) 1.0)
)
(set-vector! temp-vec3 (-> vec x) (-> vec y) (-> vec z) 1.0)
(vector-matrix*! temp-vec3 temp-vec3 mat)
(set! (-> dst x) (-> temp-vec3 x))
(set! (-> dst y) (-> temp-vec3 y))
@@ -240,12 +235,7 @@
;; Used lq/sq
(defun vector3s-rotate*! ((dst vector3s) (vec vector3s) (mat matrix))
(let ((temp-vec3 (new-stack-vector0)))
(let ((v1-0 temp-vec3))
(set! (-> v1-0 x) (-> vec x))
(set! (-> v1-0 y) (-> vec y))
(set! (-> v1-0 z) (-> vec z))
(set! (-> v1-0 w) 1.0)
)
(set-vector! temp-vec3 (-> vec x) (-> vec y) (-> vec z) 1.0)
(vector-rotate*! temp-vec3 temp-vec3 mat)
(set! (-> dst x) (-> temp-vec3 x))
(set! (-> dst y) (-> temp-vec3 y))
@@ -733,11 +723,12 @@
(sin-vec (new 'stack-no-clear 'vector))
(cos-vec (new 'stack-no-clear 'vector))
)
(let ((v1-0 sincos-input))
(set! (-> v1-0 x) (-> rots-deg x))
(set! (-> v1-0 y) (- (-> rots-deg y) (-> rots-deg z)))
(set! (-> v1-0 z) (-> rots-deg z))
(set! (-> v1-0 w) 1.0)
(set-vector!
sincos-input
(-> rots-deg x)
(- (-> rots-deg y) (-> rots-deg z))
(-> rots-deg z)
1.0
)
(vector-sincos! sin-vec cos-vec sincos-input)
(let ((cos-y (-> cos-vec y))
test/decompiler/reference/engine/math/quaternion_REF.gc
+1 -6
View File
@@ -1090,12 +1090,7 @@
(s5-0 (new 'stack-no-clear 'vector))
)
(quaternion->matrix gp-0 arg0)
(let ((v1-1 s5-0))
(set! (-> v1-1 x) 0.0)
(set! (-> v1-1 y) 0.0)
(set! (-> v1-1 z) 1.0)
(set! (-> v1-1 w) 1.0)
)
(set-vector! s5-0 0.0 0.0 1.0 1.0)
(vector-matrix*! s5-0 s5-0 gp-0)
(vector-y-angle s5-0)
)
test/decompiler/reference/engine/math/vector_REF.gc
+20 -19
View File
@@ -319,13 +319,13 @@
)
(cond
((>= max-step step-len)
(set! (-> vec x) (+ (-> vec x) x-step))
(set! (-> vec z) (+ (-> vec z) z-step))
(+! (-> vec x) x-step)
(+! (-> vec z) z-step)
)
(else
(let ((f2-6 (/ max-step step-len)))
(set! (-> vec x) (+ (-> vec x) (* f2-6 x-step)))
(set! (-> vec z) (+ (-> vec z) (* f2-6 z-step)))
(+! (-> vec x) (* f2-6 x-step))
(+! (-> vec z) (* f2-6 z-step))
)
)
)
@@ -349,13 +349,13 @@
)
(cond
((>= max-step step-len)
(set! (-> vec y) (+ (-> vec y) y-step))
(set! (-> vec z) (+ (-> vec z) z-step))
(+! (-> vec y) y-step)
(+! (-> vec z) z-step)
)
(else
(let ((step-scale (/ max-step step-len)))
(set! (-> vec y) (+ (-> vec y) (* step-scale y-step)))
(set! (-> vec z) (+ (-> vec z) (* step-scale z-step)))
(+! (-> vec y) (* step-scale y-step))
(+! (-> vec z) (* step-scale z-step))
)
)
)
@@ -385,15 +385,15 @@
)
(cond
((>= max-step step-len)
(set! (-> vec x) (+ (-> vec x) x-step))
(set! (-> vec y) (+ (-> vec y) y-step))
(set! (-> vec z) (+ (-> vec z) z-step))
(+! (-> vec x) x-step)
(+! (-> vec y) y-step)
(+! (-> vec z) z-step)
)
(else
(let ((step-scale (/ max-step step-len)))
(set! (-> vec x) (+ (-> vec x) (* step-scale x-step)))
(set! (-> vec y) (+ (-> vec y) (* step-scale y-step)))
(set! (-> vec z) (+ (-> vec z) (* step-scale z-step)))
(+! (-> vec x) (* step-scale x-step))
(+! (-> vec y) (* step-scale y-step))
(+! (-> vec z) (* step-scale z-step))
)
)
)
@@ -1185,11 +1185,12 @@
;; definition for function rand-vu-sphere-point!
(defun rand-vu-sphere-point! ((arg0 vector) (arg1 float))
(let ((s4-0 arg0))
(set! (-> s4-0 x) (rand-vu-float-range -1.0 1.0))
(set! (-> s4-0 y) (rand-vu-float-range -1.0 1.0))
(set! (-> s4-0 z) (rand-vu-float-range -1.0 1.0))
(set! (-> s4-0 w) 1.0)
(set-vector!
arg0
(rand-vu-float-range -1.0 1.0)
(rand-vu-float-range -1.0 1.0)
(rand-vu-float-range -1.0 1.0)
1.0
)
(vector-normalize! arg0 (rand-vu-float-range 0.0 arg1))
)
test/decompiler/reference/engine/physics/trajectory_REF.gc
+5 -5
View File
@@ -5,10 +5,10 @@
;; Used lq/sq
(defmethod TODO-RENAME-9 trajectory ((obj trajectory) (arg0 float) (arg1 vector))
(set! (-> arg1 quad) (-> obj initial-position quad))
(set! (-> arg1 x) (+ (-> arg1 x) (* arg0 (-> obj initial-velocity x))))
(set! (-> arg1 y) (+ (-> arg1 y) (* arg0 (-> obj initial-velocity y))))
(set! (-> arg1 z) (+ (-> arg1 z) (* arg0 (-> obj initial-velocity z))))
(set! (-> arg1 y) (+ (-> arg1 y) (* (* (* 0.5 arg0) arg0) (-> obj gravity))))
(+! (-> arg1 x) (* arg0 (-> obj initial-velocity x)))
(+! (-> arg1 y) (* arg0 (-> obj initial-velocity y)))
(+! (-> arg1 z) (* arg0 (-> obj initial-velocity z)))
(+! (-> arg1 y) (* (* (* 0.5 arg0) arg0) (-> obj gravity)))
arg1
)
@@ -19,7 +19,7 @@
trajectory
((obj trajectory) (arg0 float) (arg1 vector))
(set! (-> arg1 quad) (-> obj initial-velocity quad))
(set! (-> arg1 y) (+ (-> arg1 y) (* arg0 (-> obj gravity))))
(+! (-> arg1 y) (* arg0 (-> obj gravity)))
arg1
)
test/decompiler/reference/engine/ps2/rpc-h_REF.gc
+2 -2
View File
@@ -223,7 +223,7 @@
(set! v1-0 (-> obj current))
)
(let ((v0-2 (&+ (-> v1-0 base) (* (-> v1-0 elt-used) (-> v1-0 elt-size)))))
(set! (-> v1-0 elt-used) (+ (-> v1-0 elt-used) 1))
(+! (-> v1-0 elt-used) 1)
v0-2
)
)
@@ -232,7 +232,7 @@
;; definition for method 11 of type rpc-buffer-pair
(defmethod decrement-elt-used rpc-buffer-pair ((obj rpc-buffer-pair))
(if (> (-> obj current elt-used) 0)
(set! (-> obj current elt-used) (+ (-> obj current elt-used) -1))
(+! (-> obj current elt-used) -1)
)
0
)
test/decompiler/reference/engine/ps2/timer_REF.gc
+6 -12
View File
@@ -100,12 +100,9 @@
(set! (-> arg0 begin-level) 0)
0
(.mfc0 a1-0 Count)
(set!
(+!
(-> arg0 prev-time-elapsed)
(+
(-> arg0 prev-time-elapsed)
(the-as uint (- a1-0 (the-as int (-> arg0 start-time))))
)
(the-as uint (- a1-0 (the-as int (-> arg0 start-time))))
)
)
(the-as uint 0)
@@ -120,7 +117,7 @@
(.mfc0 v1-3 Count)
(set! (-> arg0 start-time) (the-as uint v1-3))
)
(set! (-> arg0 begin-level) (+ (-> arg0 begin-level) 1))
(+! (-> arg0 begin-level) 1)
0
)
@@ -129,16 +126,13 @@
;; WARN: Unsupported inline assembly instruction kind - [mfc0 a1, Count]
(defun stopwatch-end ((arg0 stopwatch))
(local-vars (a1-0 int))
(set! (-> arg0 begin-level) (+ (-> arg0 begin-level) -1))
(+! (-> arg0 begin-level) -1)
(when (zero? (-> arg0 begin-level))
0
(.mfc0 a1-0 Count)
(set!
(+!
(-> arg0 prev-time-elapsed)
(+
(-> arg0 prev-time-elapsed)
(the-as uint (- a1-0 (the-as int (-> arg0 start-time))))
)
(the-as uint (- a1-0 (the-as int (-> arg0 start-time))))
)
)
(the-as uint 0)
test/decompiler/reference/engine/target/joint-mod-h_REF.gc
+7 -32
View File
@@ -89,12 +89,7 @@
(set! (-> obj process) proc)
(set! (-> obj joint) (-> proc node-list data joint-idx))
(set-mode! obj mode)
(let ((twist-max (-> obj twist-max)))
(set! (-> twist-max x) 8192.0)
(set! (-> twist-max y) 11832.889)
(set! (-> twist-max z) 0.0)
(set! (-> twist-max w) 1.0)
)
(set-vector! (-> obj twist-max) 8192.0 11832.889 0.0 1.0)
(set! (-> obj up) (the-as uint 1))
(set! (-> obj nose) (the-as uint 2))
(set! (-> obj ear) (the-as uint 0))
@@ -150,12 +145,7 @@
(set! (-> joint param2) #f)
(vector-reset! (-> obj trans))
(quaternion-identity! (-> obj quat))
(let ((v1-2 (-> obj scale)))
(set! (-> v1-2 x) 1.0)
(set! (-> v1-2 y) 1.0)
(set! (-> v1-2 z) 1.0)
(set! (-> v1-2 w) 1.0)
)
(set-vector! (-> obj scale) 1.0 1.0 1.0 1.0)
(set! (-> obj max-dist) (the-as meters #f))
)
(((joint-mod-handler-mode joint-set*))
@@ -164,12 +154,7 @@
(set! (-> joint param2) #f)
(vector-reset! (-> obj trans))
(quaternion-identity! (-> obj quat))
(let ((v1-4 (-> obj scale)))
(set! (-> v1-4 x) 1.0)
(set! (-> v1-4 y) 1.0)
(set! (-> v1-4 z) 1.0)
(set! (-> v1-4 w) 1.0)
)
(set-vector! (-> obj scale) 1.0 1.0 1.0 1.0)
(set! (-> obj max-dist) (the-as meters #f))
)
)
@@ -724,13 +709,8 @@
)
(vector*! (-> arg1 scale) (-> arg1 scale) (-> s5-0 scale))
(cspace<-parented-transformq-joint! arg0 arg1)
(when (-> s5-0 max-dist)
(let ((v1-4 (-> arg0 bone scale)))
(set! (-> v1-4 x) 1.0)
(set! (-> v1-4 y) 1.0)
(set! (-> v1-4 z) 1.0)
(set! (-> v1-4 w) 1.0)
)
(if (-> s5-0 max-dist)
(set-vector! (-> arg0 bone scale) 1.0 1.0 1.0 1.0)
)
)
0
@@ -797,7 +777,7 @@
(f2-1 (* 6.28318 (-> s4-0 wheel-radius)))
(f0-4 (* (* f1-0 (/ 1.0 f2-1)) f0-3))
)
(set! (-> s4-0 angle) (+ (-> s4-0 angle) f0-4))
(+! (-> s4-0 angle) f0-4)
)
)
(quaternion-vector-angle!
@@ -830,12 +810,7 @@
(set! (-> v0-0 wheel-radius) arg2)
(set! (-> v0-0 wheel-axis) arg3)
(set! (-> v0-0 angle) 0.0)
(let ((v1-2 (-> v0-0 last-position)))
(set! (-> v1-2 x) 0.0)
(set! (-> v1-2 y) 0.0)
(set! (-> v1-2 z) 0.0)
(set! (-> v1-2 w) 1.0)
)
(set-vector! (-> v0-0 last-position) 0.0 0.0 0.0 1.0)
(let ((v1-5 (-> arg0 node-list data arg1)))
(set! (-> v1-5 param0) joint-mod-wheel-callback)
(set! (-> v1-5 param1) v0-0)
test/decompiler/reference/engine/ui/credits_REF.gc
+3 -6
View File
@@ -140,12 +140,9 @@
(print-game-text s3-0 gp-0 #f (the int f30-1) 22)
)
)
(set!
(+!
(-> gp-0 origin y)
(+
(-> gp-0 origin y)
(the float (-> *title-credits-spacing* (+ s5-1 s4-1)))
)
(the float (-> *title-credits-spacing* (+ s5-1 s4-1)))
)
)
)
@@ -206,7 +203,7 @@
(set! v1-13 25)
)
)
(set! (-> s5-0 origin y) (+ (-> s5-0 origin y) (the float v1-13)))
(+! (-> s5-0 origin y) (the float v1-13))
(+! gp-0 1)
)
#f
test/decompiler/reference/engine/util/sync-info_REF.gc
+2 -5
View File
@@ -400,17 +400,14 @@
)
)
)
(set! (-> obj vel) (+ (-> obj vel) f0-3))
(+! (-> obj vel) f0-3)
)
(set!
(-> obj vel)
(fmin (-> obj max-vel) (fmax (- (-> obj max-vel)) (-> obj vel)))
)
(set! (-> obj vel) (* (-> obj vel) (-> obj damping)))
(set!
(-> obj value)
(+ (-> obj value) (* (-> obj vel) (-> *display* time-adjust-ratio)))
)
(+! (-> obj value) (* (-> obj vel) (-> *display* time-adjust-ratio)))
(-> obj value)
)
test/decompiler/reference/kernel/gkernel_REF.gc
+1 -1
View File
@@ -1058,7 +1058,7 @@
(shrink-heap obj s3-0)
(relocate s3-0 (- s2-0))
(set! (-> obj first-gap) (find-gap obj s4-1))
(set! (-> obj compact-count) (+ (-> obj compact-count) 1))
(+! (-> obj compact-count) 1)
)
)
)
test/decompiler/test_FormExpressionBuild2.cpp
+1 -6
View File
@@ -1484,12 +1484,7 @@ TEST_F(FormRegressionTest, VectorNewInlineProp) {
std::string expected =
"(begin\n"
" (let ((s5-0 (new-stack-vector0)))\n"
" (let ((v1-0 s5-0))\n"
" (set! (-> v1-0 x) (-> arg1 x))\n"
" (set! (-> v1-0 y) (-> arg1 y))\n"
" (set! (-> v1-0 z) (-> arg1 z))\n"
" (set! (-> v1-0 w) 0.0)\n"
" )\n"
" (set-vector! s5-0 (-> arg1 x) (-> arg1 y) (-> arg1 z) 0.0)\n"
" (vector-matrix*! s5-0 s5-0 arg2)\n"
" (set! (-> arg0 x) (-> s5-0 x))\n"
" (set! (-> arg0 y) (-> s5-0 y))\n"
test/decompiler/test_gkernel_decomp.cpp
+1 -1
View File
@@ -2613,7 +2613,7 @@ TEST_F(FormRegressionTest, ExprMethod16DeadPoolHeap) {
" (shrink-heap arg0 s3-0)\n"
" (relocate s3-0 (- s2-0))\n"
" (set! (-> arg0 first-gap) (find-gap arg0 s4-1))\n"
" (set! (-> arg0 compact-count) (+ (-> arg0 compact-count) 1))\n"
" (+! (-> arg0 compact-count) 1)\n"
" )\n"
" )\n"
" )\n"