summaryrefslogtreecommitdiff
path: root/src/backend/generator/expansion.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/backend/generator/expansion.scm')
-rw-r--r--src/backend/generator/expansion.scm24
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)))