jak-project/test/old_goal_tests/tests/test-pointer-as-array-numbers.gc

					;-*-Scheme-*-

;; add two constants together.
(test-setup 13  #f)

(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)
     )
  )