mirror of
https://github.com/open-goal/jak-project
synced 2026-05-30 00:47:20 -04:00
Hat Kid
42 lines
794 B
Common Lisp
42 lines
794 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: memory-usage-h.gc
|
|
;; name in dgo: memory-usage-h
|
|
;; dgos: GAME
|
|
|
|
(define-extern mem-size (function basic symbol int int))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
;; this file is debug only
|
|
(declare-file (debug))
|
|
|
|
(deftype memory-usage-info (structure)
|
|
((name string)
|
|
(count int32)
|
|
(used int32)
|
|
(total int32)
|
|
)
|
|
)
|
|
|
|
|
|
(deftype memory-usage-block (basic)
|
|
((work-bsp basic)
|
|
(length int32)
|
|
(data memory-usage-info 113 :inline)
|
|
)
|
|
(:methods
|
|
(reset! (_type_) _type_)
|
|
(calculate-total (_type_) int)
|
|
(print-mem-usage (_type_ level object) _type_)
|
|
)
|
|
)
|
|
|
|
|
|
(define *mem-usage* (new 'debug 'memory-usage-block))
|
|
|
|
(define *dma-mem-usage* (new 'debug 'memory-usage-block))
|
|
|
|
(define *temp-mem-usage* (the-as memory-usage-block #f))
|