add mul

3 years ago · 4e88e1c36e
parent 6c33a4294f
commit 4e88e1c36e
1 changed files with 4 additions and 0 deletions
--- 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)))
       )
  )
 )