Bop codegen "optimization" (?)

2023-12-13 17:24:20 -05:00 · 2023-12-13 17:24:20 -05:00 · 884570598c
parent be83ca2177
commit 884570598c
1 changed files with 1 additions and 1 deletions
--- a/lib/compile/bcc.ml
+++ b/lib/compile/bcc.ml
@ -80,7 +80,7 @@ let rec compile_lambda (lam : Ir.lambda) =
             | Not -> NOT (sp, r1))

    | Ir.Bop (op, e1, e2) ->
-      let r1 = emit_exp_s sp e1; sp in
+      let r1 = emit_exp sp e1 in
      let r2 = emit_exp (suc sp) e2 in
      emit (match op with
             | Add -> ADD (sp, r1, r2)