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

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

;; 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  112 :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))