crossnox
/
7514-rust-interpreter-in-clojure
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

agrego popsubref

Browse Source
master
CrossNox 3 years ago
parent e0de8c90d9
commit 9bdc07dff9
1 changed files with 4 additions and 0 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 4
      src/rustint/core.clj

4
src/rustint/core.clj
Unescape View File

@ -1908,6 +1908,10 @@
POPADDREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched +)] POPADDREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched +)]
(if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs))) (if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs)))
; POPSUBREF: Como POPADDREF, pero resta.
POPSUBREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched -)]
(if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs)))
; Incrementa cont-prg en 1, quita de la pila dos elementos, calcula su suma y la coloca al final de la pila ; Incrementa cont-prg en 1, quita de la pila dos elementos, calcula su suma y la coloca al final de la pila
; fetched: ADD ; fetched: ADD
; pila recibida: [1 0 0 3 4] ; pila recibida: [1 0 0 3 4]

Write Preview
Loading…
Cancel
Save