26 lines
711 B
Racket
26 lines
711 B
Racket
#lang racket
|
|
|
|
(provide Label Var Reg Imm LMov Add Sub RetDefault Svc Bl)
|
|
|
|
(require racket/struct)
|
|
|
|
(struct AArch64VarProgram (info labeled-seq) #:transparent)
|
|
(struct Label (label) #:transparent)
|
|
(struct Var (var-name) #:transparent)
|
|
(struct Reg (reg-name) #:transparent)
|
|
(struct Imm (immediate) #:transparent)
|
|
(struct LMov (src dest) #:transparent)
|
|
(struct Add (op1 op2 dest) #:transparent)
|
|
(struct Sub (op1 op2 dest) #:transparent)
|
|
(struct RetDefault () #:transparent)
|
|
(struct Svc (i) #:transparent)
|
|
(struct Bl (label) #:transparent)
|
|
|
|
(define valid-reg-names
|
|
'(x0 x1 x2 x3 x4 x5 x6
|
|
x7 x8 x9 x10 x11 x12
|
|
x13 x14 x15 x16 x17 x18
|
|
x19 x20 x21 x22 x23 x24
|
|
x25 x26 x27 x28 x29 x30
|
|
sp pc xzr))
|