diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 0f64e9a..516cf55 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1899,6 +1899,14 @@ ] (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) ) + + ; NEG: Incrementa cont-prg en 1, quita de la pila un elemento numerico, le cambia el signo y lo coloca al final de la pila. + NEG (let [ + res (- (last pila)), + nueva_pila (assoc pila (count pila) res) + ] + (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) + ) ) ) )