mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
water111
7099a1964e
* add process allocations * use the right register for windows * another try for windows, counting is hard * one more try
15 lines
449 B
Common Lisp
15 lines
449 B
Common Lisp
(let ((proc (get-process *nk-dead-pool* process 1024)))
|
|
(activate proc *active-pool* 'test *kernel-dram-stack*)
|
|
(run-now-in-process
|
|
proc
|
|
(lambda :behavior process ()
|
|
;; (inspect self)
|
|
(let ((old-heap-cur (-> self heap-cur))
|
|
(obj (new 'process 'bfloat)))
|
|
(set! (-> obj data) 12.0)
|
|
;; (inspect self)
|
|
(format #t "diff is ~D~%" (&- (-> self heap-cur) old-heap-cur))
|
|
)
|
|
)
|
|
)
|
|
) |