From 9baf5f25976beabab62c1b61f011e14a030ca1a2 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Mon, 28 Nov 2022 23:54:10 -0300 Subject: [PATCH] add tof --- src/rustint/core.clj | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 42f00cf..2f1f9ff 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1915,6 +1915,14 @@ ] (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) ) + + ; TOF: Incrementa cont-prg en 1, quita de la pila un elemento numerico, lo convierte a punto flotante y lo coloca al final de la pila. + TOF (let [ + res (pasar-a-float (last pila)), + nueva_pila (assoc pila (- (count pila) 1) res) + ] + (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) + ) ) ) )