mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-17 21:43:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

undo changes to goalsrc

Browse Source
This commit is contained in:
water
2023-09-30 10:24:37 -04:00
parent 83c095ab99
commit 2284a336fd
1954 changed files with 159925 additions and 156681 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/decompiler/reference/jak2/engine/debug/debug-h_REF.gc
Generated Vendored
+26 -31
View File
@@ -14,18 +14,18 @@
)
;; definition for method 3 of type pos-history
(defmethod inspect pos-history ((obj pos-history))
(when (not obj)
(set! obj obj)
(defmethod inspect pos-history ((this pos-history))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'pos-history)
(format #t "~1Tpoints: #x~X~%" (-> obj points))
(format #t "~1Tnum-points: ~D~%" (-> obj num-points))
(format #t "~1Th-first: ~D~%" (-> obj h-first))
(format #t "~1Th-last: ~D~%" (-> obj h-last))
(format #t "[~8x] ~A~%" this 'pos-history)
(format #t "~1Tpoints: #x~X~%" (-> this points))
(format #t "~1Tnum-points: ~D~%" (-> this num-points))
(format #t "~1Th-first: ~D~%" (-> this h-first))
(format #t "~1Th-last: ~D~%" (-> this h-last))
(label cfg-4)
obj
this
)
;; definition of type debug-vertex
@@ -41,18 +41,18 @@
)
;; definition for method 3 of type debug-vertex
(defmethod inspect debug-vertex ((obj debug-vertex))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-vertex ((this debug-vertex))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'debug-vertex)
(format #t "~1Ttrans: ~`vector4w`P~%" (-> obj trans))
(format #t "~1Tnormal: ~`vector3h`P~%" (-> obj normal))
(format #t "~1Tst: ~`vector2h`P~%" (-> obj st))
(format #t "~1Tcolor: #x~X~%" (-> obj color))
(format #t "[~8x] ~A~%" this 'debug-vertex)
(format #t "~1Ttrans: ~`vector4w`P~%" (-> this trans))
(format #t "~1Tnormal: ~`vector3h`P~%" (-> this normal))
(format #t "~1Tst: ~`vector2h`P~%" (-> this st))
(format #t "~1Tcolor: #x~X~%" (-> this color))
(label cfg-4)
obj
this
)
;; definition of type debug-vertex-stats
@@ -67,18 +67,17 @@
)
;; definition for method 3 of type debug-vertex-stats
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect debug-vertex-stats ((obj debug-vertex-stats))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-vertex-stats ((this debug-vertex-stats))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tlength: ~D~%" (-> obj length))
(format #t "~1Tpos-count: ~D~%" (-> obj pos-count))
(format #t "~1Tvertex[600] @ #x~X~%" (-> obj vertex))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tpos-count: ~D~%" (-> this pos-count))
(format #t "~1Tvertex[600] @ #x~X~%" (-> this vertex))
(label cfg-4)
obj
this
)
;; definition for symbol *color-black*, type rgba
@@ -149,7 +148,3 @@
;; failed to figure out what this is:
0