mirror of
https://github.com/open-goal/jak-project
synced 2026-08-10 03:06:18 -04:00
[decomp] game-info (#779)
* support more process stuff * more of game info * add ref file * progress on save
This commit is contained in:
water111
+27
-140
@@ -315,36 +315,9 @@
|
||||
(format #t "[~8x] ~A~%" obj (-> obj type))
|
||||
(format #t "~Tname: ~S~%" (-> obj name))
|
||||
(format #t "~Tmask: #x~X~%" (-> obj mask))
|
||||
(let ((t9-3 format)
|
||||
(a0-4 #t)
|
||||
(a1-3 "~Tparent: ~A~%")
|
||||
(v1-0 (-> obj parent))
|
||||
)
|
||||
(t9-3 a0-4 a1-3 (if v1-0
|
||||
(-> v1-0 0 self)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((t9-4 format)
|
||||
(a0-5 #t)
|
||||
(a1-4 "~Tbrother: ~A~%")
|
||||
(v1-2 (-> obj brother))
|
||||
)
|
||||
(t9-4 a0-5 a1-4 (if v1-2
|
||||
(-> v1-2 0 self)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((t9-5 format)
|
||||
(a0-6 #t)
|
||||
(a1-5 "~Tchild: ~A~%")
|
||||
(v1-4 (-> obj child))
|
||||
)
|
||||
(t9-5 a0-6 a1-5 (if v1-4
|
||||
(-> v1-4 0 self)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~Tparent: ~A~%" (ppointer->process (-> obj parent)))
|
||||
(format #t "~Tbrother: ~A~%" (ppointer->process (-> obj brother)))
|
||||
(format #t "~Tchild: ~A~%" (ppointer->process (-> obj child)))
|
||||
obj
|
||||
)
|
||||
|
||||
@@ -431,36 +404,9 @@
|
||||
(format #t "~Ttrans-hook: ~A~%" (-> obj trans-hook))
|
||||
(format #t "~Tpost-hook: ~A~%" (-> obj post-hook))
|
||||
(format #t "~Tevent-hook: ~A~%" (-> obj event-hook))
|
||||
(let ((t9-12 format)
|
||||
(a0-13 #t)
|
||||
(a1-12 "~Tparent: ~A~%")
|
||||
(v1-0 (-> obj parent))
|
||||
)
|
||||
(t9-12 a0-13 a1-12 (if v1-0
|
||||
(-> v1-0 0 self)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((t9-13 format)
|
||||
(a0-14 #t)
|
||||
(a1-13 "~Tbrother: ~A~%")
|
||||
(v1-2 (-> obj brother))
|
||||
)
|
||||
(t9-13 a0-14 a1-13 (if v1-2
|
||||
(-> v1-2 0 self)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((t9-14 format)
|
||||
(a0-15 #t)
|
||||
(a1-14 "~Tchild: ~A~%")
|
||||
(v1-4 (-> obj child))
|
||||
)
|
||||
(t9-14 a0-15 a1-14 (if v1-4
|
||||
(-> v1-4 0 self)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~Tparent: ~A~%" (ppointer->process (-> obj parent)))
|
||||
(format #t "~Tbrother: ~A~%" (ppointer->process (-> obj brother)))
|
||||
(format #t "~Tchild: ~A~%" (ppointer->process (-> obj child)))
|
||||
(format #t "~Tconnection-list: ~`connectable`P~%" (-> obj connection-list))
|
||||
(format #t "~Tstack-frame-top: ~A~%" (-> obj stack-frame-top))
|
||||
(format #t "~Theap-base: #x~X~%" (-> obj heap-base))
|
||||
@@ -547,18 +493,8 @@
|
||||
(let ((s1-0 (-> s3-0 child))
|
||||
(v1-5 ((method-of-type process new) allocation process 'dead arg1))
|
||||
)
|
||||
(let ((a0-3 v1-5))
|
||||
(set! (-> s3-0 child) (if a0-3
|
||||
(-> a0-3 ppointer)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((a0-4 s3-0))
|
||||
(set! (-> v1-5 parent) (if a0-4
|
||||
(-> a0-4 ppointer)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> s3-0 child) (process->ppointer v1-5))
|
||||
(set! (-> v1-5 parent) (process->ppointer s3-0))
|
||||
(set! (-> v1-5 pool) s3-0)
|
||||
(set! (-> v1-5 brother) s1-0)
|
||||
)
|
||||
@@ -577,20 +513,13 @@
|
||||
(!= obj *debug-dead-pool*)
|
||||
)
|
||||
(set! s4-0 (get-process *debug-dead-pool* arg0 arg1))
|
||||
(when (the-as process s4-0)
|
||||
(let ((t9-1 format)
|
||||
(a0-2 0)
|
||||
(a1-2
|
||||
"WARNING: ~A ~A had to be allocated from the debug pool, because ~A was empty.~%"
|
||||
)
|
||||
(a2-1 arg0)
|
||||
(v1-6 (the-as object s4-0))
|
||||
)
|
||||
(t9-1 a0-2 a1-2 a2-1 (if (the-as process v1-6)
|
||||
(-> (the-as (pointer process) v1-6) 0 self)
|
||||
)
|
||||
(-> obj name)
|
||||
)
|
||||
(if (the-as process s4-0)
|
||||
(format
|
||||
0
|
||||
"WARNING: ~A ~A had to be allocated from the debug pool, because ~A was empty.~%"
|
||||
arg0
|
||||
(ppointer->process (the-as process s4-0))
|
||||
(-> obj name)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -604,9 +533,7 @@
|
||||
0
|
||||
"WARNING: ~A ~A could not be allocated, because ~A was empty.~%"
|
||||
arg0
|
||||
(if (the-as (pointer process) s4-0)
|
||||
(-> (the-as (pointer process) s4-0) 0 self)
|
||||
)
|
||||
(ppointer->process (the-as (pointer process) s4-0))
|
||||
(-> obj name)
|
||||
)
|
||||
(the-as process #f)
|
||||
@@ -1526,25 +1453,13 @@
|
||||
(defun change-parent ((arg0 process-tree) (arg1 process-tree))
|
||||
(let ((a2-0 (-> arg0 parent)))
|
||||
(when a2-0
|
||||
(let* ((v1-2 (-> a2-0 0 child))
|
||||
(a3-0 v1-2)
|
||||
)
|
||||
(let ((v1-2 (-> a2-0 0 child)))
|
||||
(cond
|
||||
((= (if a3-0
|
||||
(-> a3-0 0 self)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
((= (ppointer->process v1-2) arg0)
|
||||
(set! (-> a2-0 0 child) (-> arg0 brother))
|
||||
)
|
||||
(else
|
||||
(while (let ((a2-2 (-> v1-2 0 brother)))
|
||||
(!= (if a2-2
|
||||
(-> a2-2 0 self)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
)
|
||||
(while (!= (ppointer->process (-> v1-2 0 brother)) arg0)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(nop!)
|
||||
@@ -1571,46 +1486,18 @@
|
||||
(a3-1 (the-as (pointer process-tree) #f))
|
||||
(v1-4 (the-as (pointer process-tree) #f))
|
||||
)
|
||||
(let ((t1-0 t0-0))
|
||||
(if (= (if t1-0
|
||||
(-> t1-0 0 self)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
(set! a3-1 a2-1)
|
||||
)
|
||||
(if (= (ppointer->process t0-0) arg0)
|
||||
(set! a3-1 a2-1)
|
||||
)
|
||||
(let ((t1-4 t0-0))
|
||||
(if (= (if t1-4
|
||||
(-> t1-4 0 self)
|
||||
)
|
||||
arg1
|
||||
)
|
||||
(set! v1-4 a2-1)
|
||||
)
|
||||
(if (= (ppointer->process t0-0) arg1)
|
||||
(set! v1-4 a2-1)
|
||||
)
|
||||
(while (and (-> t0-0 0 brother) (or (not a3-1) (not v1-4)))
|
||||
(let ((t1-8 t0-0))
|
||||
(if (= (-> (if t1-8
|
||||
(-> t1-8 0 self)
|
||||
)
|
||||
brother
|
||||
)
|
||||
arg1
|
||||
)
|
||||
(set! v1-4 t0-0)
|
||||
)
|
||||
(if (= (-> (ppointer->process t0-0) brother) arg1)
|
||||
(set! v1-4 t0-0)
|
||||
)
|
||||
(let ((t1-13 t0-0))
|
||||
(if (= (-> (if t1-13
|
||||
(-> t1-13 0 self)
|
||||
)
|
||||
brother
|
||||
)
|
||||
arg0
|
||||
)
|
||||
(set! a3-1 t0-0)
|
||||
)
|
||||
(if (= (-> (ppointer->process t0-0) brother) arg0)
|
||||
(set! a3-1 t0-0)
|
||||
)
|
||||
(set! t0-0 (-> t0-0 0 brother))
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user