diff options
Diffstat (limited to 'src/backend/generator/expansion.scm')
-rw-r--r-- | src/backend/generator/expansion.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/backend/generator/expansion.scm b/src/backend/generator/expansion.scm index 9fe2e0a..1745e23 100644 --- a/src/backend/generator/expansion.scm +++ b/src/backend/generator/expansion.scm @@ -1,23 +1,23 @@ (define-module (backend generator expansion) #:use-module (backend ast ir) #:use-module (backend utils merge-instructions) - #:export (instrs - not - neg - ret)) + #:export (instrs-ir + not-ir + neg-ir + ret-ir)) -(define (instrs lst) +(define (instrs-ir lst) #f - (list 'instrs (cons 'list (merge-instr lst)))) + (list 'instrs-ir (cons 'list (merge-instr lst)))) -(define (not src dst) (unary 'not src dst)) -(define (neg src dst) (unary 'neg src dst)) +(define (not-ir src dst) (unary 'not-ir src dst)) +(define (neg-ir src dst) (unary 'neg-ir src dst)) -(define (ret src) - (list (list 'mov src (list 'reg "eax")) - (list 'ret))) +(define (ret-ir src) + (list (list 'mov-ir src (list 'reg-ir "eax")) + (list 'ret-ir))) (define (unary op src dst) - (list (list 'mov src dst) + (list (list 'mov-ir src dst) (list op dst))) |