mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 07:39:12 -04:00
water111
27f0a7ca44
* refactor tests and analysis passes * identity test working * combine test categories with only a few cases * more fixes
9 lines
228 B
Common Lisp
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)
|
|
)
|
|
) |