summaryrefslogtreecommitdiff
path: root/src/modules/generator/assembly.scm
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2025-01-18 02:07:40 -0700
committerbd <bdunahu@operationnull.com>2025-01-18 02:07:40 -0700
commit14b2600bd58b0a4b09c6647c1d78ab7bccd4c1aa (patch)
tree511b6dfb8fca47e078ea3af6bf6ba428f0e7c0a1 /src/modules/generator/assembly.scm
parenta3d234983b259576e985f810eacf0d03eefc02d2 (diff)
set modules folder to modules path
Diffstat (limited to 'src/modules/generator/assembly.scm')
-rw-r--r--src/modules/generator/assembly.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/modules/generator/assembly.scm b/src/modules/generator/assembly.scm
index 50e158e..55eaaed 100644
--- a/src/modules/generator/assembly.scm
+++ b/src/modules/generator/assembly.scm
@@ -1,7 +1,7 @@
-(define-module (modules generator assembly)
- #:use-module (modules ast ir)
- #:use-module (modules utils assign-stack)
- #:use-module (modules utils merge-instructions)
+(define-module (generator assembly)
+ #:use-module (ast ir)
+ #:use-module (utils assign-stack)
+ #:use-module (utils merge-instructions)
#:export (instrs
mov))
@@ -10,9 +10,9 @@
(cons 'list (cons (list 'alloc (abs (get-frame-size)))
(merge-instr lst))))
-(define (mov dst src)
+(define (mov src dst)
(if (and (eq? 'stack (car dst))
(eq? 'stack (car src)))
- (append (list (list 'mov (reg "r10") src))
- (list (list 'mov dst (reg "r10"))))
- (list 'mov dst src)))
+ (append (list (list 'mov src (reg "r10d")))
+ (list (list 'mov (reg "r10d") dst)))
+ (list 'mov src dst)))