Add emission procedures for binary ops, fix unary parsing error

1 files changed, 23 insertions, 2 deletions

diff --git a/src/backend/emitter/traverse.scm b/src/backend/emitter/traverse.scm
index e88f207..15bda10 100644
--- a/src/backend/emitter/traverse.scm
+++ b/src/backend/emitter/traverse.scm
@@ -32,10 +32,25 @@
 \tret\n")
 
 (define (neg-ir dst)
-  (format #f "\tnegl\t~a\n" dst))
+  (emit-unary "negl" dst))
 
 (define (not-ir dst)
-  (format #f "\tnotl\t~a\n" dst))
+  (emit-unary "notl" dst))
+
+(define (plus-ir src dst)
+  (emit-binary "addl" src dst))
+
+(define (minus-ir src dst)
+  (emit-binary "subl" src dst))
+
+(define (mult-ir src dst)
+  (emit-binary "imull" src dst))
+
+(define (div-ir src)
+  (emit-unary "idivl" src))
+
+(define (cdq-ir)
+  (format #f "\tcdq\n"))
 
 (define (alloc-ir size)
   (format #f "\tsubq\t$~a, %rsp\n" size))
@@ -48,3 +63,9 @@
 
 (define (imm-ir int)
   (format #f "$~a" int))
+
+(define (emit-unary instr dst)
+  (format #f "\t~a\t~a\n" instr dst))
+
+(define (emit-binary instr src dst)
+  (format #f "\t~a\t~a, ~a\n" instr src dst))