From e3857321bc644453933edddac3b3cb7494fc0eea Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 06:06:11 -0300 Subject: [PATCH] fix case and add JMP --- src/rustint/core.clj | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 32b5194..60ae00c 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2059,10 +2059,13 @@ ) ; FLUSH: Purga la salida e incrementa cont-prg en 1. - (do (flush) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) + FLUSH (do (flush) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) ; NL: New line. Imprime un salto de linea e incrementa cont-prg en 1. - (do (println) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) + NL (do (println) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) + + ; JMP: Salto incondicional. Cambia cont-prg por el valor del argumento. + JMP (recur cod regs-de-act (second fetched) pila mapa-regs) ) ) )