From 7da79b695fdef75c751a89da39bb5d5bf4bbabe8 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Mon, 28 Nov 2022 17:31:01 -0300 Subject: [PATCH] fix code --- src/rustint/core.clj | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index ffd5133..467f8d4 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2232,7 +2232,13 @@ ; ^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^: tamano 8 ^ ubicacion de JMP ? en contexto ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defn fixup [amb jmploc] - amb + (cond + (not= (get amb 3) :sin-errores) amb + :else ( + let [bytecode (get amb 6)] + (assoc-in amb [6 jmploc 1] (count bytecode)) + ) + ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;