suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Oubli lors du renomage de variables.

Browse Source
This commit is contained in:
Georges Dupéron 2010-11-07 05:46:34 +01:00
parent d10e571953
commit 315ba199b7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
instructions.lisp
View File

@ -102,11 +102,11 @@ et termine par la liste APPEND."
(opcode (logior opcode (position1 mode-adressage-2 table-modes-adressage))))
(split-bytes opcode nb-opcode-bytes
(list (if (eq mode-adressage-1 'registre)
(position1 valeur1 (get-register-list (make-vm 1)))
valeur1)
(position1 valeur-1 (get-register-list (make-vm 1)))
valeur-1)
(if (eq mode-adressage-2 'registre)
(position1 valeur2 (get-register-list (make-vm 1)))
valeur2))))))
(position1 valeur-2 (get-register-list (make-vm 1)))
valeur-2))))))
;;TODO : Faire les registres
(defun dump-vm (vm)