From 4e88e1c36e8bd991312a3b5e33caf9a8033023e3 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 00:05:07 -0300 Subject: [PATCH] add mul --- src/rustint/core.clj | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 835f22a..1ecf64d 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1955,6 +1955,10 @@ ; DIV: Como ADD, pero divide. DIV (let [res (aplicar-operador-diadico dividir pila)] (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) + + ; MUL: Como ADD, pero multiplica. + MUL (let [res (aplicar-operador-diadico * pila)] + (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) ) ) )