blob: aec0f23f55ec2e5d6e934a73aecf34ecbb477b10 (
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
29
30
31
32
33
|
(define-module (backend tacky traverse)
#:use-module (backend ast ir)
#:export (func
stmt
unary
const))
(define (func name instrs)
(list 'srout name instrs))
(define (stmt val)
(list 'instrs
(cons 'list (append (cdr val)
(list (list 'ret (car val)))))))
(define (expr op val)
(make-instruction op (car val) (cdr val)))
(define (const val)
(cons (imm val) '()))
(define (make-instruction op src instrs)
(let ((dst (make-temporary)))
(cons dst
(append instrs
(list (op src dst))))))
(define make-temporary
(let ((count 100))
(lambda ()
(set! count (1+ count))
(list 'tmp count))))
|
