Add emission procedures for binary ops, fix unary parsing error

2 files changed, 3 insertions, 3 deletions

diff --git a/src/backend/generator/assembly.scm b/src/backend/generator/assembly.scm
index 1593a07..d7167d7 100644
--- a/src/backend/generator/assembly.scm
+++ b/src/backend/generator/assembly.scm
@@ -6,8 +6,8 @@
             mov-ir))
 
 
-(define r10 (reg-ir "r10"))
-(define r11 (reg-ir "r11"))
+(define r10 (reg-ir "r10d"))
+(define r11 (reg-ir "r11d"))
 
 (define (instrs-ir lst)
   (cons 'list (cons (list 'alloc-ir (abs (get-frame-size)))
diff --git a/src/backend/generator/expansion.scm b/src/backend/generator/expansion.scm
index c9e4709..eb8b297 100644
--- a/src/backend/generator/expansion.scm
+++ b/src/backend/generator/expansion.scm
@@ -20,7 +20,7 @@
 
 (define (handle-ret src)
   (list (list 'mov-ir src eax)
-        (list 'ret-ir src)))
+        (list 'ret-ir)))
 
 (define (handle-unary op src dst)
   (list (list 'mov-ir src dst)