From 4037f14f25c0f0d55c545d1c711a90aebf4fc8eb Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 06:16:50 -0300 Subject: [PATCH] agrego CAL --- src/rustint/core.clj | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index da86457..605b4a8 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2078,6 +2078,17 @@ ] (recur cod regs-de-act next_cont_prg pila mapa-regs) ) + ; CAL: Llamada a una funcion. Agrega al final de regs-de-act el reg-de-act (proveniente de mapa-regs) indicado por el argumento, + ; cambia cont-prg por el valor del argumento y coloca al final de la pila la direccion de retorno (el valor del argumento incrementado en 1). + CAL (let [ + argval (second fetched), + next_cont_prg argval, + reg-act-to-add (get mapa-regs argval), + retdir (inc argval) + ] + (recur cod (conj regs-de-act reg-act-to-add) next_cont_prg (conj pila retdir) mapa-regs) + ) + ) ) )