mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
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)
|