blob: d2fcc868460ed3797e3104582518efcfd865e3e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# This buffer is for notes you don’t want to save, and for Chicken Scheme code.
;; define structs
(%def-struct point
(x u16)
(y u16))
;; static struct instances
(%static global-point
point (u16 10) (u16 20))
;; use static address as load offset
(ld R0 ZR (global-point:x))
;; stack allocated instances
(%def-proc (main)
;; alloc some space on the stack
(%svar my-point (point:size))
;; use stack offset as load offset
(ld R0 SP (my-point:x)))
;; a vector of static instances
(let loop ((i 0))
(when (< i 10)
(%static (string->symbol (format "global-points/~A" i))
point (u16 i) (u16 i))))
(ld R0 ZR (global-points/0:x))
|
