diff options
author | bd <bdunahu@operationnull.com> | 2025-01-28 18:12:54 -0500 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2025-01-28 18:12:54 -0500 |
commit | 733838d0a55de74e25e879f9fcf43c5c5c78e24a (patch) | |
tree | c0a7ed819d45fb1abbb3128542add3c20437ecfe /src/backend/generator/assembly.scm | |
parent | 5cea39649d613864f3e7a688cb2a7ecbde8bd6cd (diff) |
Fix namespace issues related to IR symbols
Diffstat (limited to 'src/backend/generator/assembly.scm')
-rw-r--r-- | src/backend/generator/assembly.scm | 20 |
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))) |