Files
jak-project/test/goalc/source_templates/pointers/pointers.static.gc
T
2020-10-08 00:05:01 -04:00

9 lines
228 B
Common Lisp

(let* ((base-addr #x6000000)
(ptr-int32 (the (pointer int32) base-addr))
(ptr-int16 (the (pointer int16) base-addr))
)
(set! (-> ptr-int32 1) #x00070006)
(+ (-> ptr-int16 2)
(-> ptr-int16 3)
)
)