mirror of
https://github.com/open-goal/jak-project
synced 2026-08-01 16:29:37 -04:00
[decompiler] clean up vector detection and add vector float product detection (#638)
* change * recognize vector float product and update tests
This commit is contained in:
water111
@@ -411,8 +411,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -434,8 +433,7 @@
|
||||
(vector4-lerp! s5-0 s5-0 (-> arg0 fog-color) f0-8)
|
||||
)
|
||||
)
|
||||
(let ((v0-3 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -478,8 +476,7 @@
|
||||
(vector4-lerp! s5-0 s5-0 (-> arg0 fog-color) f0-15)
|
||||
)
|
||||
)
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
@@ -226,5 +226,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-18 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -193,5 +193,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-10 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -154,5 +154,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-13 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -16,8 +16,7 @@
|
||||
(set! *redline-index* (+ *redline-index* 1))
|
||||
(when (>= *redline-index* 400)
|
||||
(set! *redline-index* 0)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(none)
|
||||
)
|
||||
@@ -42,8 +41,7 @@
|
||||
(set! *blueline-index* (+ *blueline-index* 1))
|
||||
(when (>= *blueline-index* 400)
|
||||
(set! *blueline-index* 0)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(none)
|
||||
)
|
||||
@@ -68,8 +66,7 @@
|
||||
(set! *greenline-index* (+ *greenline-index* 1))
|
||||
(when (>= *greenline-index* 400)
|
||||
(set! *greenline-index* 0)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(none)
|
||||
)
|
||||
@@ -94,8 +91,7 @@
|
||||
(set! *yellowline-index* (+ *yellowline-index* 1))
|
||||
(when (>= *yellowline-index* 400)
|
||||
(set! *yellowline-index* 0)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(none)
|
||||
)
|
||||
@@ -120,8 +116,7 @@
|
||||
(set! *timeplot-index* (+ *timeplot-index* 1))
|
||||
(when (>= *timeplot-index* 400)
|
||||
(set! *timeplot-index* 0)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(none)
|
||||
)
|
||||
@@ -137,10 +132,6 @@
|
||||
(define-perm *cam-layout* symbol #f)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -23,9 +23,4 @@
|
||||
(define-perm *camera-orbit-target* process-drawable #f)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
0
|
||||
|
||||
@@ -3,28 +3,10 @@
|
||||
|
||||
;; definition for function position-in-front-of-camera!
|
||||
(defun position-in-front-of-camera! ((arg0 vector) (arg1 float) (arg2 float))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v1-0 arg0))
|
||||
(let ((a0-2 (-> *math-camera* inv-camera-rot vector 2))
|
||||
(f0-0 arg1)
|
||||
)
|
||||
(.lvf vf1 (&-> a0-2 quad))
|
||||
(let ((a0-3 f0-0))
|
||||
(.mov vf2 a0-3)
|
||||
)
|
||||
)
|
||||
(.add.x.vf vf1 vf0 vf0 :mask #b1000)
|
||||
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
||||
(.svf (&-> v1-0 quad) vf1)
|
||||
)
|
||||
(vector+float*! arg0 arg0 (-> *math-camera* inv-camera-rot vector 1) arg2)
|
||||
(vector+! arg0 arg0 (-> *math-camera* trans))
|
||||
arg0
|
||||
)
|
||||
(vector-float*! arg0 (-> *math-camera* inv-camera-rot vector 2) arg1)
|
||||
(vector+float*! arg0 arg0 (-> *math-camera* inv-camera-rot vector 1) arg2)
|
||||
(vector+! arg0 arg0 (-> *math-camera* trans))
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for function matrix-local->world
|
||||
@@ -93,8 +75,7 @@
|
||||
(send-event-function *camera* a1-2)
|
||||
)
|
||||
)
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -10,8 +10,7 @@
|
||||
;; failed to figure out what this is:
|
||||
(when (or (not *camera-look-through-other*) (zero? *camera-look-through-other*))
|
||||
(set! *camera-look-through-other* 0)
|
||||
(let ((v1-4 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
|
||||
;; definition (perm) for symbol *camera-other-fov*, type bfloat
|
||||
@@ -34,5 +33,4 @@
|
||||
(define-perm *camera-other-root* vector (vector-reset! (new 'global 'vector)))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -247,8 +247,7 @@
|
||||
(set! (-> obj accel) arg1)
|
||||
(set! (-> obj max-vel) arg2)
|
||||
(set! (-> obj max-partial) arg3)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -264,18 +263,15 @@
|
||||
(set! (-> obj accel) (-> arg0 accel))
|
||||
(set! (-> obj max-vel) (-> arg0 max-vel))
|
||||
(set! (-> obj max-partial) (-> arg0 max-partial))
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type cam-float-seeker
|
||||
;; INFO: Return type mismatch int vs none.
|
||||
(defmethod TODO-RENAME-11 cam-float-seeker ((obj cam-float-seeker) (arg0 float))
|
||||
(let ((f0-0 0.0))
|
||||
)
|
||||
(let ((f0-1 0.0))
|
||||
)
|
||||
0.0
|
||||
0.0
|
||||
(let* ((f1-2 (- (+ (-> obj target) arg0) (-> obj value)))
|
||||
(f0-5 (* (-> obj max-partial) (fabs f1-2)))
|
||||
)
|
||||
@@ -293,8 +289,7 @@
|
||||
(let ((f0-10 (* (-> obj vel) (-> *display* time-adjust-ratio))))
|
||||
(set! (-> obj value) (+ (-> obj value) f0-10))
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -358,8 +353,7 @@
|
||||
(set! (-> obj accel) arg1)
|
||||
(set! (-> obj max-vel) arg2)
|
||||
(set! (-> obj max-partial) arg3)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -369,77 +363,37 @@
|
||||
TODO-RENAME-10
|
||||
cam-vector-seeker
|
||||
((obj cam-vector-seeker) (arg0 vector))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
||||
(let ((f0-0 0.0))
|
||||
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
||||
0.0
|
||||
(cond
|
||||
(arg0
|
||||
(vector+! gp-0 (-> obj target) arg0)
|
||||
(vector-! gp-0 gp-0 (-> obj value))
|
||||
)
|
||||
(cond
|
||||
(arg0
|
||||
(vector+! gp-0 (-> obj target) arg0)
|
||||
(vector-! gp-0 gp-0 (-> obj value))
|
||||
)
|
||||
(else
|
||||
(vector-! gp-0 (-> obj target) (-> obj value))
|
||||
)
|
||||
(else
|
||||
(vector-! gp-0 (-> obj target) (-> obj value))
|
||||
)
|
||||
(let ((f30-1 (* (-> obj max-partial) (vector-length gp-0))))
|
||||
(let ((v1-3 gp-0))
|
||||
(let ((a0-5 gp-0)
|
||||
(f0-3 (* (-> obj accel) (-> *display* time-adjust-ratio)))
|
||||
)
|
||||
(.lvf vf1 (&-> a0-5 quad))
|
||||
(let ((a0-6 f0-3))
|
||||
(.mov vf2 a0-6)
|
||||
)
|
||||
)
|
||||
(.add.x.vf vf1 vf0 vf0 :mask #b1000)
|
||||
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
||||
(.svf (&-> v1-3 quad) vf1)
|
||||
)
|
||||
(vector+! (-> obj vel) (-> obj vel) gp-0)
|
||||
(let ((f0-4 (vector-length (-> obj vel)))
|
||||
(f1-2 (fmin f30-1 (-> obj max-vel)))
|
||||
)
|
||||
(when (< f1-2 f0-4)
|
||||
(let ((v1-6 (-> obj vel)))
|
||||
(let ((a0-9 (-> obj vel))
|
||||
(f0-5 (/ f1-2 f0-4))
|
||||
)
|
||||
(.lvf vf1 (&-> a0-9 quad))
|
||||
(let ((a0-10 f0-5))
|
||||
(.mov vf2 a0-10)
|
||||
)
|
||||
(let ((f30-1 (* (-> obj max-partial) (vector-length gp-0))))
|
||||
(vector-float*!
|
||||
gp-0
|
||||
gp-0
|
||||
(* (-> obj accel) (-> *display* time-adjust-ratio))
|
||||
)
|
||||
(vector+! (-> obj vel) (-> obj vel) gp-0)
|
||||
(let ((f0-4 (vector-length (-> obj vel)))
|
||||
(f1-2 (fmin f30-1 (-> obj max-vel)))
|
||||
)
|
||||
)
|
||||
(.add.x.vf vf1 vf0 vf0 :mask #b1000)
|
||||
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
||||
(.svf (&-> v1-6 quad) vf1)
|
||||
)
|
||||
)
|
||||
(if (< f1-2 f0-4)
|
||||
(vector-float*! (-> obj vel) (-> obj vel) (/ f1-2 f0-4))
|
||||
)
|
||||
)
|
||||
(let ((v1-7 gp-0))
|
||||
(let ((a0-11 (-> obj vel))
|
||||
(f0-6 (-> *display* time-adjust-ratio))
|
||||
)
|
||||
(.lvf vf1 (&-> a0-11 quad))
|
||||
(let ((a0-12 f0-6))
|
||||
(.mov vf2 a0-12)
|
||||
)
|
||||
)
|
||||
(.add.x.vf vf1 vf0 vf0 :mask #b1000)
|
||||
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
||||
(.svf (&-> v1-7 quad) vf1)
|
||||
)
|
||||
(vector+! (-> obj value) (-> obj value) gp-0)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
(none)
|
||||
(vector-float*! gp-0 (-> obj vel) (-> *display* time-adjust-ratio))
|
||||
(vector+! (-> obj value) (-> obj value) gp-0)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition of type cam-rotation-tracker
|
||||
@@ -790,5 +744,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-28 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -192,5 +192,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -50,12 +50,7 @@
|
||||
(y-rat (-> math-cam y-ratio))
|
||||
(cull-info (-> math-cam cull-info))
|
||||
)
|
||||
(let
|
||||
((unused-x-thing
|
||||
(/ (+ 1.0 (* (* 4.0 x-rat) x-rat)) (+ 1.0 (* x-rat x-rat)))
|
||||
)
|
||||
)
|
||||
)
|
||||
(/ (+ 1.0 (* (* 4.0 x-rat) x-rat)) (+ 1.0 (* x-rat x-rat)))
|
||||
(let ((y-thing (/ (+ 1.0 (* (* 4.0 y-rat) y-rat)) (+ 1.0 (* y-rat y-rat)))))
|
||||
(set!
|
||||
(-> cull-info x-fact)
|
||||
@@ -149,8 +144,7 @@
|
||||
(let ((fog-constant-1 100.0)
|
||||
(fog-constant-2 16760631.0)
|
||||
)
|
||||
(let ((f0-21 16777115.0))
|
||||
)
|
||||
16777115.0
|
||||
(let
|
||||
((fog-at-near-plane
|
||||
(/
|
||||
@@ -275,12 +269,9 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v1-17 0))
|
||||
)
|
||||
(let ((v1-20 (make-u128 0 (shl #x301ec000 32))))
|
||||
)
|
||||
(let ((v1-23 (make-u128 0 (shl #x303ec000 32))))
|
||||
)
|
||||
0
|
||||
(make-u128 0 (shl #x301ec000 32))
|
||||
(make-u128 0 (shl #x303ec000 32))
|
||||
(let ((pfog (-> math-cam pfog0)))
|
||||
(let ((vis-gif-0 (-> math-cam vis-gifs)))
|
||||
(set! (-> vis-gif-0 0 fog0) (the-as uint pfog))
|
||||
@@ -478,8 +469,7 @@
|
||||
(vf31 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v1-0 0))
|
||||
)
|
||||
0
|
||||
(.lvf vf24 (&-> *math-camera* camera-temp vector 0 quad))
|
||||
(.lvf vf25 (&-> *math-camera* camera-temp vector 1 quad))
|
||||
(.lvf vf26 (&-> *math-camera* camera-temp vector 2 quad))
|
||||
@@ -526,8 +516,7 @@
|
||||
(vf31 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v1-0 0))
|
||||
)
|
||||
0
|
||||
(.lvf vf24 (&-> *math-camera* camera-temp vector 0 quad))
|
||||
(.lvf vf25 (&-> *math-camera* camera-temp vector 1 quad))
|
||||
(.lvf vf26 (&-> *math-camera* camera-temp vector 2 quad))
|
||||
@@ -574,8 +563,7 @@
|
||||
(vf31 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v1-0 0))
|
||||
)
|
||||
0
|
||||
(.lvf vf24 (&-> *math-camera* camera-temp vector 0 quad))
|
||||
(.lvf vf25 (&-> *math-camera* camera-temp vector 1 quad))
|
||||
(.lvf vf26 (&-> *math-camera* camera-temp vector 2 quad))
|
||||
@@ -598,8 +586,7 @@
|
||||
(.add.vf vf28 vf28 vf30)
|
||||
(.max.x.vf vf28 vf28 vf0 :mask #b1000)
|
||||
(.svf (&-> arg0 quad) vf28)
|
||||
(let ((a0-2 (zero? (logand v1-7 63))))
|
||||
)
|
||||
(zero? (logand v1-7 63))
|
||||
(.mov v0-0 vf23)
|
||||
v0-0
|
||||
)
|
||||
|
||||
@@ -47,5 +47,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -104,5 +104,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-9 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -37,8 +37,7 @@
|
||||
drawable-tree-collide-fragment
|
||||
((obj drawable-tree-collide-fragment) (arg0 int))
|
||||
(dummy-11 (-> obj data 0) (-> obj length))
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -49,8 +48,7 @@
|
||||
drawable-tree-collide-fragment
|
||||
((obj drawable-tree-collide-fragment) (arg0 int))
|
||||
(dummy-12 (-> obj data 0) (-> obj length))
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -61,8 +59,7 @@
|
||||
drawable-tree-collide-fragment
|
||||
((obj drawable-tree-collide-fragment) (arg0 int))
|
||||
(dummy-13 (-> obj data 0) (-> obj length))
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -162,8 +159,7 @@
|
||||
drawable-inline-array-collide-fragment
|
||||
((obj drawable-inline-array-collide-fragment) (arg0 int))
|
||||
(dummy-11 (the-as collide-fragment (-> obj data)) (-> obj length))
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -174,8 +170,7 @@
|
||||
drawable-inline-array-collide-fragment
|
||||
((obj drawable-inline-array-collide-fragment) (arg0 int))
|
||||
(dummy-12 (the-as collide-fragment (-> obj data)) (-> obj length))
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -186,8 +181,7 @@
|
||||
drawable-inline-array-collide-fragment
|
||||
((obj drawable-inline-array-collide-fragment) (arg0 int))
|
||||
(dummy-13 (the-as collide-fragment (-> obj data)) (-> obj length))
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -214,7 +208,3 @@
|
||||
)
|
||||
obj
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -108,8 +108,7 @@
|
||||
(let ((t9-0 (method-of-type structure new))
|
||||
(v1-1 type-to-make)
|
||||
)
|
||||
(let ((a2-0 (-> type-to-make size)))
|
||||
)
|
||||
(-> type-to-make size)
|
||||
(let ((gp-0 (t9-0 allocation v1-1)))
|
||||
((method-of-type touching-prims-entry-pool init-list!)
|
||||
(the-as touching-prims-entry-pool gp-0)
|
||||
@@ -187,8 +186,7 @@
|
||||
(let ((t9-0 (method-of-type structure new))
|
||||
(v1-1 type-to-make)
|
||||
)
|
||||
(let ((a2-0 (-> type-to-make size)))
|
||||
)
|
||||
(-> type-to-make size)
|
||||
(let ((obj (the-as touching-list (t9-0 allocation v1-1))))
|
||||
(set! (-> obj num-touching-shapes) 0)
|
||||
(set! (-> obj resolve-u) 0)
|
||||
|
||||
@@ -509,5 +509,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-37 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -63,5 +63,4 @@
|
||||
(define *res-key-string* (new 'global 'string 64 (the-as string #f)))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -62,5 +62,4 @@
|
||||
(define *__private-assert-info* (new 'static '__assert-info-private-struct))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -66,5 +66,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -83,8 +83,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-10 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -131,8 +130,7 @@
|
||||
(add-debug-line #t arg0 s4-0 s2-0 arg3 #f (the-as rgba -1))
|
||||
)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -129,8 +129,7 @@
|
||||
(set! (-> obj to-spr-waits) (+ (-> obj to-spr-waits) arg1))
|
||||
(set! (-> obj from-spr-waits) (+ (-> obj from-spr-waits) arg2))
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
@@ -50,5 +50,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -182,8 +182,7 @@
|
||||
(&- (-> arg1 base) (the-as uint (-> arg1 data)))
|
||||
)
|
||||
(crash!)
|
||||
(let ((v1-2 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(dma-send
|
||||
arg0
|
||||
@@ -201,8 +200,7 @@
|
||||
(&- (-> arg1 base) (the-as uint (-> arg1 data)))
|
||||
)
|
||||
(crash!)
|
||||
(let ((v1-2 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(dma-send-chain arg0 (the-as uint (-> arg1 data)))
|
||||
(none)
|
||||
|
||||
@@ -285,10 +285,8 @@
|
||||
(+ (+ s2-1 4) (the-as int data))
|
||||
count
|
||||
)
|
||||
(let ((v1-21 (-> s3-1 (* 3 s2-1))))
|
||||
)
|
||||
(let ((v1-26 (-> s3-1 (+ (* 3 s2-1) 1))))
|
||||
)
|
||||
(-> s3-1 (* 3 s2-1))
|
||||
(-> s3-1 (+ (* 3 s2-1) 1))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -402,172 +400,158 @@
|
||||
)
|
||||
(-> *vif-disasm-table* cmd-template-idx tag)
|
||||
)
|
||||
(let* ((print-kind (-> *vif-disasm-table* cmd-template-idx print))
|
||||
(v0-1 (cond
|
||||
((zero? print-kind)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
)
|
||||
)
|
||||
((= print-kind 1)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :~s #x~X)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> *vif-disasm-table* cmd-template-idx string2)
|
||||
(-> first-tag imm)
|
||||
)
|
||||
)
|
||||
((= print-kind 2)
|
||||
(let
|
||||
((stcycl-imm (the-as vif-stcycl-imm (-> first-tag imm)))
|
||||
)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :wl ~D :cl ~D)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> stcycl-imm wl)
|
||||
(-> stcycl-imm cl)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= print-kind 3)
|
||||
(set! packet-size 8)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :~s #x~X)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> *vif-disasm-table* cmd-template-idx string2)
|
||||
(-> data 1)
|
||||
)
|
||||
)
|
||||
((= print-kind 4)
|
||||
(set! packet-size 20)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :~s "
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> *vif-disasm-table* cmd-template-idx string2)
|
||||
)
|
||||
(format
|
||||
stream
|
||||
"#x~X #x~X #x~X #x~X)~%"
|
||||
(-> data 1)
|
||||
(-> data 2)
|
||||
(-> data 3)
|
||||
(-> data 4)
|
||||
)
|
||||
)
|
||||
((= print-kind 5)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :instructions #x~D :addr #x~X)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> first-tag num)
|
||||
(-> first-tag imm)
|
||||
)
|
||||
)
|
||||
((= print-kind 6)
|
||||
(if (-> first-tag imm)
|
||||
(set! packet-size #x100000)
|
||||
(set!
|
||||
packet-size
|
||||
(the-as int (* (-> first-tag imm) 16))
|
||||
)
|
||||
)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :qwc #x~D)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> first-tag imm)
|
||||
)
|
||||
(set! data-ptr (&-> data 1))
|
||||
(set! data-idx 0)
|
||||
(while (< data-idx (the-as int (-> first-tag imm)))
|
||||
(format
|
||||
stream
|
||||
" #x~X: #x~8x #x~8x #x~8x #x~8x~%"
|
||||
(+ (+ (* data-idx 16) 4) (the-as int data))
|
||||
(-> data-ptr (* data-idx 4))
|
||||
(-> data-ptr (+ (* data-idx 4) 1))
|
||||
(-> data-ptr (+ (* data-idx 4) 2))
|
||||
(-> data-ptr (+ (* data-idx 4) 3))
|
||||
)
|
||||
(set! data-idx (+ data-idx 1))
|
||||
)
|
||||
#f
|
||||
)
|
||||
((= print-kind 7)
|
||||
(set!
|
||||
packet-size
|
||||
(the-as
|
||||
int
|
||||
(+
|
||||
(logand
|
||||
-4
|
||||
(the-as
|
||||
int
|
||||
(+
|
||||
(*
|
||||
(-> *vif-disasm-table* cmd-template-idx val)
|
||||
(-> first-tag num)
|
||||
)
|
||||
3
|
||||
)
|
||||
)
|
||||
)
|
||||
4
|
||||
)
|
||||
)
|
||||
)
|
||||
(set!
|
||||
unpack-imm
|
||||
(the-as vif-unpack-imm (-> first-tag imm))
|
||||
)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :num ~D :addr #x~X "
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> first-tag num)
|
||||
(-> unpack-imm addr)
|
||||
)
|
||||
(format
|
||||
stream
|
||||
":msk ~D :flg ~D :usn ~D [skip ~d])~%"
|
||||
(-> first-tag msk)
|
||||
(-> unpack-imm flg)
|
||||
(-> unpack-imm usn)
|
||||
(the-as uint packet-size)
|
||||
)
|
||||
(if details
|
||||
(disasm-vif-details
|
||||
stream
|
||||
(the-as (pointer uint8) data)
|
||||
(logand cmd (vif-cmd cmd-mask))
|
||||
(the-as int (-> first-tag num))
|
||||
)
|
||||
)
|
||||
)
|
||||
((= print-kind 8)
|
||||
(format
|
||||
stream
|
||||
" (*unknown* vif-tag #x~X)~%"
|
||||
(-> first-tag cmd)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((print-kind (-> *vif-disasm-table* cmd-template-idx print)))
|
||||
(cond
|
||||
((zero? print-kind)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
)
|
||||
)
|
||||
((= print-kind 1)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :~s #x~X)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> *vif-disasm-table* cmd-template-idx string2)
|
||||
(-> first-tag imm)
|
||||
)
|
||||
)
|
||||
((= print-kind 2)
|
||||
(let ((stcycl-imm (the-as vif-stcycl-imm (-> first-tag imm))))
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :wl ~D :cl ~D)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> stcycl-imm wl)
|
||||
(-> stcycl-imm cl)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= print-kind 3)
|
||||
(set! packet-size 8)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :~s #x~X)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> *vif-disasm-table* cmd-template-idx string2)
|
||||
(-> data 1)
|
||||
)
|
||||
)
|
||||
((= print-kind 4)
|
||||
(set! packet-size 20)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :~s "
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> *vif-disasm-table* cmd-template-idx string2)
|
||||
)
|
||||
(format
|
||||
stream
|
||||
"#x~X #x~X #x~X #x~X)~%"
|
||||
(-> data 1)
|
||||
(-> data 2)
|
||||
(-> data 3)
|
||||
(-> data 4)
|
||||
)
|
||||
)
|
||||
((= print-kind 5)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :instructions #x~D :addr #x~X)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> first-tag num)
|
||||
(-> first-tag imm)
|
||||
)
|
||||
)
|
||||
((= print-kind 6)
|
||||
(if (-> first-tag imm)
|
||||
(set! packet-size #x100000)
|
||||
(set! packet-size (the-as int (* (-> first-tag imm) 16)))
|
||||
)
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :qwc #x~D)~%"
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> first-tag imm)
|
||||
)
|
||||
(set! data-ptr (&-> data 1))
|
||||
(set! data-idx 0)
|
||||
(while (< data-idx (the-as int (-> first-tag imm)))
|
||||
(format
|
||||
stream
|
||||
" #x~X: #x~8x #x~8x #x~8x #x~8x~%"
|
||||
(+ (+ (* data-idx 16) 4) (the-as int data))
|
||||
(-> data-ptr (* data-idx 4))
|
||||
(-> data-ptr (+ (* data-idx 4) 1))
|
||||
(-> data-ptr (+ (* data-idx 4) 2))
|
||||
(-> data-ptr (+ (* data-idx 4) 3))
|
||||
)
|
||||
(set! data-idx (+ data-idx 1))
|
||||
)
|
||||
#f
|
||||
)
|
||||
((= print-kind 7)
|
||||
(set!
|
||||
packet-size
|
||||
(the-as
|
||||
int
|
||||
(+
|
||||
(logand
|
||||
-4
|
||||
(the-as
|
||||
int
|
||||
(+
|
||||
(*
|
||||
(-> *vif-disasm-table* cmd-template-idx val)
|
||||
(-> first-tag num)
|
||||
)
|
||||
3
|
||||
)
|
||||
)
|
||||
)
|
||||
4
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! unpack-imm (the-as vif-unpack-imm (-> first-tag imm)))
|
||||
(format
|
||||
stream
|
||||
" (~s :irq ~D :num ~D :addr #x~X "
|
||||
(-> *vif-disasm-table* cmd-template-idx string1)
|
||||
(-> first-tag irq)
|
||||
(-> first-tag num)
|
||||
(-> unpack-imm addr)
|
||||
)
|
||||
(format
|
||||
stream
|
||||
":msk ~D :flg ~D :usn ~D [skip ~d])~%"
|
||||
(-> first-tag msk)
|
||||
(-> unpack-imm flg)
|
||||
(-> unpack-imm usn)
|
||||
(the-as uint packet-size)
|
||||
)
|
||||
(if details
|
||||
(disasm-vif-details
|
||||
stream
|
||||
(the-as (pointer uint8) data)
|
||||
(logand cmd (vif-cmd cmd-mask))
|
||||
(the-as int (-> first-tag num))
|
||||
)
|
||||
)
|
||||
)
|
||||
((= print-kind 8)
|
||||
(format stream " (*unknown* vif-tag #x~X)~%" (-> first-tag cmd))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! cmd-template-idx (-> *vif-disasm-table* length))
|
||||
)
|
||||
@@ -777,8 +761,7 @@
|
||||
(+ (the-as uint data-2) (the-as uint (* (+ qwc 1) 16)))
|
||||
)
|
||||
)
|
||||
(let ((v1-68 data-2))
|
||||
)
|
||||
data-2
|
||||
)
|
||||
((= (-> current-tag id) (dma-tag-id next))
|
||||
(set! addr (&-> (the-as (pointer uint64) data-2) 2))
|
||||
@@ -799,8 +782,7 @@
|
||||
(set! end-condition 'error)
|
||||
)
|
||||
(set! data-2 (the-as dma-packet (-> current-tag addr)))
|
||||
(let ((v1-88 data-2))
|
||||
)
|
||||
data-2
|
||||
)
|
||||
(else
|
||||
(cond
|
||||
@@ -823,13 +805,11 @@
|
||||
(cond
|
||||
((zero? call-depth)
|
||||
(set! ra-1 (&+ addr qwc))
|
||||
(let ((v1-108 (the-as (pointer uint64) ra-1)))
|
||||
)
|
||||
(the-as (pointer uint64) ra-1)
|
||||
)
|
||||
(else
|
||||
(set! ra-2 (&+ addr qwc))
|
||||
(let ((v1-111 (the-as (pointer uint64) ra-2)))
|
||||
)
|
||||
(the-as (pointer uint64) ra-2)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -851,13 +831,11 @@
|
||||
(cond
|
||||
((zero? v1-123)
|
||||
(set! data-2 (the-as dma-packet ra-1))
|
||||
(let ((v1-125 data-2))
|
||||
)
|
||||
data-2
|
||||
)
|
||||
((= v1-123 1)
|
||||
(set! data-2 (the-as dma-packet ra-2))
|
||||
(let ((v1-127 data-2))
|
||||
)
|
||||
data-2
|
||||
)
|
||||
(else
|
||||
(set! end-condition #t)
|
||||
@@ -865,26 +843,22 @@
|
||||
)
|
||||
)
|
||||
(set! call-depth (+ call-depth -1))
|
||||
(let ((v1-131 call-depth))
|
||||
)
|
||||
call-depth
|
||||
)
|
||||
((= (-> current-tag id) (dma-tag-id end))
|
||||
(set! addr (&-> (the-as (pointer uint64) data-2) 2))
|
||||
(set! qwc (the-as int (-> current-tag qwc)))
|
||||
(set! end-condition #t)
|
||||
(let ((v0-17 (if mode-2
|
||||
(disasm-vif-tag
|
||||
(the-as
|
||||
(pointer vif-tag)
|
||||
(&-> (the-as (pointer uint64) data-2) 1)
|
||||
)
|
||||
(the-as int (+ (* qwc 4) 2))
|
||||
stream-2
|
||||
(= mode-2 'details)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(if mode-2
|
||||
(disasm-vif-tag
|
||||
(the-as
|
||||
(pointer vif-tag)
|
||||
(&-> (the-as (pointer uint64) data-2) 1)
|
||||
)
|
||||
(the-as int (+ (* qwc 4) 2))
|
||||
stream-2
|
||||
(= mode-2 'details)
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
|
||||
@@ -12,8 +12,7 @@
|
||||
(cond
|
||||
((zero? v1-0)
|
||||
(crash!)
|
||||
(let ((a1-0 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(else
|
||||
(+! v1-0 -1)
|
||||
@@ -21,8 +20,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -50,8 +48,7 @@
|
||||
(.sync.l)
|
||||
(set! (-> arg0 chcr) (new 'static 'dma-chcr :str #x1))
|
||||
(.sync.l)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -82,8 +79,7 @@
|
||||
(new 'static 'dma-chcr :dir #x1 :mod #x1 :tte #x1 :str #x1)
|
||||
)
|
||||
(.sync.l)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -111,8 +107,7 @@
|
||||
(.sync.l)
|
||||
(set! (-> arg0 chcr) (new 'static 'dma-chcr :dir #x1 :mod #x1 :str #x1))
|
||||
(.sync.l)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -142,8 +137,7 @@
|
||||
(new 'static 'dma-chcr :dir #x1 :mod #x1 :tte #x1 :str #x1)
|
||||
)
|
||||
(.sync.l)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -167,8 +161,7 @@
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
(let ((v0-3 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -193,8 +186,7 @@
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -218,8 +210,7 @@
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
(let ((v0-3 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -244,8 +235,7 @@
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -254,8 +244,7 @@
|
||||
(defun dma-initialize ()
|
||||
(set! (-> (the-as vif-bank #x10003800) err me0) 1)
|
||||
(set! (-> (the-as vif-bank #x10003c00) err me0) 1)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -267,8 +256,7 @@
|
||||
(set! (-> v1-0 a0-0) (the-as uint #xabadbeef))
|
||||
)
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -280,8 +268,7 @@
|
||||
(set! (-> v1-0 a0-0) (the-as uint #xabadbeef))
|
||||
)
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -351,8 +338,7 @@
|
||||
(reset-path)
|
||||
(reset-graph 1 1 *video-reset-parm* 1)
|
||||
(format 0 "gkernel: vif1 path reset!~%")
|
||||
(let ((v0-5 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -397,8 +383,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-5 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
@@ -46,5 +46,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-5 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -114,5 +114,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-10 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -15,5 +15,4 @@
|
||||
(define *collide-nodes* 0)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -49,5 +49,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -20,5 +20,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -18,6 +18,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
|
||||
0
|
||||
|
||||
@@ -155,5 +155,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -267,8 +267,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
@@ -290,8 +289,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -310,5 +310,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-20 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -75,11 +75,9 @@
|
||||
;; INFO: Return type mismatch int vs none.
|
||||
(defmethod set-channel-offset! effect-control ((obj effect-control) (arg0 int))
|
||||
(set! (-> obj channel-offset) arg0)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -189,5 +189,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-8 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -348,5 +348,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-18 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -326,5 +326,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -116,5 +116,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -218,5 +218,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-7 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -2,5 +2,4 @@
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -74,5 +74,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -194,5 +194,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-8 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -58,8 +58,7 @@
|
||||
(if *progress-process*
|
||||
(TODO-RENAME-23 (-> *progress-process* 0) (get-aspect-ratio) arg0)
|
||||
)
|
||||
(let ((v0-5 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -91,8 +90,7 @@
|
||||
(if *progress-process*
|
||||
(TODO-RENAME-23 (-> *progress-process* 0) arg0 (get-video-mode))
|
||||
)
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
@@ -65,5 +65,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -54,5 +54,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -117,8 +117,7 @@
|
||||
(let ((s3-0 s4-0)
|
||||
(s2-0 (-> (the-as res-lump s5-1) tag s4-0))
|
||||
)
|
||||
(let ((v1-10 0))
|
||||
)
|
||||
0
|
||||
(while (= (-> s2-0 name) (-> (the-as res-lump s5-1) tag s4-0 name))
|
||||
(let
|
||||
((v1-12
|
||||
@@ -167,8 +166,7 @@
|
||||
(let ((s3-1 s4-1)
|
||||
(s2-1 (-> (the-as res-lump s5-2) tag s4-1))
|
||||
)
|
||||
(let ((v1-29 0))
|
||||
)
|
||||
0
|
||||
(while (= (-> s2-1 name) (-> (the-as res-lump s5-2) tag s4-1 name))
|
||||
(let
|
||||
((v1-31
|
||||
|
||||
@@ -80,5 +80,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -24,5 +24,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -64,5 +64,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -107,5 +107,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-8 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -775,5 +775,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-20 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -80,5 +80,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -185,5 +185,4 @@
|
||||
(define *generic-debug* (new 'global 'generic-debug))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-17 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -345,5 +345,4 @@
|
||||
(define *post-draw-hook* nothing)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-12 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -89,8 +89,7 @@
|
||||
(cond
|
||||
((zero? (logand psm 2))
|
||||
(set! (-> env dthe) (new 'static 'gs-dthe))
|
||||
(let ((v1-7 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(else
|
||||
(set! (-> env dthe) (new 'static 'gs-dthe :dthe #x1))
|
||||
@@ -109,8 +108,7 @@
|
||||
(cond
|
||||
((zero? ztest)
|
||||
(set! (-> env test1) (new 'static 'gs-test))
|
||||
(let ((v1-16 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(else
|
||||
(set! (-> env test1) (new 'static 'gs-test :zte #x1 :ztst ztest))
|
||||
|
||||
@@ -73,5 +73,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -110,5 +110,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-8 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -206,5 +206,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-19 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -39,8 +39,7 @@
|
||||
(defun
|
||||
light-group-process!
|
||||
((arg0 vu-lights) (arg1 light-group) (arg2 vector) (arg3 vector))
|
||||
(let ((f0-0 (rotate-y<-vector+vector arg3 arg2)))
|
||||
)
|
||||
(rotate-y<-vector+vector arg3 arg2)
|
||||
(vu-lights<-light-group! arg0 arg1)
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -281,5 +281,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-18 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -718,5 +718,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-47 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -258,5 +258,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-15 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -818,5 +818,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-64 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -61,8 +61,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -84,8 +83,7 @@
|
||||
(set! (-> arg0 frame-save) (-> *display* integral-frame-counter))
|
||||
)
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -126,8 +124,7 @@
|
||||
)
|
||||
)
|
||||
(set! (-> *ripple-globals* count) 0)
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -60,5 +60,4 @@
|
||||
(define *fake-shadow-buffer* *fake-shadow-buffer-1*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-6 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -465,5 +465,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-23 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -309,5 +309,4 @@
|
||||
(define *cloud-drawn* #f)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-27 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -152,5 +152,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-7 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -215,5 +215,4 @@
|
||||
(set! (-> sparticle-launch-control heap-base) (the-as uint 32))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-12 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -158,5 +158,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-8 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -403,5 +403,4 @@
|
||||
(define *ocean-base-page* 0)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-25 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -397,5 +397,4 @@
|
||||
(define *collide-stats* (new 'global 'collide-stats))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-33 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -476,5 +476,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-30 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -464,5 +464,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-30 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -265,5 +265,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-16 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -422,5 +422,4 @@
|
||||
(define *instance-tie-work-copy* (the-as basic #f))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-18 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -218,5 +218,4 @@
|
||||
(define *time-of-day-context* (new 'static 'time-of-day-context))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-13 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -238,5 +238,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-12 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -178,5 +178,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-7 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -7,70 +7,54 @@
|
||||
;; definition for function update-wind
|
||||
;; INFO: Return type mismatch int vs none.
|
||||
(defun update-wind ((arg0 wind-work) (arg1 (array uint8)))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
(let* ((f0-1 (+ (-> arg0 wind-normal w) (rand-vu-float-range -1024.0 1024.0)))
|
||||
(f30-1 (- f0-1 (* (the float (the int (/ f0-1 65536.0))) 65536.0)))
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let*
|
||||
((f0-1 (+ (-> arg0 wind-normal w) (rand-vu-float-range -1024.0 1024.0)))
|
||||
(f30-1 (- f0-1 (* (the float (the int (/ f0-1 65536.0))) 65536.0)))
|
||||
)
|
||||
(set! (-> arg0 wind-normal w) f30-1)
|
||||
(set! (-> arg0 wind-normal x) (cos f30-1))
|
||||
(set! (-> arg0 wind-normal z) (sin f30-1))
|
||||
)
|
||||
(set! (-> arg0 wind-time) (+ (-> 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)))
|
||||
(f1-6
|
||||
(*
|
||||
0.008333334
|
||||
(the float (mod (-> arg0 wind-time) (the-as uint 120)))
|
||||
)
|
||||
)
|
||||
(f2-4
|
||||
(*
|
||||
0.0625
|
||||
(the float (-> arg1 (mod (the-as int v1-5) (-> arg1 length))))
|
||||
)
|
||||
)
|
||||
(f0-5
|
||||
(*
|
||||
(+
|
||||
(*
|
||||
(-
|
||||
(*
|
||||
0.0625
|
||||
(the
|
||||
float
|
||||
(-> arg1 (mod (the-as int (+ v1-5 1)) (-> arg1 length)))
|
||||
)
|
||||
)
|
||||
f2-4
|
||||
)
|
||||
f1-6
|
||||
)
|
||||
f2-4
|
||||
)
|
||||
f0-4
|
||||
)
|
||||
(set! (-> arg0 wind-normal w) f30-1)
|
||||
(set! (-> arg0 wind-normal x) (cos f30-1))
|
||||
(set! (-> arg0 wind-normal z) (sin f30-1))
|
||||
)
|
||||
(set! (-> arg0 wind-time) (+ (-> 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)))
|
||||
(f1-6
|
||||
(*
|
||||
0.008333334
|
||||
(the float (mod (-> arg0 wind-time) (the-as uint 120)))
|
||||
)
|
||||
)
|
||||
(set! (-> *wind-work* wind-force s4-0) f0-5)
|
||||
(let ((v1-14 (-> *wind-work* wind-array s4-0)))
|
||||
(.lvf vf1 (&-> (-> arg0 wind-normal) quad))
|
||||
(let ((a0-16 f0-5))
|
||||
(.mov vf2 a0-16)
|
||||
)
|
||||
(.add.x.vf vf1 vf0 vf0 :mask #b1000)
|
||||
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
||||
(.svf (&-> v1-14 quad) vf1)
|
||||
)
|
||||
)
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
(none)
|
||||
(f2-4
|
||||
(*
|
||||
0.0625
|
||||
(the float (-> arg1 (mod (the-as int v1-5) (-> arg1 length))))
|
||||
)
|
||||
)
|
||||
(f0-5
|
||||
(*
|
||||
(+
|
||||
(*
|
||||
(-
|
||||
(*
|
||||
0.0625
|
||||
(the
|
||||
float
|
||||
(-> arg1 (mod (the-as int (+ v1-5 1)) (-> arg1 length)))
|
||||
)
|
||||
)
|
||||
f2-4
|
||||
)
|
||||
f1-6
|
||||
)
|
||||
f2-4
|
||||
)
|
||||
f0-4
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> *wind-work* wind-force s4-0) f0-5)
|
||||
(vector-float*! (-> *wind-work* wind-array s4-0) (-> arg0 wind-normal) f0-5)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -136,8 +136,7 @@
|
||||
(defun str-load-cancel ()
|
||||
(set! *load-str-lock* #f)
|
||||
(set! *que-str-lock* #t)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -150,10 +149,8 @@
|
||||
(set! (-> cmd address) addr)
|
||||
(set! (-> cmd result) (load-msg-result done))
|
||||
)
|
||||
(let ((v1-2 0))
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -165,8 +162,7 @@
|
||||
(charp<-string (-> cmd basename) name)
|
||||
(set! (-> cmd result) (load-msg-result error))
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -185,8 +181,7 @@
|
||||
)
|
||||
)
|
||||
(set! *que-str-lock* #f)
|
||||
(let ((v0-3 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -199,10 +194,8 @@
|
||||
(charp<-string (&-> cmd basename 1) name)
|
||||
(set! (-> cmd result) (load-msg-result done))
|
||||
)
|
||||
(let ((v1-3 0))
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -215,8 +208,7 @@
|
||||
(charp<-string (&-> cmd basename 1) name)
|
||||
(set! (-> cmd result) (load-msg-result error))
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -230,8 +222,7 @@
|
||||
(call *play-str-rpc* (the-as uint 0) (the-as pointer 0) (the-as uint 0))
|
||||
)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -314,8 +305,7 @@
|
||||
(let ((cmd (add-element *load-dgo-rpc*)))
|
||||
(call *load-dgo-rpc* (the-as uint 2) cmd (the-as uint 32))
|
||||
)
|
||||
(let ((v0-3 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -413,7 +403,6 @@
|
||||
(set! (-> arg0 0) (the-as uint #xffffffff))
|
||||
(set! arg0 (&-> arg0 1))
|
||||
)
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -272,5 +272,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-12 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -95,11 +95,9 @@
|
||||
;; INFO: Return type mismatch int vs none.
|
||||
(defun ramdisk-sync ()
|
||||
(sync *ramdisk-rpc* #t)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-7 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -39,5 +39,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -40,12 +40,9 @@
|
||||
(f2-0 (* f24-0 f22-0))
|
||||
(f3-0 (* f24-0 f4-0))
|
||||
)
|
||||
(let ((v1-7 0))
|
||||
)
|
||||
(let ((v1-8 0))
|
||||
)
|
||||
(let ((v1-9 0))
|
||||
)
|
||||
0
|
||||
0
|
||||
0
|
||||
(let* ((v1-12 (logand (/ (the int (-> s5-0 w)) 4) 1))
|
||||
(a1-2 (-> EulSafe (logand (/ (the int (-> s5-0 w)) 8) 3)))
|
||||
(a0-21 (-> EulNext (+ a1-2 v1-12)))
|
||||
@@ -227,12 +224,9 @@
|
||||
|
||||
;; definition for function matrix->eul
|
||||
(defun matrix->eul ((arg0 euler-angles) (arg1 matrix) (arg2 int))
|
||||
(let ((v1-0 0))
|
||||
)
|
||||
(let ((v1-1 0))
|
||||
)
|
||||
(let ((v1-2 0))
|
||||
)
|
||||
0
|
||||
0
|
||||
0
|
||||
(let* ((v1-4 (logand (/ arg2 4) 1))
|
||||
(s3-0 (-> EulSafe (logand (/ arg2 8) 3)))
|
||||
(s2-0 (-> EulNext (+ s3-0 v1-4)))
|
||||
|
||||
@@ -222,5 +222,4 @@
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-7 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -35,5 +35,4 @@
|
||||
(define *unity-quaternion* (new 'static 'quaternion :w 1.0))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -814,8 +814,7 @@
|
||||
(f0-0 1.0)
|
||||
)
|
||||
(when (< f1-0 0.0)
|
||||
(let ((f0-1 (- f1-0)))
|
||||
)
|
||||
(- f1-0)
|
||||
(set! f0-0 -1.0)
|
||||
)
|
||||
(let ((v1-2 (- 1.0 arg3)))
|
||||
@@ -1117,8 +1116,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-5 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -45,5 +45,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-4 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -112,5 +112,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-8 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -2,5 +2,4 @@
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-0 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -176,8 +176,7 @@
|
||||
;; definition for function sin
|
||||
(defun sin ((arg0 float))
|
||||
(let ((f2-0 (* 0.000095873795 (the float (sar (shl (the int arg0) 48) 48)))))
|
||||
(let ((f0-1 f2-0))
|
||||
)
|
||||
f2-0
|
||||
(let* ((f1-4 (* 0.999998 f2-0))
|
||||
(f0-3 (* f2-0 f2-0))
|
||||
(f2-1 (* f2-0 f0-3))
|
||||
@@ -689,8 +688,7 @@
|
||||
;; definition for function asin
|
||||
(defun asin ((arg0 float))
|
||||
(let ((gp-0 #f))
|
||||
(let ((f0-0 0.0))
|
||||
)
|
||||
0.0
|
||||
(when (< arg0 0.0)
|
||||
(set! arg0 (- arg0))
|
||||
(set! gp-0 #t)
|
||||
|
||||
@@ -903,36 +903,12 @@
|
||||
|
||||
;; definition for function vector+!
|
||||
(defun vector+! ((arg0 vector) (arg1 vector) (arg2 vector))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(.mov.vf vf6 vf0 :mask #b1000)
|
||||
(.lvf vf4 (&-> arg1 quad))
|
||||
(.lvf vf5 (&-> arg2 quad))
|
||||
(.add.vf vf6 vf4 vf5 :mask #b111)
|
||||
(.svf (&-> arg0 quad) vf6)
|
||||
arg0
|
||||
)
|
||||
(vector+! arg0 arg1 arg2)
|
||||
)
|
||||
|
||||
;; definition for function vector-!
|
||||
(defun vector-! ((arg0 vector) (arg1 vector) (arg2 vector))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(.lvf vf4 (&-> arg1 quad))
|
||||
(.lvf vf5 (&-> arg2 quad))
|
||||
(.mov.vf vf6 vf0 :mask #b1000)
|
||||
(.sub.vf vf6 vf4 vf5 :mask #b111)
|
||||
(.svf (&-> arg0 quad) vf6)
|
||||
arg0
|
||||
)
|
||||
(vector-! arg0 arg1 arg2)
|
||||
)
|
||||
|
||||
;; definition for function vector-zero!
|
||||
|
||||
@@ -458,26 +458,8 @@
|
||||
|
||||
;; definition for function vector-v!
|
||||
(defun vector-v! ((arg0 vector))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v1-0 arg0))
|
||||
(let ((a1-0 arg0)
|
||||
(f0-0 (-> *display* seconds-per-frame))
|
||||
)
|
||||
(.lvf vf1 (&-> a1-0 quad))
|
||||
(let ((a1-1 f0-0))
|
||||
(.mov vf2 a1-1)
|
||||
)
|
||||
)
|
||||
(.add.x.vf vf1 vf0 vf0 :mask #b1000)
|
||||
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
||||
(.svf (&-> v1-0 quad) vf1)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
(vector-float*! arg0 arg0 (-> *display* seconds-per-frame))
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for function vector-v+!
|
||||
@@ -507,26 +489,7 @@
|
||||
|
||||
;; definition for function vector-v*float!
|
||||
(defun vector-v*float! ((delta-p vector) (velocity vector) (scale float))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v0-0 delta-p))
|
||||
(let ((v1-0 velocity)
|
||||
(f0-1 (* scale (-> *display* seconds-per-frame)))
|
||||
)
|
||||
(.lvf vf1 (&-> v1-0 quad))
|
||||
(let ((v1-1 f0-1))
|
||||
(.mov vf2 v1-1)
|
||||
)
|
||||
)
|
||||
(.add.x.vf vf1 vf0 vf0 :mask #b1000)
|
||||
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
||||
(.svf (&-> v0-0 quad) vf1)
|
||||
v0-0
|
||||
)
|
||||
)
|
||||
(vector-float*! delta-p velocity (* scale (-> *display* seconds-per-frame)))
|
||||
)
|
||||
|
||||
;; definition for function vector-v*float++!
|
||||
@@ -1143,8 +1106,7 @@
|
||||
|
||||
;; definition for function vector3s-copy!
|
||||
(defun vector3s-copy! ((arg0 vector) (arg1 vector))
|
||||
(let ((v1-0 "Copy a vector3s"))
|
||||
)
|
||||
"Copy a vector3s"
|
||||
(set! (-> arg0 x) (-> arg1 x))
|
||||
(set! (-> arg0 y) (-> arg1 y))
|
||||
(set! (-> arg0 z) (-> arg1 z))
|
||||
@@ -1153,8 +1115,7 @@
|
||||
|
||||
;; definition for function vector3s+!
|
||||
(defun vector3s+! ((arg0 vector) (arg1 vector) (arg2 vector))
|
||||
(let ((v1-0 "Add 2 vectors3."))
|
||||
)
|
||||
"Add 2 vectors3."
|
||||
(set! (-> arg0 x) (+ (-> arg1 x) (-> arg2 x)))
|
||||
(set! (-> arg0 y) (+ (-> arg1 y) (-> arg2 y)))
|
||||
(set! (-> arg0 z) (+ (-> arg1 z) (-> arg2 z)))
|
||||
@@ -1163,8 +1124,7 @@
|
||||
|
||||
;; definition for function vector3s*float!
|
||||
(defun vector3s*float! ((arg0 vector) (arg1 vector) (arg2 float))
|
||||
(let ((v1-0 "mult vectors3 by float"))
|
||||
)
|
||||
"mult vectors3 by float"
|
||||
(set! (-> arg0 x) (* (-> arg1 x) arg2))
|
||||
(set! (-> arg0 y) (* (-> arg1 y) arg2))
|
||||
(set! (-> arg0 z) (* (-> arg1 z) arg2))
|
||||
@@ -1173,8 +1133,7 @@
|
||||
|
||||
;; definition for function vector3s-!
|
||||
(defun vector3s-! ((arg0 vector) (arg1 vector) (arg2 vector))
|
||||
(let ((v1-0 "Subtract 2 vectors3: c = (a - b)."))
|
||||
)
|
||||
"Subtract 2 vectors3: c = (a - b)."
|
||||
(set! (-> arg0 x) (- (-> arg1 x) (-> arg2 x)))
|
||||
(set! (-> arg0 y) (- (-> arg1 y) (-> arg2 y)))
|
||||
(set! (-> arg0 z) (- (-> arg1 z) (-> arg2 z)))
|
||||
|
||||
@@ -136,8 +136,7 @@
|
||||
)
|
||||
(set! (-> obj curve cverts) (the-as pointer #f))
|
||||
(set! (-> obj curve num-cverts) 0)
|
||||
(let ((v1-16 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -215,8 +214,7 @@
|
||||
)
|
||||
(set! (-> obj curve cverts) (the-as pointer #f))
|
||||
(set! (-> obj curve num-cverts) 0)
|
||||
(let ((v1-11 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -226,5 +224,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-9 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -64,5 +64,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -33,5 +33,4 @@
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
|
||||
@@ -41,8 +41,7 @@
|
||||
(-> obj initial-velocity y)
|
||||
(- (/ (- (-> arg1 y) (-> arg0 y)) arg2) (* (* 0.5 arg2) (-> obj gravity)))
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -55,8 +54,7 @@
|
||||
(let ((f0-1 (/ (vector-vector-xz-distance arg1 arg0) arg2)))
|
||||
(TODO-RENAME-11 obj arg0 arg1 f0-1 arg3)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -77,8 +75,7 @@
|
||||
)
|
||||
(TODO-RENAME-11 obj arg0 arg1 f0-3 arg3)
|
||||
)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -97,8 +94,7 @@
|
||||
)
|
||||
(TODO-RENAME-13 obj arg0 arg1 f0-3 arg3)
|
||||
)
|
||||
(let ((v0-1 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -128,7 +124,6 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v0-2 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -97,13 +97,11 @@
|
||||
(cond
|
||||
((zero? (-> info known))
|
||||
(format (clear *temp-string*) "SLOT ~D: EXAMINING SLOT~%" slot-idx)
|
||||
(let ((v1-1 *temp-string*))
|
||||
)
|
||||
*temp-string*
|
||||
)
|
||||
((zero? (-> info handle))
|
||||
(format (clear *temp-string*) "SLOT ~D: NO CARD~%" slot-idx)
|
||||
(let ((v1-3 *temp-string*))
|
||||
)
|
||||
*temp-string*
|
||||
)
|
||||
((zero? (-> info formatted))
|
||||
(format
|
||||
@@ -112,8 +110,7 @@
|
||||
slot-idx
|
||||
(-> info handle)
|
||||
)
|
||||
(let ((v1-5 *temp-string*))
|
||||
)
|
||||
*temp-string*
|
||||
)
|
||||
((zero? (-> info inited))
|
||||
(format
|
||||
@@ -124,8 +121,7 @@
|
||||
(-> info mem-required)
|
||||
(-> info mem-actual)
|
||||
)
|
||||
(let ((v1-7 *temp-string*))
|
||||
)
|
||||
*temp-string*
|
||||
)
|
||||
(else
|
||||
(format
|
||||
@@ -134,8 +130,7 @@
|
||||
slot-idx
|
||||
(-> info handle)
|
||||
)
|
||||
(let ((v1-8 *temp-string*))
|
||||
)
|
||||
*temp-string*
|
||||
(format
|
||||
*temp-string*
|
||||
"SAVES ~D ~D ~D ~D : LAST ~D~%"
|
||||
@@ -150,11 +145,9 @@
|
||||
(draw-string-xy *temp-string* dma-buf 32 (+ (* 12 slot-idx) 8) 3 1)
|
||||
)
|
||||
)
|
||||
(let ((v0-13 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v0-5 0))
|
||||
)
|
||||
0
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user