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

agrego popmulref

Browse Source
master
CrossNox 3 years ago
parent 9bdc07dff9
commit 624d8590e2
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

@ -1912,6 +1912,10 @@
POPSUBREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched -)] 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))) (if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs)))
; POPMULREF: Como POPADDREF, pero multiplica.
POPMULREF (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