summaryrefslogtreecommitdiff
path: root/src/modules/generator/allocate.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/modules/generator/allocate.scm')
-rw-r--r--src/modules/generator/allocate.scm16
1 files changed, 0 insertions, 16 deletions
diff --git a/src/modules/generator/allocate.scm b/src/modules/generator/allocate.scm
deleted file mode 100644
index f975fca..0000000
--- a/src/modules/generator/allocate.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-(define-module (generator allocate)
- #:use-module (utils assign-stack)
- #:export (expansion->allocate))
-
-
-(define (expansion->allocate ast)
- (define (allocate n)
- (cond
- ((null? n) n)
- ((eq? (car n) 'tmp)
- (list 'stack (make-location (cadr n))))
- ((list? (car n))
- (cons (allocate (car n)) (allocate (cdr n))))
- (#t
- (cons (car n) (allocate (cdr n))))))
- (allocate ast))