[jak2] add some missing lambdas (#2799)

Should fix the eye problem in
https://github.com/open-goal/jak-project/issues/2797
This commit is contained in:
water111
2023-07-04 18:19:51 -04:00
committed by GitHub
parent 34f49469ec
commit 6c77f51653
8 changed files with 348 additions and 305 deletions
+17 -7
View File
@@ -69,7 +69,6 @@
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; ERROR: Failed store: (s.w! (+ a0-6 8) 0) at op 79
(defun render-eyes-32 ((arg0 dma-buffer) (arg1 eye-control) (arg2 int))
(local-vars (sv-16 float))
(let ((s4-0 32)
@@ -294,7 +293,6 @@
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; ERROR: Failed store: (s.w! (+ a0-6 8) 0) at op 79
(defun render-eyes-32-different ((arg0 dma-buffer) (arg1 eye-control) (arg2 int))
(local-vars (sv-16 float))
(let ((s4-0 32)
@@ -576,7 +574,6 @@
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; ERROR: Failed store: (s.w! (+ a0-6 8) 0) at op 79
(defun render-eyes-64 ((arg0 dma-buffer) (arg1 eye-control) (arg2 int))
(local-vars (sv-16 float))
(let ((s4-0 64)
@@ -801,7 +798,6 @@
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; WARN: Stack slot offset 16 signed mismatch
;; ERROR: Failed store: (s.w! (+ a0-6 8) 0) at op 79
(defun render-eyes-64-different ((arg0 dma-buffer) (arg1 eye-control) (arg2 int))
(local-vars (sv-16 float))
(let ((s4-0 64)
@@ -1072,7 +1068,22 @@
;; definition for function debug-eyes
;; INFO: Used lq/sq
;; WARN: Return type mismatch pointer vs none.
;; ERROR: Failed store: (s.w! (+ a0-1 8) 0) at op 5
;; ERROR: Failed store: (s.q! (+ v1-23 16) a0-10) at op 69
;; ERROR: Failed store: (s.w! (+ a0-11 4) a1-6) at op 74
;; ERROR: Failed store: (s.w! (+ a0-11 8) a1-7) at op 76
;; ERROR: Failed store: (s.w! (+ a0-11 12) a1-8) at op 78
;; ERROR: Failed store: (s.w! (+ a0-12 4) 0) at op 81
;; ERROR: Failed store: (s.w! (+ a0-12 8) 0) at op 82
;; ERROR: Failed store: (s.w! (+ a0-12 12) 0) at op 83
;; ERROR: Failed store: (s.w! (+ a0-13 4) a1-10) at op 88
;; ERROR: Failed store: (s.w! (+ a0-13 8) a1-11) at op 90
;; ERROR: Failed store: (s.w! (+ a0-13 12) 0) at op 91
;; ERROR: Failed store: (s.w! (+ a0-14 4) a1-13) at op 96
;; ERROR: Failed store: (s.w! (+ a0-14 8) 0) at op 97
;; ERROR: Failed store: (s.w! (+ a0-14 12) 0) at op 98
;; ERROR: Failed store: (s.w! (+ v1-24 4) a0-16) at op 103
;; ERROR: Failed store: (s.w! (+ v1-24 8) a0-17) at op 105
;; ERROR: Failed store: (s.w! (+ v1-24 12) 0) at op 106
(defun debug-eyes ((arg0 dma-buffer))
(dma-buffer-add-gs-set arg0
(test-1 (new 'static 'gs-test :ate #x1 :atst (gs-atest always) :zte #x1 :ztst (gs-ztest always)))
@@ -1142,7 +1153,6 @@
;; definition for function update-eyes
;; WARN: Return type mismatch int vs none.
;; ERROR: Failed store: (s.w! (+ a0-38 8) 0) at op 160
(defun update-eyes ()
(when (not (-> *blit-displays-work* screen-copied))
(dotimes (gp-0 6)
@@ -1455,7 +1465,7 @@
;; definition for function set-eye-draw-flag
;; WARN: Return type mismatch int vs none.
(defun set-eye-draw-flag ((arg0 symbol) (arg1 int) (arg2 int))
(defun set-eye-draw-flag ((arg0 symbol) (arg1 int))
(let ((s5-0 (the-as object (+ (+ (* 96 (mod arg1 20)) 28 (* 1552 (/ arg1 20))) (the-as int *eye-control-arrays*))))
)
(format 0 "flag: ~a eye-slot: ~d ~%" arg0 arg1)