mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-09-10 04:22: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-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
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
test/decompiler/reference/jak2/engine/debug/default-menu_REF.gc
Generated Vendored
+3 -3
View File
@@ -3977,7 +3977,7 @@
)
(logior! (-> *game-info* features) (game-feature gun))
(logior! (-> *game-info* debug-features) (game-feature gun))
(send-event *target* 'change-mode 'gun #f 0)
(send-event *target* 'change-mode 'gun #f (pickup-type none))
)
)
(function "darkjak" #f ,(lambda ()
@@ -4370,7 +4370,7 @@
(let ((v1-1 (process-spawn-function process (lambda ()
(set-master-mode 'game)
(let ((gp-0 (current-time)))
(until (>= (- (current-time) gp-0) (seconds 0.3))
(until (time-elapsed? gp-0 (seconds 0.3))
(suspend)
)
)
@@ -6089,7 +6089,7 @@
)
(logior! (-> *game-info* features) (game-feature gun))
(logior! (-> *game-info* debug-features) (game-feature gun))
(send-event *target* 'change-mode 'gun #f 0)
(send-event *target* 'change-mode 'gun #f (pickup-type none))
)
)
(function "darkjak" #f ,(lambda ()
test/decompiler/reference/jak2/engine/debug/editable-h_REF.gc
Generated Vendored
+181 -181
View File
@@ -269,23 +269,23 @@
)
;; definition for method 3 of type editable-region
(defmethod inspect editable-region ((obj editable-region))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-region ((this editable-region))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tchanged: ~A~%" (-> obj changed))
(format #t "~1Tlocked: ~A~%" (-> obj locked))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tfilter: ~D~%" (-> obj filter))
(format #t "~1Ttree: ~A~%" (-> obj tree))
(format #t "~1Tlevel: ~A~%" (-> obj level))
(format #t "~1Ton-enter: ~A~%" (-> obj on-enter))
(format #t "~1Ton-inside: ~A~%" (-> obj on-inside))
(format #t "~1Ton-exit: ~A~%" (-> obj on-exit))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tchanged: ~A~%" (-> this changed))
(format #t "~1Tlocked: ~A~%" (-> this locked))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tfilter: ~D~%" (-> this filter))
(format #t "~1Ttree: ~A~%" (-> this tree))
(format #t "~1Tlevel: ~A~%" (-> this level))
(format #t "~1Ton-enter: ~A~%" (-> this on-enter))
(format #t "~1Ton-inside: ~A~%" (-> this on-inside))
(format #t "~1Ton-exit: ~A~%" (-> this on-exit))
(label cfg-4)
obj
this
)
;; definition of type editable
@@ -325,14 +325,14 @@
)
;; definition for method 3 of type editable
(defmethod inspect editable ((obj editable))
(when (not obj)
(set! obj obj)
(defmethod inspect editable ((this editable))
(when (not this)
(set! this this)
(goto cfg-28)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -371,12 +371,12 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(label cfg-28)
obj
this
)
;; definition of type editable-array
@@ -421,38 +421,38 @@
)
;; definition for method 3 of type editable-array
(defmethod inspect editable-array ((obj editable-array))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-array ((this editable-array))
(when (not this)
(set! this this)
(goto cfg-7)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~1Tlength: ~D~%" (-> obj length))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Tbackup-region: ~A~%" (-> obj backup-region))
(format #t "~1Tregion-lock?: ~A~%" (-> obj region-lock?))
(format #t "~1Tmove-lock?: ~A~%" (-> obj move-lock?))
(format #t "~1Tmove-speed: ~f~%" (-> obj move-speed))
(format #t "~1Tselection: ~`basic`P~%" (-> obj selection))
(format #t "~1Tfilter[2] @ #x~X~%" (-> obj filter))
(format #t "~1Ttarget: ~A~%" (-> obj target))
(format #t "~1Ttarget-mode: ~D~%" (-> obj target-mode))
(format #t "~1Ttarget-command: ~D~%" (-> obj target-command))
(format #t "~1Ttarget-message: ~A~%" (-> obj target-message))
(format #t "~1Tedit-plane: ~A~%" (-> obj edit-plane))
(format #t "~1Tedit-plane-center: ~`vector`P~%" (-> obj edit-plane-center))
(format #t "~1Tedit-plane-normal: ~`vector`P~%" (-> obj edit-plane-normal))
(format #t "~1Tlevel-offset: ~`vector`P~%" (-> obj level-offset))
(format #t "~1Tlevel-info-id: ~D~%" (-> obj level-info-id))
(format #t "~1Tlevel: ~A~%" (-> obj level))
(format #t "~1Tedit-param0: ~f~%" (-> obj edit-param0))
(format #t "~1Tdata[0] @ #x~X~%" (-> obj data))
(dotimes (s5-0 (-> obj length))
(format #t "~T [~D]~1Tdata: ~A~%" s5-0 (-> obj data s5-0))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Tbackup-region: ~A~%" (-> this backup-region))
(format #t "~1Tregion-lock?: ~A~%" (-> this region-lock?))
(format #t "~1Tmove-lock?: ~A~%" (-> this move-lock?))
(format #t "~1Tmove-speed: ~f~%" (-> this move-speed))
(format #t "~1Tselection: ~`basic`P~%" (-> this selection))
(format #t "~1Tfilter[2] @ #x~X~%" (-> this filter))
(format #t "~1Ttarget: ~A~%" (-> this target))
(format #t "~1Ttarget-mode: ~D~%" (-> this target-mode))
(format #t "~1Ttarget-command: ~D~%" (-> this target-command))
(format #t "~1Ttarget-message: ~A~%" (-> this target-message))
(format #t "~1Tedit-plane: ~A~%" (-> this edit-plane))
(format #t "~1Tedit-plane-center: ~`vector`P~%" (-> this edit-plane-center))
(format #t "~1Tedit-plane-normal: ~`vector`P~%" (-> this edit-plane-normal))
(format #t "~1Tlevel-offset: ~`vector`P~%" (-> this level-offset))
(format #t "~1Tlevel-info-id: ~D~%" (-> this level-info-id))
(format #t "~1Tlevel: ~A~%" (-> this level))
(format #t "~1Tedit-param0: ~f~%" (-> this edit-param0))
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
(dotimes (s5-0 (-> this length))
(format #t "~T [~D]~1Tdata: ~A~%" s5-0 (-> this data s5-0))
)
(label cfg-7)
obj
this
)
;; definition for method 0 of type editable-array
@@ -509,14 +509,14 @@
)
;; definition for method 3 of type editable-point
(defmethod inspect editable-point ((obj editable-point))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-point ((this editable-point))
(when (not this)
(set! this this)
(goto cfg-28)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -555,14 +555,14 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tradius: (meters ~m)~%" (-> obj radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> obj trans))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(format #t "~1Tradius: (meters ~m)~%" (-> this radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
(label cfg-28)
obj
this
)
;; definition for method 0 of type editable-point
@@ -600,14 +600,14 @@
)
;; definition for method 3 of type editable-sphere
(defmethod inspect editable-sphere ((obj editable-sphere))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-sphere ((this editable-sphere))
(when (not this)
(set! this this)
(goto cfg-28)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -646,14 +646,14 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tradius: (meters ~m)~%" (-> obj radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> obj trans))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(format #t "~1Tradius: (meters ~m)~%" (-> this radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
(label cfg-28)
obj
this
)
;; definition for method 0 of type editable-sphere
@@ -688,14 +688,14 @@
)
;; definition for method 3 of type editable-sample
(defmethod inspect editable-sample ((obj editable-sample))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-sample ((this editable-sample))
(when (not this)
(set! this this)
(goto cfg-28)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -734,14 +734,14 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tradius: (meters ~m)~%" (-> obj radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> obj trans))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(format #t "~1Tradius: (meters ~m)~%" (-> this radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
(label cfg-28)
obj
this
)
;; definition of type editable-light
@@ -761,14 +761,14 @@
)
;; definition for method 3 of type editable-light
(defmethod inspect editable-light ((obj editable-light))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-light ((this editable-light))
(when (not this)
(set! this this)
(goto cfg-28)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -807,19 +807,19 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tradius: (meters ~m)~%" (-> obj radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> obj trans))
(format #t "~1Tdirection: ~`vector`P~%" (-> obj direction))
(format #t "~1Tcolor: ~`vector`P~%" (-> obj color))
(format #t "~1Tdecay-start: ~f~%" (-> obj decay-start))
(format #t "~1Tambient-point-ratio: ~f~%" (-> obj ambient-point-ratio))
(format #t "~1Tbrightness: ~f~%" (-> obj brightness))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(format #t "~1Tradius: (meters ~m)~%" (-> this radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
(format #t "~1Tdirection: ~`vector`P~%" (-> this direction))
(format #t "~1Tcolor: ~`vector`P~%" (-> this color))
(format #t "~1Tdecay-start: ~f~%" (-> this decay-start))
(format #t "~1Tambient-point-ratio: ~f~%" (-> this ambient-point-ratio))
(format #t "~1Tbrightness: ~f~%" (-> this brightness))
(label cfg-28)
obj
this
)
;; definition for method 0 of type editable-light
@@ -863,14 +863,14 @@
)
;; definition for method 3 of type editable-entity
(defmethod inspect editable-entity ((obj editable-entity))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-entity ((this editable-entity))
(when (not this)
(set! this this)
(goto cfg-28)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -909,14 +909,14 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tradius: (meters ~m)~%" (-> obj radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> obj trans))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(format #t "~1Tradius: (meters ~m)~%" (-> this radius))
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
(label cfg-28)
obj
this
)
;; definition of type editable-face
@@ -937,14 +937,14 @@
)
;; definition for method 3 of type editable-face
(defmethod inspect editable-face ((obj editable-face))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-face ((this editable-face))
(when (not this)
(set! this this)
(goto cfg-31)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -983,19 +983,19 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tlength: ~D~%" (-> obj length))
(format #t "~1Tnormal: ~`vector`P~%" (-> obj normal))
(format #t "~1Tcenter: ~`vector`P~%" (-> obj center))
(format #t "~1Tvertex[6] @ #x~X~%" (-> obj vertex))
(dotimes (s5-1 (-> obj length))
(format #t "~T [~D]~1Tvertex: ~A~%" s5-1 (-> obj vertex s5-1))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tnormal: ~`vector`P~%" (-> this normal))
(format #t "~1Tcenter: ~`vector`P~%" (-> this center))
(format #t "~1Tvertex[6] @ #x~X~%" (-> this vertex))
(dotimes (s5-1 (-> this length))
(format #t "~T [~D]~1Tvertex: ~A~%" s5-1 (-> this vertex s5-1))
)
(label cfg-31)
obj
this
)
;; definition for method 0 of type editable-face
@@ -1035,14 +1035,14 @@
)
;; definition for method 3 of type editable-plane
(defmethod inspect editable-plane ((obj editable-plane))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-plane ((this editable-plane))
(when (not this)
(set! this this)
(goto cfg-31)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> obj flags))
(let ((s5-0 (-> obj flags)))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tflags: #x~X : (editable-flag " (-> this flags))
(let ((s5-0 (-> this flags)))
(if (= (logand s5-0 (editable-flag no-save)) (editable-flag no-save))
(format #t "no-save ")
)
@@ -1081,18 +1081,18 @@
)
)
(format #t ")~%")
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tid: ~D~%" (-> obj id))
(format #t "~1Tregion: ~A~%" (-> obj region))
(format #t "~1Towner: ~A~%" (-> obj owner))
(format #t "~1Tlength: ~D~%" (-> obj length))
(format #t "~1Tradius: (meters ~m)~%" (-> obj radius))
(format #t "~1Tvertex[2] @ #x~X~%" (-> obj vertex))
(dotimes (s5-1 (-> obj length))
(format #t "~T [~D]~1Tvertex: ~A~%" s5-1 (-> obj vertex s5-1))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tid: ~D~%" (-> this id))
(format #t "~1Tregion: ~A~%" (-> this region))
(format #t "~1Towner: ~A~%" (-> this owner))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tradius: (meters ~m)~%" (-> this radius))
(format #t "~1Tvertex[2] @ #x~X~%" (-> this vertex))
(dotimes (s5-1 (-> this length))
(format #t "~T [~D]~1Tvertex: ~A~%" s5-1 (-> this vertex s5-1))
)
(label cfg-31)
obj
this
)
;; definition for method 0 of type editable-plane
@@ -1139,25 +1139,25 @@
)
;; definition for method 3 of type editable-player
(defmethod inspect editable-player ((obj editable-player))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-player ((this editable-player))
(when (not this)
(set! this this)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
(t9-0 this)
)
(format #t "~2Tcurrent: ~A~%" (-> obj current))
(format #t "~2Tselect-command: ~D~%" (-> obj select-command))
(format #t "~2Tmove-command: ~D~%" (-> obj move-command))
(format #t "~2Textra-command: ~D~%" (-> obj extra-command))
(format #t "~2Tleft-handed: ~A~%" (-> obj left-handed))
(format #t "~2Tlight-names: ~A~%" (-> obj light-names))
(format #t "~2Texternal-cam-mode: ~A~%" (-> obj external-cam-mode))
(format #t "~2Tcommand[6] @ #x~X~%" (-> obj command))
(format #t "~2Tclose-menu-time: ~D~%" (-> obj close-menu-time))
(format #t "~2Tcurrent: ~A~%" (-> this current))
(format #t "~2Tselect-command: ~D~%" (-> this select-command))
(format #t "~2Tmove-command: ~D~%" (-> this move-command))
(format #t "~2Textra-command: ~D~%" (-> this extra-command))
(format #t "~2Tleft-handed: ~A~%" (-> this left-handed))
(format #t "~2Tlight-names: ~A~%" (-> this light-names))
(format #t "~2Texternal-cam-mode: ~A~%" (-> this external-cam-mode))
(format #t "~2Tcommand[6] @ #x~X~%" (-> this command))
(format #t "~2Tclose-menu-time: ~D~%" (-> this close-menu-time))
(label cfg-4)
obj
this
)
;; definition of type editable-work
@@ -1175,20 +1175,20 @@
)
;; definition for method 3 of type editable-work
(defmethod inspect editable-work ((obj editable-work))
(when (not obj)
(set! obj obj)
(defmethod inspect editable-work ((this editable-work))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tnum-found: ~D~%" (-> obj num-found))
(format #t "~1Tlast-found: ~D~%" (-> obj last-found))
(format #t "~1Tlast-x: ~f~%" (-> obj last-x))
(format #t "~1Tlast-y: ~f~%" (-> obj last-y))
(format #t "~1Tfound[256] @ #x~X~%" (-> obj found))
(format #t "~1Tdists[256] @ #x~X~%" (-> obj dists))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tnum-found: ~D~%" (-> this num-found))
(format #t "~1Tlast-found: ~D~%" (-> this last-found))
(format #t "~1Tlast-x: ~f~%" (-> this last-x))
(format #t "~1Tlast-y: ~f~%" (-> this last-y))
(format #t "~1Tfound[256] @ #x~X~%" (-> this found))
(format #t "~1Tdists[256] @ #x~X~%" (-> this dists))
(label cfg-4)
obj
this
)
;; definition for symbol *editable-work*, type editable-work
test/decompiler/reference/jak2/engine/debug/editable-player_REF.gc
Generated Vendored
+129 -129
View File
@@ -1110,101 +1110,101 @@
)
;; definition for method 9 of type editable-array
(defmethod editable-array-method-9 editable-array ((obj editable-array) (arg0 editable-command) (arg1 mouse-info))
(if (execute-select obj arg0 arg1)
(defmethod editable-array-method-9 editable-array ((this editable-array) (arg0 editable-command) (arg1 mouse-info))
(if (execute-select this arg0 arg1)
(return #f)
)
(if (execute-move obj arg0 arg1)
(if (execute-move this arg0 arg1)
(return #f)
)
(if (execute-mouse-move obj arg0 arg1)
(if (execute-mouse-move this arg0 arg1)
(return #f)
)
(cond
((= arg0 (editable-command copy))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(set! (-> obj selection length) 0)
(let* ((s4-2 (-> obj length))
(set! (-> this selection length) 0)
(let* ((s4-2 (-> this length))
(s3-1 0)
(s2-0 (-> obj data s3-1))
(s2-0 (-> this data s3-1))
)
(while (< s3-1 s4-2)
(when (and s2-0 (logtest? (-> s2-0 flags) (editable-flag selected)))
(editable-method-27 s2-0 obj)
(editable-method-27 s2-0 this)
(when (= (-> s2-0 type) editable-light)
(editable-method-23 s2-0)
(update-light-hash *light-hash*)
)
)
(+! s3-1 1)
(set! s2-0 (-> obj data s3-1))
(set! s2-0 (-> this data s3-1))
)
)
(editable-array-method-9 obj (editable-command select-none) arg1)
(editable-array-method-9 this (editable-command select-none) arg1)
(let ((s5-1 (the-as editable-region #f)))
(dotimes (s4-3 (-> obj selection length))
(let ((a0-13 (-> obj selection s4-3)))
(dotimes (s4-3 (-> this selection length))
(let ((a0-13 (-> this selection s4-3)))
(when (and a0-13 (logtest? s4-3 1))
(set! s5-1 (-> a0-13 region))
(select-editable! a0-13 #t)
)
)
)
(if (not (-> obj region-lock?))
(set! (-> obj region) s5-1)
(if (not (-> this region-lock?))
(set! (-> this region) s5-1)
)
)
)
((= arg0 (editable-command copy-region))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(when (and (-> obj region) (not (-> obj region locked)))
(editable-array-method-9 obj (editable-command select-current-region) arg1)
(let ((v1-52 (copy (-> obj region) 'debug)))
(when (and (-> this region) (not (-> this region locked)))
(editable-array-method-9 this (editable-command select-current-region) arg1)
(let ((v1-52 (copy (-> this region) 'debug)))
(set! (-> v1-52 id) (the-as uint 0))
(set! (-> v1-52 changed) #t)
(set! (-> obj region) v1-52)
(set! (-> this region) v1-52)
)
(editable-array-method-9 obj (editable-command copy) arg1)
(editable-array-method-9 this (editable-command copy) arg1)
)
)
((= arg0 (editable-command delete))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(let* ((s5-3 (-> obj length))
(let* ((s5-3 (-> this length))
(s4-6 0)
(s3-3 (-> obj data s4-6))
(s3-3 (-> this data s4-6))
)
(while (< s4-6 s5-3)
(when (and s3-3 (logtest? (-> s3-3 flags) (editable-flag selected)))
(editable-array-method-15 obj s3-3)
(editable-array-method-15 this s3-3)
(when (= (-> s3-3 type) editable-light)
(editable-method-23 s3-3)
(update-light-hash *light-hash*)
)
)
(+! s4-6 1)
(set! s3-3 (-> obj data s4-6))
(set! s3-3 (-> this data s4-6))
)
)
(if (not (-> obj region-lock?))
(set! (-> obj region) #f)
(if (not (-> this region-lock?))
(set! (-> this region) #f)
)
)
((= arg0 (editable-command delete-region))
(when (-> obj region)
(when (-> this region)
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(when (!= (-> obj region) *editable-light-region*)
(editable-array-method-9 obj (editable-command select-current-region) arg1)
(editable-array-method-9 obj (editable-command delete) arg1)
(set! (-> obj region) #f)
(when (!= (-> this region) *editable-light-region*)
(editable-array-method-9 this (editable-command select-current-region) arg1)
(editable-array-method-9 this (editable-command delete) arg1)
(set! (-> this region) #f)
)
)
)
((= arg0 (editable-command snap-to-ground))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(let* ((s5-5 (new 'stack-no-clear 'vector))
(s4-9 (-> obj length))
(s4-9 (-> this length))
(s3-5 0)
(s2-1 (-> obj data s3-5))
(s2-1 (-> this data s3-5))
)
(while (< s3-5 s4-9)
(when (and s2-1 (logtest? (-> s2-1 flags) (editable-flag selected)))
@@ -1213,31 +1213,31 @@
)
)
(+! s3-5 1)
(set! s2-1 (-> obj data s3-5))
(set! s2-1 (-> this data s3-5))
)
)
)
((= arg0 (editable-command snap-y))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(cond
((-> obj target)
(let* ((s5-7 (edit-get-trans (-> obj target)))
(s4-11 (-> obj length))
((-> this target)
(let* ((s5-7 (edit-get-trans (-> this target)))
(s4-11 (-> this length))
(s3-6 0)
(a0-37 (-> obj data s3-6))
(a0-37 (-> this data s3-6))
)
(while (< s3-6 s4-11)
(if (and a0-37 (logtest? (-> a0-37 flags) (editable-flag selected)))
(edit-coord! a0-37 s5-7 (editable-flag y no-plane-snap))
)
(+! s3-6 1)
(set! a0-37 (-> obj data s3-6))
(set! a0-37 (-> this data s3-6))
)
)
)
(else
(editable-array-method-13
obj
this
(editable-command pick-target)
(editable-command snap-y)
"pick the editable to use the y from"
@@ -1248,24 +1248,24 @@
((= arg0 (editable-command snap-xz))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(cond
((-> obj target)
(let* ((s5-9 (edit-get-trans (-> obj target)))
(s4-13 (-> obj length))
((-> this target)
(let* ((s5-9 (edit-get-trans (-> this target)))
(s4-13 (-> this length))
(s3-7 0)
(a0-41 (-> obj data s3-7))
(a0-41 (-> this data s3-7))
)
(while (< s3-7 s4-13)
(if (and a0-41 (logtest? (-> a0-41 flags) (editable-flag selected)))
(edit-coord! a0-41 s5-9 (editable-flag x z no-plane-snap))
)
(+! s3-7 1)
(set! a0-41 (-> obj data s3-7))
(set! a0-41 (-> this data s3-7))
)
)
)
(else
(editable-array-method-13
obj
this
(editable-command pick-target)
(editable-command snap-xz)
"pick the editable to use the xz from"
@@ -1274,29 +1274,29 @@
)
)
((= arg0 (editable-command region-set))
(when (and (-> obj region) (not (-> obj region locked)))
(when (and (-> this region) (not (-> this region locked)))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(let* ((s5-11 (-> obj length))
(let* ((s5-11 (-> this length))
(s4-15 0)
(a0-44 (-> obj data s4-15))
(a0-44 (-> this data s4-15))
)
(while (< s4-15 s5-11)
(if (and a0-44 (logtest? (-> a0-44 flags) (editable-flag selected)))
(editable-method-21 a0-44 (-> obj region))
(editable-method-21 a0-44 (-> this region))
)
(+! s4-15 1)
(set! a0-44 (-> obj data s4-15))
(set! a0-44 (-> this data s4-15))
)
)
)
)
((= arg0 (editable-command region-add))
(when (and (-> obj region) (not (-> obj region locked)))
(when (and (-> this region) (not (-> this region locked)))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(if (-> obj target)
(editable-method-21 (-> obj target) (-> obj region))
(if (-> this target)
(editable-method-21 (-> this target) (-> this region))
(editable-array-method-13
obj
this
(editable-command pick-target)
(editable-command region-add)
"pick the editable to add to current region"
@@ -1306,88 +1306,88 @@
)
((= arg0 (editable-command region-new))
(let ((v1-175 (new 'debug 'editable-region)))
(if (and (-> obj region) (not (-> obj region locked)))
(set! (-> v1-175 tree) (-> obj region tree))
(if (and (-> this region) (not (-> this region locked)))
(set! (-> v1-175 tree) (-> this region tree))
)
(set! (-> obj region) v1-175)
(set! (-> this region) v1-175)
)
(editable-array-method-9 obj (editable-command region-set) arg1)
(editable-array-method-9 this (editable-command region-set) arg1)
)
((= arg0 (editable-command flip-side))
(sound-play-by-spec (static-sound-spec "beep" :fo-curve 1) (new-sound-id) (the-as vector #t))
(let* ((s5-14 (-> obj length))
(let* ((s5-14 (-> this length))
(s4-18 0)
(a0-58 (-> obj data s4-18))
(a0-58 (-> this data s4-18))
)
(while (< s4-18 s5-14)
(if (and a0-58 (logtest? (-> a0-58 flags) (editable-flag selected)))
(editable-method-24 a0-58)
)
(+! s4-18 1)
(set! a0-58 (-> obj data s4-18))
(set! a0-58 (-> this data s4-18))
)
)
)
((= arg0 (editable-command rotate-level))
(let* ((f0-1 (* 182.04445 (-> obj edit-param0)))
(let* ((f0-1 (* 182.04445 (-> this edit-param0)))
(s5-15 (matrix-rotate-y! (new 'stack-no-clear 'matrix) f0-1))
(s4-19 (-> obj length))
(s4-19 (-> this length))
(s3-8 0)
(a0-60 (-> obj data s3-8))
(a0-60 (-> this data s3-8))
)
(while (< s3-8 s4-19)
(if (and a0-60 region (= (-> a0-60 region level) (-> obj level)))
(editable-method-18 a0-60 (-> obj level-offset) s5-15)
(if (and a0-60 region (= (-> a0-60 region level) (-> this level)))
(editable-method-18 a0-60 (-> this level-offset) s5-15)
)
(+! s3-8 1)
(set! a0-60 (-> obj data s3-8))
(set! a0-60 (-> this data s3-8))
)
)
)
((= arg0 (editable-command translate-y-level))
(let ((s5-16 (new 'stack-no-clear 'vector)))
(set! (-> s5-16 x) 0.0)
(set! (-> s5-16 y) (* 4096.0 (-> obj edit-param0)))
(set! (-> s5-16 y) (* 4096.0 (-> this edit-param0)))
(set! (-> s5-16 z) 0.0)
(set! (-> s5-16 w) 1.0)
(let* ((s4-20 (-> obj length))
(let* ((s4-20 (-> this length))
(s3-9 0)
(a0-61 (-> obj data s3-9))
(a0-61 (-> this data s3-9))
)
(while (< s3-9 s4-20)
(if (and a0-61 region (= (-> a0-61 region level) (-> obj level)))
(if (and a0-61 region (= (-> a0-61 region level) (-> this level)))
(editable-method-15 a0-61 s5-16 56)
)
(+! s3-9 1)
(set! a0-61 (-> obj data s3-9))
(set! a0-61 (-> this data s3-9))
)
)
)
)
((= arg0 (editable-command save))
(let* ((s5-17 (-> obj length))
(let* ((s5-17 (-> this length))
(s4-21 0)
(v1-231 (-> obj data s4-21))
(v1-231 (-> this data s4-21))
)
(while (< s4-21 s5-17)
(if (and v1-231 (-> v1-231 region))
(editable-region-method-9 (-> v1-231 region) obj 0 0)
(editable-region-method-9 (-> v1-231 region) this 0 0)
)
(+! s4-21 1)
(set! v1-231 (-> obj data s4-21))
(set! v1-231 (-> this data s4-21))
)
)
(editable-region-method-9 *editable-sample-region* obj 0 0)
(editable-region-method-9 *editable-light-region* obj 0 0)
(editable-region-method-9 *editable-entity-region* obj 0 0)
(editable-region-method-9 *editable-sample-region* this 0 0)
(editable-region-method-9 *editable-light-region* this 0 0)
(editable-region-method-9 *editable-entity-region* this 0 0)
)
((= arg0 (editable-command load))
(editable-array-method-9 obj (editable-command select-none) arg1)
(dotimes (v1-248 (-> obj length))
(set! (-> obj data v1-248) #f)
(editable-array-method-9 this (editable-command select-none) arg1)
(dotimes (v1-248 (-> this length))
(set! (-> this data v1-248) #f)
)
(set! (-> obj length) 0)
(let* ((s5-18 obj)
(set! (-> this length) 0)
(let* ((s5-18 this)
(s4-22 (method-of-object s5-18 editable-array-method-12))
(v1-253 (level-get-target-inside *level*))
)
@@ -1398,20 +1398,20 @@
)
)
)
(editable-array-method-9 obj (editable-command update-game) (the-as mouse-info #f))
(editable-array-method-9 this (editable-command update-game) (the-as mouse-info #f))
)
((= arg0 (editable-command update-game))
(reset-light-hash *light-hash*)
(let* ((s5-19 (-> obj length))
(let* ((s5-19 (-> this length))
(s4-23 0)
(a0-76 (-> obj data s4-23))
(a0-76 (-> this data s4-23))
)
(while (< s4-23 s5-19)
(if a0-76
(editable-method-23 a0-76)
)
(+! s4-23 1)
(set! a0-76 (-> obj data s4-23))
(set! a0-76 (-> this data s4-23))
)
)
(update-light-hash *light-hash*)
@@ -1424,7 +1424,7 @@
)
;; definition for method 10 of type editable-player
(defmethod deactivate editable-player ((obj editable-player))
(defmethod deactivate editable-player ((this editable-player))
(dotimes (v1-0 (-> *level* length))
(let ((a1-3 (-> *level* level v1-0)))
(if (= (-> a1-3 status) 'active)
@@ -1433,43 +1433,43 @@
)
)
(set! *editable* (the-as (pointer editable-player) #f))
(set! *external-cam-mode* (-> obj external-cam-mode))
((method-of-type process-drawable deactivate) obj)
(set! *external-cam-mode* (-> this external-cam-mode))
((method-of-type process-drawable deactivate) this)
(none)
)
;; definition for method 7 of type editable-player
;; WARN: Return type mismatch process-drawable vs editable-player.
(defmethod relocate editable-player ((obj editable-player) (arg0 int))
(defmethod relocate editable-player ((this editable-player) (arg0 int))
(let ((v1-0 *kernel-context*))
(set! (-> v1-0 relocating-process) obj)
(set! (-> v1-0 relocating-min) (the-as int (&-> obj type)))
(set! (-> v1-0 relocating-process) this)
(set! (-> v1-0 relocating-min) (the-as int (&-> this type)))
(set! (-> v1-0 relocating-max)
(the-as int (+ (+ (-> obj allocated-length) -4 (-> process size)) (the-as int obj)))
(the-as int (+ (+ (-> this allocated-length) -4 (-> process size)) (the-as int this)))
)
(set! (-> v1-0 relocating-offset) arg0)
)
(let ((v1-2 (-> obj current)))
(let ((v1-2 (-> this current)))
(if (and (>= (the-as int v1-2) (-> *kernel-context* relocating-min))
(< (the-as int v1-2) (-> *kernel-context* relocating-max))
)
(&+! (-> obj current) arg0)
(&+! (-> this current) arg0)
)
)
(the-as editable-player ((method-of-type process-drawable relocate) obj arg0))
(the-as editable-player ((method-of-type process-drawable relocate) this arg0))
)
;; definition for method 21 of type editable-player
;; WARN: Return type mismatch int vs none.
(defmethod editable-player-method-21 editable-player ((obj editable-player))
(defmethod editable-player-method-21 editable-player ((this editable-player))
(set! *display-region-marks* #f)
(let* ((s5-0 (-> obj current length))
(let* ((s5-0 (-> this current length))
(s4-0 0)
(a0-2 (-> obj current data s4-0))
(a0-2 (-> this current data s4-0))
)
(while (< s4-0 s5-0)
(if (and a0-2 (or (and (logtest? (-> a0-2 region filter) (-> obj current filter 0))
(logtest? (-> a0-2 region filter) (-> obj current filter 1))
(if (and a0-2 (or (and (logtest? (-> a0-2 region filter) (-> this current filter 0))
(logtest? (-> a0-2 region filter) (-> this current filter 1))
)
(logtest? (-> a0-2 flags) (editable-flag selected))
)
@@ -1477,7 +1477,7 @@
(editable-method-10 a0-2)
)
(+! s4-0 1)
(set! a0-2 (-> obj current data s4-0))
(set! a0-2 (-> this current data s4-0))
)
)
(when #t
@@ -1487,27 +1487,27 @@
*stdcon*
"~16S~16S~16S~%"
(editable-command->string
(if (and (nonzero? (-> obj command 1)) (or (= (-> obj command 0) (editable-command none)) (mouse-hold? left)))
(-> obj command 1)
(-> obj command 0)
(if (and (nonzero? (-> this command 1)) (or (= (-> this command 0) (editable-command none)) (mouse-hold? left)))
(-> this command 1)
(-> this command 0)
)
)
(editable-command->string
(if (and (nonzero? (-> obj command 5)) (or (= (-> obj command 4) (editable-command none)) (mouse-hold? middle)))
(-> obj command 5)
(-> obj command 4)
(if (and (nonzero? (-> this command 5)) (or (= (-> this command 4) (editable-command none)) (mouse-hold? middle)))
(-> this command 5)
(-> this command 4)
)
)
(editable-command->string
(if (and (nonzero? (-> obj command 3)) (or (= (-> obj command 2) (editable-command none)) (mouse-hold? right)))
(-> obj command 3)
(-> obj command 2)
(if (and (nonzero? (-> this command 3)) (or (= (-> this command 2) (editable-command none)) (mouse-hold? right)))
(-> this command 3)
(-> this command 2)
)
)
)
(let* ((s5-2 (-> obj current length))
(let* ((s5-2 (-> this current length))
(s4-2 0)
(v1-35 (-> obj current data s4-2))
(v1-35 (-> this current data s4-2))
)
(while (< s4-2 s5-2)
(when (and v1-35 (logtest? (-> v1-35 flags) (editable-flag selected)))
@@ -1518,23 +1518,23 @@
)
)
(+! s4-2 1)
(set! v1-35 (-> obj current data s4-2))
(set! v1-35 (-> this current data s4-2))
)
)
(when (!= *master-mode* 'menu)
(let ((a2-5 (-> obj current target-message)))
(let ((a2-5 (-> this current target-message)))
(if a2-5
(format *stdcon* "~%~3L~S~0L~%" a2-5)
)
)
(when (cpad-hold? 1 triangle)
(let* ((s5-3 (-> obj current length))
(let* ((s5-3 (-> this current length))
(s4-3 0)
(a0-29 (-> obj current data s4-3))
(a0-29 (-> this current data s4-3))
)
(while (< s4-3 s5-3)
(when (and a0-29 (or (and (logtest? (-> a0-29 region filter) (-> obj current filter 0))
(logtest? (-> a0-29 region filter) (-> obj current filter 1))
(when (and a0-29 (or (and (logtest? (-> a0-29 region filter) (-> this current filter 0))
(logtest? (-> a0-29 region filter) (-> this current filter 1))
)
(logtest? (-> a0-29 flags) (editable-flag selected))
)
@@ -1548,13 +1548,13 @@
)
)
(+! s4-3 1)
(set! a0-29 (-> obj current data s4-3))
(set! a0-29 (-> this current data s4-3))
)
)
(format *stdcon* "~%")
(cond
((-> obj current region)
(let ((s5-4 (-> obj current region)))
((-> this current region)
(let ((s5-4 (-> this current region)))
(format
*stdcon*
"~%region: region-~D ~S ~S~S~%"
@@ -1575,22 +1575,22 @@
(format *stdcon* "no region~%")
)
)
(when (-> obj current edit-plane)
(let ((a2-13 (-> obj current edit-plane)))
(when (-> this current edit-plane)
(let ((a2-13 (-> this current edit-plane)))
(format *stdcon* "~%edit-plane: ~A~%" a2-13)
)
)
(format *stdcon* "~%selected:~%")
(let* ((s5-5 (-> obj current length))
(let* ((s5-5 (-> this current length))
(s4-4 0)
(a2-14 (-> obj current data s4-4))
(a2-14 (-> this current data s4-4))
)
(while (< s4-4 s5-5)
(if (and a2-14 (logtest? (-> a2-14 flags) (editable-flag selected)))
(format *stdcon* " ~A~%" a2-14)
)
(+! s4-4 1)
(set! a2-14 (-> obj current data s4-4))
(set! a2-14 (-> this current data s4-4))
)
)
)
test/decompiler/reference/jak2/engine/debug/editable_REF.gc
Generated Vendored
+507 -478
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/jak2/engine/debug/history_REF.gc
Generated Vendored
+62 -62
View File
@@ -68,27 +68,27 @@
)
;; definition for method 3 of type history-elt
(defmethod inspect history-elt ((obj history-elt))
(when (not obj)
(set! obj obj)
(defmethod inspect history-elt ((this history-elt))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'history-elt)
(format #t "~1Trecord-tag-bytes[4] @ #x~X~%" (-> obj record-tag-bytes))
(format #t "~1Trecord-tag: ~D~%" (-> obj record-tag))
(format #t "~1Trecord-id: ~D~%" (-> obj record-id))
(format #t "~1Towner: ~D~%" (-> obj owner))
(format #t "~1Tchannel: ~D~%" (-> obj channel))
(format #t "~1Ttimestamp: ~D~%" (-> obj timestamp))
(format #t "~1Torigin: #<vector @ #x~X>~%" (-> obj origin))
(format #t "~1Tbytes[16] @ #x~X~%" (-> obj vector))
(format #t "~1Tvector: #<vector @ #x~X>~%" (-> obj vector))
(format #t "~1Tfloat: ~f~%" (-> obj vector x))
(format #t "~1Tcollide-status: ~D~%" (-> obj collide-status))
(format #t "~1Tcollide-reaction-flag: ~D~%" (-> obj vector z))
(format #t "~1Tpat: ~D~%" (-> obj vector x))
(format #t "[~8x] ~A~%" this 'history-elt)
(format #t "~1Trecord-tag-bytes[4] @ #x~X~%" (-> this record-tag-bytes))
(format #t "~1Trecord-tag: ~D~%" (-> this record-tag))
(format #t "~1Trecord-id: ~D~%" (-> this record-id))
(format #t "~1Towner: ~D~%" (-> this owner))
(format #t "~1Tchannel: ~D~%" (-> this channel))
(format #t "~1Ttimestamp: ~D~%" (-> this timestamp))
(format #t "~1Torigin: #<vector @ #x~X>~%" (-> this origin))
(format #t "~1Tbytes[16] @ #x~X~%" (-> this vector))
(format #t "~1Tvector: #<vector @ #x~X>~%" (-> this vector))
(format #t "~1Tfloat: ~f~%" (-> this vector x))
(format #t "~1Tcollide-status: ~D~%" (-> this collide-status))
(format #t "~1Tcollide-reaction-flag: ~D~%" (-> this vector z))
(format #t "~1Tpat: ~D~%" (-> this vector x))
(label cfg-4)
obj
this
)
;; definition of type history-iterator
@@ -113,21 +113,21 @@
)
;; definition for method 3 of type history-iterator
(defmethod inspect history-iterator ((obj history-iterator))
(when (not obj)
(set! obj obj)
(defmethod inspect history-iterator ((this history-iterator))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tmax-age: ~D~%" (-> obj max-age))
(format #t "~1Towner: ~D~%" (-> obj owner))
(format #t "~1Tproc: ~A~%" (-> obj proc))
(format #t "~1Tout: ~A~%" (-> obj out))
(format #t "~1Tchannel-mask: ~D~%" (-> obj channel-mask))
(format #t "~1Tindex: ~D~%" (-> obj index))
(format #t "~1Tdone?: ~A~%" (-> obj done?))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tmax-age: ~D~%" (-> this max-age))
(format #t "~1Towner: ~D~%" (-> this owner))
(format #t "~1Tproc: ~A~%" (-> this proc))
(format #t "~1Tout: ~A~%" (-> this out))
(format #t "~1Tchannel-mask: ~D~%" (-> this channel-mask))
(format #t "~1Tindex: ~D~%" (-> this index))
(format #t "~1Tdone?: ~A~%" (-> this done?))
(label cfg-4)
obj
this
)
;; definition of type history
@@ -147,28 +147,28 @@
)
;; definition for method 3 of type history
(defmethod inspect history ((obj history))
(when (not obj)
(set! obj obj)
(defmethod inspect history ((this history))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Talloc-index: ~D~%" (-> obj alloc-index))
(format #t "~1Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~1Telts[0] @ #x~X~%" (-> obj elts))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Talloc-index: ~D~%" (-> this alloc-index))
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
(format #t "~1Telts[0] @ #x~X~%" (-> this elts))
(label cfg-4)
obj
this
)
;; definition for method 4 of type history
(defmethod length history ((obj history))
(-> obj allocated-length)
(defmethod length history ((this history))
(-> this allocated-length)
)
;; definition for method 5 of type history
;; WARN: Return type mismatch uint vs int.
(defmethod asize-of history ((obj history))
(the-as int (+ (-> obj type size) (* 48 (-> obj allocated-length))))
(defmethod asize-of history ((this history))
(the-as int (+ (-> this type size) (* 48 (-> this allocated-length))))
)
;; definition for method 0 of type history
@@ -181,14 +181,14 @@
;; definition for method 10 of type history
;; WARN: Return type mismatch int vs none.
(defmethod clear-history-entries! history ((obj history))
(defmethod clear-history-entries! history ((this history))
"Iterates through each [[history-elt]] in the `elt` dynamic array
For each entry:
- clear `timestamp`
- clear `record-tag`"
(set! (-> obj alloc-index) 0)
(countdown (v1-0 (-> obj allocated-length))
(let ((a1-3 (-> obj elts v1-0)))
(set! (-> this alloc-index) 0)
(countdown (v1-0 (-> this allocated-length))
(let ((a1-3 (-> this elts v1-0)))
(set! (-> a1-3 record-tag) (the-as uint 0))
(set! (-> a1-3 timestamp) 0)
)
@@ -206,14 +206,14 @@ For each entry:
;; definition for method 9 of type history
;; WARN: new jak 2 until loop case, check carefully
(defmethod clear-record-tags! history ((obj history) (arg0 history-channel) (arg1 uint) (arg2 uint))
(defmethod clear-record-tags! history ((this history) (arg0 history-channel) (arg1 uint) (arg2 uint))
"First grab the latest [[history-elt]] at `alloc-index`
1. update it's `channel`, `record-id` and `owner` from the provided args
2. - if it's `record-tag` is zero -- return it
- otherwise, iterate through all `elts` until one is found that does not match it's `timestamp`
- if not `0` out the `record-tag` for that elt and continue iteration"
(let* ((t1-0 (-> obj alloc-index))
(v1-0 (-> obj elts))
(let* ((t1-0 (-> this alloc-index))
(v1-0 (-> this elts))
(v0-0 (-> v1-0 t1-0))
)
(let ((t2-0 (-> v0-0 record-tag))
@@ -223,10 +223,10 @@ For each entry:
(set! (-> v0-0 record-id) arg1)
(set! (-> v0-0 owner) arg2)
(set! (-> v0-0 timestamp) (-> *display* base-clock frame-counter))
(let* ((a1-4 (-> obj allocated-length))
(let* ((a1-4 (-> this allocated-length))
(a2-2 (mod (+ t1-0 1) a1-4))
)
(set! (-> obj alloc-index) a2-2)
(set! (-> this alloc-index) a2-2)
(when (nonzero? t2-0)
(until #f
(let ((a0-4 (-> v1-0 a2-2)))
@@ -260,7 +260,7 @@ For each entry:
)
;; definition for method 10 of type history-iterator
(defmethod update-entries! history-iterator ((obj history-iterator))
(defmethod update-entries! history-iterator ((this history-iterator))
"Iterate through each [[history-elt]] in [[*history*]]
- If we hit the end set `done?` to true
- If the `timestamp` on the elt, minus the current framecounter exceeds `max-age`, we are also done, return #f
@@ -268,22 +268,22 @@ For each entry:
(let ((v1-0 *history*)
(a1-2 (-> *display* base-clock frame-counter))
)
(while (not (-> obj done?))
(let ((a2-1 (+ (-> obj index) -1)))
(while (not (-> this done?))
(let ((a2-1 (+ (-> this index) -1)))
(if (< a2-1 0)
(set! a2-1 (+ (-> v1-0 allocated-length) -1))
)
(set! (-> obj index) a2-1)
(set! (-> this index) a2-1)
(if (= a2-1 (-> v1-0 alloc-index))
(set! (-> obj done?) #t)
(set! (-> this done?) #t)
)
(let ((a2-5 (-> v1-0 elts a2-1)))
(when (nonzero? (-> a2-5 record-tag))
(when (< (the-as time-frame (-> obj max-age)) (- a1-2 (-> a2-5 timestamp)))
(set! (-> obj done?) #t)
(when (< (the-as time-frame (-> this max-age)) (- a1-2 (-> a2-5 timestamp)))
(set! (-> this done?) #t)
(return (the-as history-elt #f))
)
(if (= (-> a2-5 owner) (-> obj owner))
(if (= (-> a2-5 owner) (-> this owner))
(return a2-5)
)
)
@@ -295,17 +295,17 @@ For each entry:
)
;; definition for method 11 of type history-iterator
(defmethod get-age history-iterator ((obj history-iterator) (arg0 history-elt))
(defmethod get-age history-iterator ((this history-iterator) (arg0 history-elt))
"Get the age of a history element"
(- 1.0 (fmin 1.0 (/ (the float (+ (- 1 (-> arg0 timestamp)) (-> *display* base-clock frame-counter)))
(the float (+ (-> obj max-age) 1))
(the float (+ (-> this max-age) 1))
)
)
)
)
;; definition for method 9 of type history-iterator
(defmethod frame-counter-delta history-iterator ((obj history-iterator) (arg0 history-elt))
(defmethod frame-counter-delta history-iterator ((this history-iterator) (arg0 history-elt))
"Returns the difference between [[*display*]]'s `base-clock.frame-counter` and the elt's `timestamp`"
(- (-> *display* base-clock frame-counter) (-> arg0 timestamp))
)
test/decompiler/reference/jak2/engine/debug/memory-usage-h_REF.gc
Generated Vendored
+17 -18
View File
@@ -17,18 +17,18 @@
)
;; definition for method 3 of type memory-usage-info
(defmethod inspect memory-usage-info ((obj memory-usage-info))
(when (not obj)
(set! obj obj)
(defmethod inspect memory-usage-info ((this memory-usage-info))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'memory-usage-info)
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tcount: ~D~%" (-> obj count))
(format #t "~1Tused: ~D~%" (-> obj used))
(format #t "~1Ttotal: ~D~%" (-> obj total))
(format #t "[~8x] ~A~%" this 'memory-usage-info)
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tcount: ~D~%" (-> this count))
(format #t "~1Tused: ~D~%" (-> this used))
(format #t "~1Ttotal: ~D~%" (-> this total))
(label cfg-4)
obj
this
)
;; definition of type memory-usage-block
@@ -48,18 +48,17 @@
)
;; definition for method 3 of type memory-usage-block
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect memory-usage-block ((obj memory-usage-block))
(when (not obj)
(set! obj obj)
(defmethod inspect memory-usage-block ((this memory-usage-block))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Twork-bsp: ~A~%" (-> obj work-bsp))
(format #t "~1Tlength: ~D~%" (-> obj length))
(format #t "~1Tdata[112] @ #x~X~%" (-> obj data))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Twork-bsp: ~A~%" (-> this work-bsp))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tdata[112] @ #x~X~%" (-> this data))
(label cfg-4)
obj
this
)
;; definition for symbol *mem-usage*, type memory-usage-block
test/decompiler/reference/jak2/engine/debug/memory-usage_REF.gc
Generated Vendored
+104 -105
View File
@@ -5,16 +5,15 @@
(declare-file (debug))
;; definition for method 3 of type memory-usage-block
;; INFO: this function exists in multiple non-identical object files
(defmethod inspect memory-usage-block ((obj memory-usage-block))
(defmethod inspect memory-usage-block ((this memory-usage-block))
(format #t "-------------------------------------------------------------~%")
(format #t " # name count bytes used aligned bytes~%")
(format #t "-------------------------------------------------------------~%")
(let ((s5-0 0)
(s4-0 0)
)
(dotimes (s3-0 (-> obj length))
(let ((v1-2 (-> obj data s3-0)))
(dotimes (s3-0 (-> this length))
(let ((v1-2 (-> this data s3-0)))
(+! s5-0 (-> v1-2 used))
(+! s4-0 (-> v1-2 total))
(format
@@ -31,35 +30,35 @@
(format #t "total: ~8D ~8D~%" s5-0 s4-0)
)
(format #t "-------------------------------------------------------------~%")
obj
this
)
;; definition for method 8 of type object
(defmethod mem-usage object ((obj object) (arg0 memory-usage-block) (arg1 int))
obj
(defmethod mem-usage object ((this object) (arg0 memory-usage-block) (arg1 int))
this
)
;; definition for method 10 of type memory-usage-block
(defmethod calculate-total memory-usage-block ((obj memory-usage-block))
(defmethod calculate-total memory-usage-block ((this memory-usage-block))
"@returns The total sum of all [[memory-usage-info]] `total`s"
(let ((sum 0))
(dotimes (idx (-> obj length))
(+! sum (-> obj data idx total))
(dotimes (idx (-> this length))
(+! sum (-> this data idx total))
)
sum
)
)
;; definition for method 9 of type memory-usage-block
(defmethod reset! memory-usage-block ((obj memory-usage-block))
(defmethod reset! memory-usage-block ((this memory-usage-block))
"Sets `length` to 0 as well as resets all fields except `name` in the associated [[memory-usage-info]]"
(set! (-> obj length) 0)
(set! (-> this length) 0)
(dotimes (idx 112)
(set! (-> obj data idx used) 0)
(set! (-> obj data idx total) 0)
(set! (-> obj data idx count) 0)
(set! (-> this data idx used) 0)
(set! (-> this data idx total) 0)
(set! (-> this data idx count) 0)
)
obj
this
)
;; definition for function mem-size
@@ -78,27 +77,27 @@
)
;; definition for method 14 of type level
(defmethod compute-memory-usage! level ((obj level) (force? symbol))
(defmethod compute-memory-usage! level ((this level) (force? symbol))
"Calculates the memory usage of the level, returns and stores the [[memory-usage-block]]
in `mem-usage-block` as well as the total size in `mem-usage`
@param force? - Will re-compute the usage if set to [[#t]], even if `mem-usage` has been set to a non-zero value
@returns The [[memory-usage-block]] representing the footprint of the level
@see [[memory-usage-block::10]]"
(if (zero? (-> obj mem-usage-block))
(set! (-> obj mem-usage-block) (new 'debug 'memory-usage-block))
(if (zero? (-> this mem-usage-block))
(set! (-> this mem-usage-block) (new 'debug 'memory-usage-block))
)
(set! force? (or (zero? (-> obj mem-usage-block length)) force?))
(set! force? (or (zero? (-> this mem-usage-block length)) force?))
(when force?
(mem-usage obj (reset! (-> obj mem-usage-block)) 0)
(set! (-> obj mem-usage) (calculate-total (-> obj mem-usage-block)))
(mem-usage this (reset! (-> this mem-usage-block)) 0)
(set! (-> this mem-usage) (calculate-total (-> this mem-usage-block)))
0
)
(-> obj mem-usage-block)
(-> this mem-usage-block)
)
;; definition for method 8 of type process-tree
(defmethod mem-usage process-tree ((obj process-tree) (arg0 memory-usage-block) (arg1 int))
(defmethod mem-usage process-tree ((this process-tree) (arg0 memory-usage-block) (arg1 int))
(let ((v1-0 90))
(let* ((a0-1 *dead-pool-list*)
(a3-0 (car a0-1))
@@ -143,7 +142,7 @@ in `mem-usage-block` as well as the total size in `mem-usage`
)
)
(iterate-process-tree
obj
this
(lambda ((arg0 process-drawable))
(let ((gp-0 *temp-mem-usage*))
(let ((s4-0 (cond
@@ -306,7 +305,7 @@ in `mem-usage-block` as well as the total size in `mem-usage`
)
*null-kernel-context*
)
obj
this
)
;; definition for symbol *max-dma*, type int
@@ -314,10 +313,10 @@ in `mem-usage-block` as well as the total size in `mem-usage`
;; definition for method 11 of type memory-usage-block
;; INFO: Used lq/sq
(defmethod print-mem-usage memory-usage-block ((obj memory-usage-block) (level level) (fmt-dest object))
(defmethod print-mem-usage memory-usage-block ((this memory-usage-block) (level level) (fmt-dest object))
(local-vars (sv-16 object) (sv-32 string) (sv-48 int))
(let ((s3-0 (&- (-> level heap current) (the-as uint (-> level heap base)))))
(let ((v1-2 (+ (-> obj data 61 total) (-> obj data 62 total))))
(let ((v1-2 (+ (-> this data 61 total) (-> this data 62 total))))
(< #x10000 v1-2)
)
(let* ((v1-5
@@ -395,30 +394,30 @@ in `mem-usage-block` as well as the total size in `mem-usage`
(let ((t9-11 format)
(a0-31 fmt-dest)
(a1-11 " bsp ~192H~5DK ~280Hdebug~456H~5DK~%")
(a2-6 (sar (+ (-> obj data 58 total) (-> obj data 59 total) (-> obj data 60 total)) 10))
(a2-6 (sar (+ (-> this data 58 total) (-> this data 59 total) (-> this data 60 total)) 10))
(a3-3 (sar (-> *dma-mem-usage* data 87 total) 10))
)
(t9-11 a0-31 a1-11 a2-6 a3-3 (the-as none t0-0) (the-as none t1-0) (the-as none t2-0))
(format
fmt-dest
" bsp-leaf-vis ~192H~5DK~%"
(sar (+ (-> obj data 61 total) (-> obj data 62 total)) 10)
(sar (+ (-> this data 61 total) (-> this data 62 total)) 10)
(the-as none a3-3)
)
(format fmt-dest " level-code ~192H~5DK~%" (sar (-> obj data 65 total) 10) (the-as none a3-3))
(format fmt-dest " level-code ~192H~5DK~%" (sar (-> this data 65 total) 10) (the-as none a3-3))
)
(format
fmt-dest
" tfrag ~192H~5DK ~280Htfragment~456H~5DK~%"
(sar
(+ (-> obj data 1 total)
(-> obj data 2 total)
(-> obj data 3 total)
(-> obj data 4 total)
(-> obj data 5 total)
(-> obj data 6 total)
(-> obj data 7 total)
(-> obj data 8 total)
(+ (-> this data 1 total)
(-> this data 2 total)
(-> this data 3 total)
(-> this data 4 total)
(-> this data 5 total)
(-> this data 6 total)
(-> this data 7 total)
(-> this data 8 total)
)
10
)
@@ -428,14 +427,14 @@ in `mem-usage-block` as well as the total size in `mem-usage`
fmt-dest
" tie-proto ~192H~5DK ~280Hsky~456H~5DK~%"
(sar
(+ (-> obj data 9 total)
(-> obj data 10 total)
(-> obj data 11 total)
(-> obj data 12 total)
(-> obj data 13 total)
(-> obj data 14 total)
(-> obj data 16 total)
(-> obj data 17 total)
(+ (-> this data 9 total)
(-> this data 10 total)
(-> this data 11 total)
(-> this data 12 total)
(-> this data 13 total)
(-> this data 14 total)
(-> this data 16 total)
(-> this data 17 total)
)
10
)
@@ -444,22 +443,22 @@ in `mem-usage-block` as well as the total size in `mem-usage`
(format
fmt-dest
" tie-instance ~192H~5DK ~280Htie-fragment~456H~5DK~%"
(sar (+ (-> obj data 18 total) (-> obj data 20 total) (-> obj data 21 total) (-> obj data 22 total)) 10)
(sar (+ (-> this data 18 total) (-> this data 20 total) (-> this data 21 total) (-> this data 22 total)) 10)
(sar (-> *dma-mem-usage* data 9 total) 10)
)
(format
fmt-dest
" shrub-proto ~192H~5DK ~280Htie-scissor~456H~5DK~%"
(sar
(+ (-> obj data 25 total)
(-> obj data 26 total)
(-> obj data 27 total)
(-> obj data 28 total)
(-> obj data 29 total)
(-> obj data 30 total)
(-> obj data 31 total)
(-> obj data 32 total)
(-> obj data 33 total)
(+ (-> this data 25 total)
(-> this data 26 total)
(-> this data 27 total)
(-> this data 28 total)
(-> this data 29 total)
(-> this data 30 total)
(-> this data 31 total)
(-> this data 32 total)
(-> this data 33 total)
)
10
)
@@ -468,21 +467,21 @@ in `mem-usage-block` as well as the total size in `mem-usage`
(format
fmt-dest
" shrub-instance ~192H~5DK ~280Hshrubbery~456H~5DK~%"
(sar (-> obj data 34 total) 10)
(sar (-> this data 34 total) 10)
(sar (-> *dma-mem-usage* data 27 total) 10)
)
(format
fmt-dest
" collision ~192H~5DK ~280Htie-generic~456H~5DK~%"
(sar
(+ (-> obj data 50 total)
(-> obj data 51 total)
(-> obj data 52 total)
(-> obj data 53 total)
(-> obj data 54 total)
(-> obj data 55 total)
(-> obj data 56 total)
(-> obj data 57 total)
(+ (-> this data 50 total)
(-> this data 51 total)
(-> this data 52 total)
(-> this data 53 total)
(-> this data 54 total)
(-> this data 55 total)
(-> this data 56 total)
(-> this data 57 total)
)
10
)
@@ -492,22 +491,22 @@ in `mem-usage-block` as well as the total size in `mem-usage`
fmt-dest
" pris-geo ~192H~5DK ~280Hpris-fragment~456H~5DK~%"
(sar
(+ (-> obj data 35 total)
(-> obj data 36 total)
(-> obj data 37 total)
(-> obj data 38 total)
(-> obj data 39 total)
(-> obj data 40 total)
(-> obj data 41 total)
(-> obj data 42 total)
(-> obj data 73 total)
(-> obj data 74 total)
(-> obj data 75 total)
(-> obj data 76 total)
(-> obj data 78 total)
(-> obj data 81 total)
(-> obj data 80 total)
(-> obj data 111 total)
(+ (-> this data 35 total)
(-> this data 36 total)
(-> this data 37 total)
(-> this data 38 total)
(-> this data 39 total)
(-> this data 40 total)
(-> this data 41 total)
(-> this data 42 total)
(-> this data 73 total)
(-> this data 74 total)
(-> this data 75 total)
(-> this data 76 total)
(-> this data 78 total)
(-> this data 81 total)
(-> this data 80 total)
(-> this data 111 total)
)
10
)
@@ -517,14 +516,14 @@ in `mem-usage-block` as well as the total size in `mem-usage`
fmt-dest
" pris-anim ~192H~5DK ~280Hpris-generic~456H~5DK~%"
(sar
(+ (-> obj data 67 total)
(-> obj data 68 total)
(-> obj data 69 total)
(-> obj data 70 total)
(-> obj data 71 total)
(-> obj data 77 total)
(-> obj data 79 total)
(-> obj data 72 total)
(+ (-> this data 67 total)
(-> this data 68 total)
(-> this data 69 total)
(-> this data 70 total)
(-> this data 71 total)
(-> this data 77 total)
(-> this data 79 total)
(-> this data 72 total)
)
10
)
@@ -533,18 +532,18 @@ in `mem-usage-block` as well as the total size in `mem-usage`
(format
fmt-dest
" textures ~192H~5DK ~280Htextures~456H~5DK~%"
(sar (-> obj data 82 total) 10)
(sar (-> this data 82 total) 10)
(sar (-> *dma-mem-usage* data 82 total) 10)
)
(format fmt-dest " entity ~192H~5DK~%" (sar
(+ (-> obj data 66 total)
(-> obj data 43 total)
(-> obj data 44 total)
(-> obj data 45 total)
(-> obj data 49 total)
(-> obj data 48 total)
(-> obj data 46 total)
(-> obj data 47 total)
(+ (-> this data 66 total)
(-> this data 43 total)
(-> this data 44 total)
(-> this data 45 total)
(-> this data 49 total)
(-> this data 48 total)
(-> this data 46 total)
(-> this data 47 total)
)
10
)
@@ -553,11 +552,11 @@ in `mem-usage-block` as well as the total size in `mem-usage`
fmt-dest
" misc ~192H~5DK ~280Hsprite~456H~5DK~%"
(sar
(+ (-> obj data 0 total)
(-> obj data 63 total)
(-> obj data 64 total)
(-> obj data 83 total)
(-> obj data 84 total)
(+ (-> this data 0 total)
(-> this data 63 total)
(-> this data 64 total)
(-> this data 83 total)
(-> this data 84 total)
)
10
)
@@ -570,7 +569,7 @@ in `mem-usage-block` as well as the total size in `mem-usage`
)
)
(format fmt-dest "~1K~0L")
obj
this
)
;; failed to figure out what this is:
test/decompiler/reference/jak2/engine/debug/menu_REF.gc
Generated Vendored
+121 -121
View File
@@ -25,23 +25,23 @@
)
;; definition for method 3 of type debug-menu-context
(defmethod inspect debug-menu-context ((obj debug-menu-context))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu-context ((this debug-menu-context))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tis-active: ~A~%" (-> obj is-active))
(format #t "~1Tsel-length: ~D~%" (-> obj sel-length))
(format #t "~1Tsel-menu[8] @ #x~X~%" (-> obj sel-menu))
(format #t "~1Troot-menu: ~A~%" (-> obj root-menu))
(format #t "~1Tjoypad-func: ~A~%" (-> obj joypad-func))
(format #t "~1Tjoypad-item: ~A~%" (-> obj joypad-item))
(format #t "~1Tfont: ~A~%" (-> obj font))
(format #t "~1Tis-hidden: ~A~%" (-> obj is-hidden))
(format #t "~1Tjoypad-number: ~D~%" (-> obj joypad-number))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tis-active: ~A~%" (-> this is-active))
(format #t "~1Tsel-length: ~D~%" (-> this sel-length))
(format #t "~1Tsel-menu[8] @ #x~X~%" (-> this sel-menu))
(format #t "~1Troot-menu: ~A~%" (-> this root-menu))
(format #t "~1Tjoypad-func: ~A~%" (-> this joypad-func))
(format #t "~1Tjoypad-item: ~A~%" (-> this joypad-item))
(format #t "~1Tfont: ~A~%" (-> this font))
(format #t "~1Tis-hidden: ~A~%" (-> this is-hidden))
(format #t "~1Tjoypad-number: ~D~%" (-> this joypad-number))
(label cfg-4)
obj
this
)
;; definition for method 0 of type debug-menu-context
@@ -74,24 +74,24 @@
)
;; definition for method 3 of type debug-menu-node
(defmethod inspect debug-menu-node ((obj debug-menu-node))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu-node ((this debug-menu-node))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tparent: ~A~%" (-> obj parent))
(format #t "~1Trefresh-delay: ~D~%" (-> obj refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> obj refresh-ctr))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tparent: ~A~%" (-> this parent))
(format #t "~1Trefresh-delay: ~D~%" (-> this refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> this refresh-ctr))
(label cfg-4)
obj
this
)
;; definition for method 2 of type debug-menu-node
(defmethod print debug-menu-node ((obj debug-menu-node))
(format #t "#<~A ~A @ #x~X>" (-> obj type) (-> obj name) obj)
obj
(defmethod print debug-menu-node ((this debug-menu-node))
(format #t "#<~A ~A @ #x~X>" (-> this type) (-> this name) this)
this
)
;; definition of type debug-menu
@@ -111,23 +111,23 @@
)
;; definition for method 3 of type debug-menu
(defmethod inspect debug-menu ((obj debug-menu))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu ((this debug-menu))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tparent: ~A~%" (-> obj parent))
(format #t "~1Trefresh-delay: ~D~%" (-> obj refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> obj refresh-ctr))
(format #t "~1Tcontext: ~A~%" (-> obj context))
(format #t "~1Tselected-item: ~A~%" (-> obj selected-item))
(format #t "~1Tpix-width: ~D~%" (-> obj pix-width))
(format #t "~1Tpix-height: ~D~%" (-> obj pix-height))
(format #t "~1Titems: ~A~%" (-> obj items))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tparent: ~A~%" (-> this parent))
(format #t "~1Trefresh-delay: ~D~%" (-> this refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> this refresh-ctr))
(format #t "~1Tcontext: ~A~%" (-> this context))
(format #t "~1Tselected-item: ~A~%" (-> this selected-item))
(format #t "~1Tpix-width: ~D~%" (-> this pix-width))
(format #t "~1Tpix-height: ~D~%" (-> this pix-height))
(format #t "~1Titems: ~A~%" (-> this items))
(label cfg-4)
obj
this
)
;; definition for method 0 of type debug-menu
@@ -152,19 +152,19 @@
)
;; definition for method 3 of type debug-menu-item
(defmethod inspect debug-menu-item ((obj debug-menu-item))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu-item ((this debug-menu-item))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tparent: ~A~%" (-> obj parent))
(format #t "~1Trefresh-delay: ~D~%" (-> obj refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> obj refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> obj id))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tparent: ~A~%" (-> this parent))
(format #t "~1Trefresh-delay: ~D~%" (-> this refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> this refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> this id))
(label cfg-4)
obj
this
)
;; definition of type debug-menu-item-submenu
@@ -180,20 +180,20 @@
)
;; definition for method 3 of type debug-menu-item-submenu
(defmethod inspect debug-menu-item-submenu ((obj debug-menu-item-submenu))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu-item-submenu ((this debug-menu-item-submenu))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tparent: ~A~%" (-> obj parent))
(format #t "~1Trefresh-delay: ~D~%" (-> obj refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> obj refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> obj id))
(format #t "~1Tsubmenu: ~A~%" (-> obj submenu))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tparent: ~A~%" (-> this parent))
(format #t "~1Trefresh-delay: ~D~%" (-> this refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> this refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> this id))
(format #t "~1Tsubmenu: ~A~%" (-> this submenu))
(label cfg-4)
obj
this
)
;; definition for method 0 of type debug-menu-item-submenu
@@ -223,21 +223,21 @@
)
;; definition for method 3 of type debug-menu-item-function
(defmethod inspect debug-menu-item-function ((obj debug-menu-item-function))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu-item-function ((this debug-menu-item-function))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tparent: ~A~%" (-> obj parent))
(format #t "~1Trefresh-delay: ~D~%" (-> obj refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> obj refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> obj id))
(format #t "~1Tactivate-func: ~A~%" (-> obj activate-func))
(format #t "~1Thilite-timer: ~D~%" (-> obj hilite-timer))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tparent: ~A~%" (-> this parent))
(format #t "~1Trefresh-delay: ~D~%" (-> this refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> this refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> this id))
(format #t "~1Tactivate-func: ~A~%" (-> this activate-func))
(format #t "~1Thilite-timer: ~D~%" (-> this hilite-timer))
(label cfg-4)
obj
this
)
;; definition for method 0 of type debug-menu-item-function
@@ -268,21 +268,21 @@
)
;; definition for method 3 of type debug-menu-item-flag
(defmethod inspect debug-menu-item-flag ((obj debug-menu-item-flag))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu-item-flag ((this debug-menu-item-flag))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tparent: ~A~%" (-> obj parent))
(format #t "~1Trefresh-delay: ~D~%" (-> obj refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> obj refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> obj id))
(format #t "~1Tactivate-func: ~A~%" (-> obj activate-func))
(format #t "~1Tis-on: ~A~%" (-> obj is-on))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tparent: ~A~%" (-> this parent))
(format #t "~1Trefresh-delay: ~D~%" (-> this refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> this refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> this id))
(format #t "~1Tactivate-func: ~A~%" (-> this activate-func))
(format #t "~1Tis-on: ~A~%" (-> this is-on))
(label cfg-4)
obj
this
)
;; definition for method 0 of type debug-menu-item-flag
@@ -342,45 +342,45 @@
)
;; definition for method 3 of type debug-menu-item-var
(defmethod inspect debug-menu-item-var ((obj debug-menu-item-var))
(when (not obj)
(set! obj obj)
(defmethod inspect debug-menu-item-var ((this debug-menu-item-var))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~1Tname: ~A~%" (-> obj name))
(format #t "~1Tparent: ~A~%" (-> obj parent))
(format #t "~1Trefresh-delay: ~D~%" (-> obj refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> obj refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> obj id))
(format #t "~1Tdisplay-str: ~A~%" (-> obj display-str))
(format #t "~1Tgrabbed-joypad-p: ~A~%" (-> obj grabbed-joypad-p))
(format #t "~1Tfloat-p: ~A~%" (-> obj float-p))
(format #t "~1Trange-p: ~A~%" (-> obj range-p))
(format #t "~1Tshow-len: ~D~%" (-> obj show-len))
(format #t "~1Tinc-delay: ~D~%" (-> obj inc-delay))
(format #t "~1Tinc-delay-ctr: ~D~%" (-> obj inc-delay-ctr))
(format #t "~1Tstep-delay-ctr: ~D~%" (-> obj step-delay-ctr))
(format #t "~1Tinc-dir: ~D~%" (-> obj inc-dir))
(format #t "~1Tfval: ~f~%" (-> obj fval))
(format #t "~1Tfundo-val: ~f~%" (-> obj fundo-val))
(format #t "~1Tfrange-min: ~f~%" (-> obj frange-min))
(format #t "~1Tfrange-max: ~f~%" (-> obj frange-max))
(format #t "~1Tfstart-inc: ~f~%" (-> obj fstart-inc))
(format #t "~1Tfstep: ~f~%" (-> obj fstep))
(format #t "~1Tfprecision: ~D~%" (-> obj fprecision))
(format #t "~1Tfactivate-func: ~A~%" (-> obj factivate-func))
(format #t "~1Tival: ~D~%" (-> obj fval))
(format #t "~1Tiundo-val: ~D~%" (-> obj fundo-val))
(format #t "~1Tirange-min: ~D~%" (-> obj frange-min))
(format #t "~1Tirange-max: ~D~%" (-> obj frange-max))
(format #t "~1Tistart-inc: ~D~%" (-> obj fstart-inc))
(format #t "~1Tistep: ~D~%" (-> obj fstep))
(format #t "~1Tihex-p: ~A~%" (-> obj ihex-p))
(format #t "~1Tiactivate-func: ~A~%" (-> obj factivate-func))
(format #t "~1Tifloat-p: ~A~%" (-> obj ifloat-p))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tname: ~A~%" (-> this name))
(format #t "~1Tparent: ~A~%" (-> this parent))
(format #t "~1Trefresh-delay: ~D~%" (-> this refresh-delay))
(format #t "~1Trefresh-ctr: ~D~%" (-> this refresh-ctr))
(format #t "~1Tid: #x~X~%" (-> this id))
(format #t "~1Tdisplay-str: ~A~%" (-> this display-str))
(format #t "~1Tgrabbed-joypad-p: ~A~%" (-> this grabbed-joypad-p))
(format #t "~1Tfloat-p: ~A~%" (-> this float-p))
(format #t "~1Trange-p: ~A~%" (-> this range-p))
(format #t "~1Tshow-len: ~D~%" (-> this show-len))
(format #t "~1Tinc-delay: ~D~%" (-> this inc-delay))
(format #t "~1Tinc-delay-ctr: ~D~%" (-> this inc-delay-ctr))
(format #t "~1Tstep-delay-ctr: ~D~%" (-> this step-delay-ctr))
(format #t "~1Tinc-dir: ~D~%" (-> this inc-dir))
(format #t "~1Tfval: ~f~%" (-> this fval))
(format #t "~1Tfundo-val: ~f~%" (-> this fundo-val))
(format #t "~1Tfrange-min: ~f~%" (-> this frange-min))
(format #t "~1Tfrange-max: ~f~%" (-> this frange-max))
(format #t "~1Tfstart-inc: ~f~%" (-> this fstart-inc))
(format #t "~1Tfstep: ~f~%" (-> this fstep))
(format #t "~1Tfprecision: ~D~%" (-> this fprecision))
(format #t "~1Tfactivate-func: ~A~%" (-> this factivate-func))
(format #t "~1Tival: ~D~%" (-> this fval))
(format #t "~1Tiundo-val: ~D~%" (-> this fundo-val))
(format #t "~1Tirange-min: ~D~%" (-> this frange-min))
(format #t "~1Tirange-max: ~D~%" (-> this frange-max))
(format #t "~1Tistart-inc: ~D~%" (-> this fstart-inc))
(format #t "~1Tistep: ~D~%" (-> this fstep))
(format #t "~1Tihex-p: ~A~%" (-> this ihex-p))
(format #t "~1Tiactivate-func: ~A~%" (-> this factivate-func))
(format #t "~1Tifloat-p: ~A~%" (-> this ifloat-p))
(label cfg-4)
obj
this
)
;; definition for function debug-menu-item-var-update-display-str
test/decompiler/reference/jak2/engine/debug/nav/mysql-nav-graph_REF.gc
Generated Vendored
+291 -291
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/jak2/engine/debug/nav/nav-graph-editor_REF.gc
Generated Vendored
+338 -331
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/jak2/engine/debug/part-tester_REF.gc
Generated Vendored
+12 -12
View File
@@ -29,30 +29,30 @@
)
;; definition for method 3 of type part-tester
(defmethod inspect part-tester ((obj part-tester))
(when (not obj)
(set! obj obj)
(defmethod inspect part-tester ((this part-tester))
(when (not this)
(set! this this)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process inspect)))
(t9-0 obj)
(t9-0 this)
)
(format #t "~2Troot: ~A~%" (-> obj root))
(format #t "~2Tpart: ~A~%" (-> obj part))
(format #t "~2Told-group: ~A~%" (-> obj old-group))
(format #t "~2Troot: ~A~%" (-> this root))
(format #t "~2Tpart: ~A~%" (-> this part))
(format #t "~2Told-group: ~A~%" (-> this old-group))
(label cfg-4)
obj
this
)
;; definition for symbol *part-tester-name*, type string
(define *part-tester-name* (the-as string #f))
;; definition for method 10 of type part-tester
(defmethod deactivate part-tester ((obj part-tester))
(if (nonzero? (-> obj part))
(kill-and-free-particles (-> obj part))
(defmethod deactivate part-tester ((this part-tester))
(if (nonzero? (-> this part))
(kill-and-free-particles (-> this part))
)
((method-of-type process deactivate) obj)
((method-of-type process deactivate) this)
(none)
)
test/decompiler/reference/jak2/engine/debug/stats-h_REF.gc
Generated Vendored
+75 -57
View File
@@ -1,5 +1,7 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type tr-stat
(deftype tr-stat (structure)
((groups uint16 :offset-assert 0)
(fragments uint16 :offset-assert 2)
@@ -13,22 +15,24 @@
:flag-assert #x900000010
)
(defmethod inspect tr-stat ((obj tr-stat))
(when (not obj)
(set! obj obj)
;; definition for method 3 of type tr-stat
(defmethod inspect tr-stat ((this tr-stat))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'tr-stat)
(format #t "~1Tgroups: ~D~%" (-> obj groups))
(format #t "~1Tfragments: ~D~%" (-> obj fragments))
(format #t "~1Ttris: ~D~%" (-> obj tris))
(format #t "~1Tdverts: ~D~%" (-> obj dverts))
(format #t "~1Tinstances: ~D~%" (-> obj instances))
(format #t "~1Tpad: ~D~%" (-> obj pad))
(format #t "[~8x] ~A~%" this 'tr-stat)
(format #t "~1Tgroups: ~D~%" (-> this groups))
(format #t "~1Tfragments: ~D~%" (-> this fragments))
(format #t "~1Ttris: ~D~%" (-> this tris))
(format #t "~1Tdverts: ~D~%" (-> this dverts))
(format #t "~1Tinstances: ~D~%" (-> this instances))
(format #t "~1Tpad: ~D~%" (-> this pad))
(label cfg-4)
obj
this
)
;; definition of type merc-global-stats
(deftype merc-global-stats (structure)
((merc tr-stat :inline :offset-assert 0)
(emerc tr-stat :inline :offset-assert 16)
@@ -39,19 +43,21 @@
:flag-assert #x900000030
)
(defmethod inspect merc-global-stats ((obj merc-global-stats))
(when (not obj)
(set! obj obj)
;; definition for method 3 of type merc-global-stats
(defmethod inspect merc-global-stats ((this merc-global-stats))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'merc-global-stats)
(format #t "~1Tmerc: #<tr-stat @ #x~X>~%" (-> obj merc))
(format #t "~1Temerc: #<tr-stat @ #x~X>~%" (-> obj emerc))
(format #t "~1Tmercneric: #<tr-stat @ #x~X>~%" (-> obj mercneric))
(format #t "[~8x] ~A~%" this 'merc-global-stats)
(format #t "~1Tmerc: #<tr-stat @ #x~X>~%" (-> this merc))
(format #t "~1Temerc: #<tr-stat @ #x~X>~%" (-> this emerc))
(format #t "~1Tmercneric: #<tr-stat @ #x~X>~%" (-> this mercneric))
(label cfg-4)
obj
this
)
;; definition of type perf-stat
(deftype perf-stat (structure)
((frame-number uint32 :offset-assert 0)
(count uint32 :offset-assert 4)
@@ -80,29 +86,31 @@
)
)
(defmethod inspect perf-stat ((obj perf-stat))
(when (not obj)
(set! obj obj)
;; definition for method 3 of type perf-stat
(defmethod inspect perf-stat ((this perf-stat))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" obj 'perf-stat)
(format #t "~1Tframe-number: ~D~%" (-> obj frame-number))
(format #t "~1Tcount: ~D~%" (-> obj count))
(format #t "~1Tcycles: ~D~%" (-> obj cycles))
(format #t "~1Tinstructions: ~D~%" (-> obj instructions))
(format #t "~1Ticache: ~D~%" (-> obj icache))
(format #t "~1Tdcache: ~D~%" (-> obj dcache))
(format #t "~1Tselect: ~D~%" (-> obj select))
(format #t "~1Tctrl: ~D~%" (-> obj ctrl))
(format #t "~1Taccum0: ~D~%" (-> obj accum0))
(format #t "~1Taccum1: ~D~%" (-> obj accum1))
(format #t "~1Tto-vu0-waits: ~D~%" (-> obj to-vu0-waits))
(format #t "~1Tto-spr-waits: ~D~%" (-> obj to-spr-waits))
(format #t "~1Tfrom-spr-waits: ~D~%" (-> obj from-spr-waits))
(format #t "[~8x] ~A~%" this 'perf-stat)
(format #t "~1Tframe-number: ~D~%" (-> this frame-number))
(format #t "~1Tcount: ~D~%" (-> this count))
(format #t "~1Tcycles: ~D~%" (-> this cycles))
(format #t "~1Tinstructions: ~D~%" (-> this instructions))
(format #t "~1Ticache: ~D~%" (-> this icache))
(format #t "~1Tdcache: ~D~%" (-> this dcache))
(format #t "~1Tselect: ~D~%" (-> this select))
(format #t "~1Tctrl: ~D~%" (-> this ctrl))
(format #t "~1Taccum0: ~D~%" (-> this accum0))
(format #t "~1Taccum1: ~D~%" (-> this accum1))
(format #t "~1Tto-vu0-waits: ~D~%" (-> this to-vu0-waits))
(format #t "~1Tto-spr-waits: ~D~%" (-> this to-spr-waits))
(format #t "~1Tfrom-spr-waits: ~D~%" (-> this from-spr-waits))
(label cfg-4)
obj
this
)
;; definition (debug) for function perf-stat-bucket->string
(defun-debug perf-stat-bucket->string ((arg0 perf-stat-bucket))
(case arg0
(((perf-stat-bucket collide-fill))
@@ -264,6 +272,7 @@
)
)
;; definition of type perf-stat-array
(deftype perf-stat-array (inline-array-class)
((data perf-stat :inline :dynamic :offset-assert 16)
)
@@ -272,24 +281,28 @@
:flag-assert #x900000010
)
(defmethod inspect perf-stat-array ((obj perf-stat-array))
(when (not obj)
(set! obj obj)
;; definition for method 3 of type perf-stat-array
(defmethod inspect perf-stat-array ((this perf-stat-array))
(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 "~1Tdata[0] @ #x~X~%" (-> obj data))
(format #t "[~8x] ~A~%" this (-> this type))
(format #t "~1Tlength: ~D~%" (-> this length))
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
(label cfg-4)
obj
this
)
;; failed to figure out what this is:
(set! (-> perf-stat-array heap-base) (the-as uint 52))
(defmethod reset! perf-stat ((obj perf-stat))
(let ((v1-0 (-> obj ctrl)))
(+! (-> obj count) 1)
;; definition for method 11 of type perf-stat
;; WARN: Return type mismatch int vs none.
(defmethod reset! perf-stat ((this perf-stat))
(let ((v1-0 (-> this ctrl)))
(+! (-> this count) 1)
(b! (zero? v1-0) cfg-2 :delay (nop!))
(.mtc0 Perf 0)
(.sync.l)
@@ -307,31 +320,36 @@
(none)
)
(defmethod read! perf-stat ((obj perf-stat))
;; definition for method 12 of type perf-stat
;; WARN: Return type mismatch int vs none.
(defmethod read! perf-stat ((this perf-stat))
(local-vars (v1-1 int) (v1-3 int))
(b! (zero? (-> obj ctrl)) cfg-2 :delay (nop!))
(b! (zero? (-> this ctrl)) cfg-2 :delay (nop!))
(.mtc0 Perf 0)
(.sync.l)
(.sync.p)
(.mfpc v1-1 pcr0)
(+! (-> obj accum0) v1-1)
(+! (-> this accum0) v1-1)
(.mfpc v1-3 pcr1)
(+! (-> obj accum1) v1-3)
(+! (-> this accum1) v1-3)
(label cfg-2)
0
(none)
)
(defmethod update-wait-stats perf-stat ((obj perf-stat) (arg0 uint) (arg1 uint) (arg2 uint))
(when (nonzero? (-> obj ctrl))
(+! (-> obj to-vu0-waits) arg0)
(+! (-> obj to-spr-waits) arg1)
(+! (-> obj from-spr-waits) arg2)
;; definition for method 13 of type perf-stat
;; WARN: Return type mismatch int vs none.
(defmethod update-wait-stats perf-stat ((this perf-stat) (arg0 uint) (arg1 uint) (arg2 uint))
(when (nonzero? (-> this ctrl))
(+! (-> this to-vu0-waits) arg0)
(+! (-> this to-spr-waits) arg1)
(+! (-> this from-spr-waits) arg2)
)
0
(none)
)
;; failed to figure out what this is:
(when (not *debug-segment*)
(set! (-> perf-stat method-table 11) nothing)
(set! (-> perf-stat method-table 12) nothing)
test/decompiler/reference/jak2/engine/debug/viewer_REF.gc
Generated Vendored
+10 -10
View File
@@ -22,17 +22,17 @@
)
;; definition for method 3 of type viewer
(defmethod inspect viewer ((obj viewer))
(when (not obj)
(set! obj obj)
(defmethod inspect viewer ((this viewer))
(when (not this)
(set! this this)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
(t9-0 this)
)
(format #t "~2Tjanim: ~A~%" (-> obj janim))
(format #t "~2Tjanim: ~A~%" (-> this janim))
(label cfg-4)
obj
this
)
;; failed to figure out what this is:
@@ -220,16 +220,16 @@
;; definition for method 11 of type viewer
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! viewer ((obj viewer) (arg0 entity-actor))
(defmethod init-from-entity! viewer ((this viewer) (arg0 entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(set! *viewer* obj)
(set! (-> obj root) (new 'process 'trsqv))
(process-drawable-from-entity! obj arg0)
(set! *viewer* this)
(set! (-> this root) (new 'process 'trsqv))
(process-drawable-from-entity! this arg0)
(let ((s4-0 (-> arg0 etype)))
(if (valid? s4-0 type (the-as string #f) #f 0)
(init-viewer (symbol->string (-> s4-0 symbol)) (res-lump-struct arg0 'name string))