mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-02 00:34:13 -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_REF.gc
Generated Vendored
+38 -39
View File
@@ -461,21 +461,21 @@
)
;; definition for method 3 of type debug-line
(defmethod inspect debug-line ((obj debug-line))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-line ((this debug-line))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'debug-line)
(format #t "~1Tflags: ~D~%" (-> obj flags))
(format #t "~1Tbucket: ~D~%" (-> obj bucket))
(format #t "~1Tv1: #<vector @ #x~X>~%" (-> obj v1))
(format #t "~1Tv2: #<vector @ #x~X>~%" (-> obj v2))
(format #t "~1Tcolor: ~D~%" (-> obj color))
(format #t "~1Tmode: ~A~%" (-> obj mode))
(format #t "~1Tcolor2: ~D~%" (-> obj color2))
(format #t "[~8x] ~A~%" this 'debug-line)
(format #t "~1Tflags: ~D~%" (-> this flags))
(format #t "~1Tbucket: ~D~%" (-> this bucket))
(format #t "~1Tv1: #<vector @ #x~X>~%" (-> this v1))
(format #t "~1Tv2: #<vector @ #x~X>~%" (-> this v2))
(format #t "~1Tcolor: ~D~%" (-> this color))
(format #t "~1Tmode: ~A~%" (-> this mode))
(format #t "~1Tcolor2: ~D~%" (-> this color2))
(label cfg-4)
obj
this
)
;; definition of type debug-text-3d
@@ -493,20 +493,20 @@
)
;; definition for method 3 of type debug-text-3d
(defmethod inspect debug-text-3d ((obj debug-text-3d))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-text-3d ((this debug-text-3d))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'debug-text-3d)
(format #t "~1Tflags: ~D~%" (-> obj flags))
(format #t "~1Tbucket: ~D~%" (-> obj bucket))
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> obj pos))
(format #t "~1Tcolor: ~D~%" (-> obj color))
(format #t "~1Toffset: #<vector2h @ #x~X>~%" (-> obj offset))
(format #t "~1Tstr: ~A~%" (-> obj str))
(format #t "[~8x] ~A~%" this 'debug-text-3d)
(format #t "~1Tflags: ~D~%" (-> this flags))
(format #t "~1Tbucket: ~D~%" (-> this bucket))
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
(format #t "~1Tcolor: ~D~%" (-> this color))
(format #t "~1Toffset: #<vector2h @ #x~X>~%" (-> this offset))
(format #t "~1Tstr: ~A~%" (-> this str))
(label cfg-4)
obj
this
)
;; definition of type debug-tracking-thang
@@ -520,16 +520,16 @@
)
;; definition for method 3 of type debug-tracking-thang
(defmethod inspect debug-tracking-thang ((obj debug-tracking-thang))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-tracking-thang ((this debug-tracking-thang))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tlength: ~D~%" (-> obj length))
(format #t "~1Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
(label cfg-4)
obj
this
)
;; definition for symbol *debug-lines*, type (inline-array debug-line)
@@ -1605,14 +1605,13 @@
)
;; 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))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tlength: ~D~%" (-> obj length))
(format #t "~Tpos-count: ~D~%" (-> obj pos-count))
(format #t "~Tdata[~D]: @ #x~X~%" (-> obj length) (-> obj vertex))
(dotimes (s5-0 (-> obj length))
(let ((s4-0 (-> obj vertex s5-0)))
(defmethod inspect debug-vertex-stats ((this debug-vertex-stats))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~Tlength: ~D~%" (-> this length))
(format #t "~Tpos-count: ~D~%" (-> this pos-count))
(format #t "~Tdata[~D]: @ #x~X~%" (-> this length) (-> this vertex))
(dotimes (s5-0 (-> this length))
(let ((s4-0 (-> this vertex s5-0)))
(format
#t
" ~D : trans: ~D ~D ~D ~D"
@@ -1633,7 +1632,7 @@
)
)
)
obj
this
)
;; definition (debug) for function history-init