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

agrego popdivref

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

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