summaryrefslogtreecommitdiff
path: root/src/backend/generator/assembly.scm
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2025-01-28 18:12:54 -0500
committerbd <bdunahu@operationnull.com>2025-01-28 18:12:54 -0500
commit733838d0a55de74e25e879f9fcf43c5c5c78e24a (patch)
treec0a7ed819d45fb1abbb3128542add3c20437ecfe /src/backend/generator/assembly.scm
parent5cea39649d613864f3e7a688cb2a7ecbde8bd6cd (diff)
Fix namespace issues related to IR symbols
Diffstat (limited to 'src/backend/generator/assembly.scm')
-rw-r--r--src/backend/generator/assembly.scm20
1 files changed, 10 insertions, 10 deletions
diff --git a/src/backend/generator/assembly.scm b/src/backend/generator/assembly.scm
index 8a110f3..205900b 100644
--- a/src/backend/generator/assembly.scm
+++ b/src/backend/generator/assembly.scm
@@ -2,17 +2,17 @@
#:use-module (backend ast ir)
#:use-module (backend utils assign-stack)
#:use-module (backend utils merge-instructions)
- #:export (instrs
- mov))
+ #:export (instrs-ir
+ mov-ir))
-(define (instrs lst)
- (cons 'list (cons (list 'alloc (abs (get-frame-size)))
+(define (instrs-ir lst)
+ (cons 'list (cons (list 'alloc-ir (abs (get-frame-size)))
(merge-instr lst))))
-(define (mov src dst)
- (if (and (eq? 'stack (car dst))
- (eq? 'stack (car src)))
- (append (list (list 'mov src (reg "r10d")))
- (list (list 'mov (reg "r10d") dst)))
- (list 'mov src dst)))
+(define (mov-ir src dst)
+ (if (and (eq? 'stack-ir (car dst))
+ (eq? 'stack-ir (car src)))
+ (append (list (list 'mov-ir src (reg-ir "r10d")))
+ (list (list 'mov-ir (reg-ir "r10d") dst)))
+ (list 'mov-ir src dst)))