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

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

;; 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
    (memory-usage-block-method-9 () none 9)
    (memory-usage-block-method-10 () none 10)
    (memory-usage-block-method-11 () 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))

)