diff options
Diffstat (limited to 'src/modules/generator/allocate.scm')
-rw-r--r-- | src/modules/generator/allocate.scm | 16 |
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)) |