mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
water111
14 lines
494 B
Common Lisp
14 lines
494 B
Common Lisp
(defun test-stack-inline-array ()
|
|
(let ((t0 (new 'stack-no-clear 'array 'int32 1))
|
|
(ta (new 'stack-no-clear 'array 'int32 1))
|
|
(t1 (new 'stack-no-clear 'inline-array 'vector 3))
|
|
(t2 (new 'stack-no-clear 'inline-array 'vector 2)))
|
|
;; these are somewhat specific to the current strategy for laying out the stack.
|
|
(format #t "#x~X~%" (&- t1 ta))
|
|
(format #t "#x~X~%" (&- t2 t1))
|
|
(set! (-> t1 1 quad) (the-as uint128 0))
|
|
)
|
|
)
|
|
|
|
(test-stack-inline-array)
|