From 74f8caa95f6a41a619ce54d193879cb240b9992f Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 29 Jan 2025 22:54:34 -0500 Subject: Add emission procedures for binary ops, fix unary parsing error --- src/backend/emitter/traverse.scm | 25 +++++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) (limited to 'src/backend/emitter') 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)) -- cgit v1.2.3