mirror of
https://github.com/open-goal/jak-project
synced 2026-08-07 18:23:13 -04:00
Tyler Wilding
71 lines
2.1 KiB
Common Lisp
Vendored
Generated
71 lines
2.1 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function dma-buffer-add-buckets
|
|
;; WARN: Return type mismatch pointer vs (inline-array dma-bucket).
|
|
(defun dma-buffer-add-buckets ((dma-buf dma-buffer) (bucket-count int))
|
|
(let ((v0-0 (-> dma-buf base)))
|
|
(let ((v1-0 (the-as object v0-0)))
|
|
(dotimes (a2-0 bucket-count)
|
|
(set! (-> (the-as dma-bucket v1-0) tag)
|
|
(new 'static 'dma-tag :id (dma-tag-id next) :addr (the-as int (&+ (the-as pointer v1-0) 16)))
|
|
)
|
|
(set! (-> (the-as dma-bucket v1-0) last) (the-as (pointer dma-tag) v1-0))
|
|
(set! v1-0 (&+ (the-as pointer v1-0) 16))
|
|
)
|
|
(set! (-> dma-buf base) (the-as pointer v1-0))
|
|
)
|
|
(the-as (inline-array dma-bucket) v0-0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dma-buffer-patch-buckets
|
|
(defun dma-buffer-patch-buckets ((base dma-bucket) (count int))
|
|
(when (nonzero? base)
|
|
(dotimes (v1-1 count)
|
|
(cond
|
|
((= base (-> base last))
|
|
(set! (-> base tag) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> base clear) (the-as uint 0))
|
|
0
|
|
)
|
|
(else
|
|
(set! (-> base last 0 addr) (the-as int (&+ base 16)))
|
|
(cond
|
|
((and (or *display-profile* *stats-profile-bars*) (not *display-capture-mode*))
|
|
(set! (-> (the-as dma-packet base) vif0) (new 'static 'vif-tag :cmd (vif-cmd mark) :imm v1-1))
|
|
(set! (-> (the-as dma-packet base) vif1) (new 'static 'vif-tag :irq #x1))
|
|
)
|
|
(else
|
|
(set! (-> base clear) (the-as uint 0))
|
|
0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(&+! base 16)
|
|
)
|
|
)
|
|
base
|
|
)
|
|
|
|
;; definition for function dma-bucket-insert-tag
|
|
(defun dma-bucket-insert-tag ((buckets (inline-array dma-bucket))
|
|
(bucket bucket-id)
|
|
(start-tag pointer)
|
|
(end-tag-to-patch (pointer dma-tag))
|
|
)
|
|
(let ((v1-1 (-> buckets bucket)))
|
|
(set! (-> (the-as dma-bucket (-> v1-1 last)) next) (the-as uint start-tag))
|
|
(set! (-> v1-1 last) end-tag-to-patch)
|
|
)
|
|
start-tag
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|