commit 315ba199b75e5d7869e7f83d349f877085cceea0 parent d10e571953adc1606884b639168372603a5a0d4d Author: Georges Dupéron <jahvascriptmaniac+github@free.fr> Date: Sun, 7 Nov 2010 05:46:34 +0100 Oubli lors du renomage de variables. Diffstat:
| M | instructions.lisp | | | 8 | ++++---- |
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/instructions.lisp b/instructions.lisp @@ -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)