iitalics
/
spice
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bop codegen "optimization" (?)

This commit is contained in:
tali 2023-12-13 17:24:20 -05:00
parent be83ca2177
commit 884570598c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/compile/bcc.ml
View File

@ -80,7 +80,7 @@ let rec compile_lambda (lam : Ir.lambda) =
| Not -> NOT (sp, r1)) | Not -> NOT (sp, r1))
| Ir.Bop (op, e1, e2) -> | 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 let r2 = emit_exp (suc sp) e2 in
emit (match op with emit (match op with
| Add -> ADD (sp, r1, r2) | Add -> ADD (sp, r1, r2)