;;-*-Lisp-*-
(in-package goal)

;; name: memory-usage-h.gc
;; name in dgo: memory-usage-h
;; dgos: ENGINE, GAME

(defenum mem-usage-id
    :bitfield #f
    :type uint32
    (entity 43)
    (camera 44)

    (res 48)

    (bsp-leaf-vis-self 62)
    (bsp-leaf-vis-adj  63)

    (level-code   65)
    (entity-links 66)

    (joint            67)

    (joint-anim-compressed-control 69)
    (joint-anim-fixed 70)
    (joint-anim-frame 71)

    (art-group        73)
    (art-mesh-anim    74)
    (art-mesh-geo     75)
    (art-joint-geo    76)
    (art-joint-anim   77)

    (joint-anim-drawable 78)

    (eye-anim        111)
    )
;; DECOMP BEGINS

(declare-file (debug))
(when *debug-segment*
(deftype memory-usage-info (structure)
  ((name  string  :offset-assert   0)
   (count int32   :offset-assert   4)
   (used  int32   :offset-assert   8)
   (total int32   :offset-assert  12)
   )
  :method-count-assert 9
  :size-assert         #x10
  :flag-assert         #x900000010
  )

(deftype memory-usage-block (basic)
  ((work-bsp basic                         :offset-assert   4)
   (length   int32                         :offset-assert   8)
   (data     memory-usage-info 112 :inline :offset-assert  16)
   )
  :method-count-assert 12
  :size-assert         #x710
  :flag-assert         #xc00000710
  (:methods
    (reset! (_type_) _type_ 9)
    (memory-usage-block-method-10 () none 10)
    (print-mem-usage (_type_ level object) none 11)
    )
  )


(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))

)

(define-extern mem-size (function basic symbol int int))