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

Merge branch 'master' of github:dumbs/2010-m1s1-compilation

Browse Source 
Conflicts:
	VM/instruction.lisp
This commit is contained in:
Georges Dupéron 2010-10-20 23:42:27 +02:00
commit fd18c2d465
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
VM/instruction.lisp
View File

@ -43,6 +43,7 @@
(defun set-register (vm register value) (send vm 'set-register register value)) (defun set-register (vm register value) (send vm 'set-register register value))
(defun size-memory (vm) (send vm 'size-memory)) (defun size-memory (vm) (send vm 'size-memory))
;;TODO : Rajouter une fonction resolve pour resoudre les differents modes d'adresssage.
;; TODO : Penser a ajouter une table des opcodes ;; TODO : Penser a ajouter une table des opcodes
(defvar table-operateurs (defvar table-operateurs
@ -193,6 +194,7 @@ et termine par la liste APPEND."
;;Test Unitaire ;;Test Unitaire
;; TODO : Faire deftestvar ;; TODO : Faire deftestvar
;; TODO : Finir le test unitaire
(load "test-unitaire") (load "test-unitaire")
(defvar vm (make-vm (+ 10 (random 10)))) (defvar vm (make-vm (+ 10 (random 10))))
(defvar t-address (random (size-memory vm))) (defvar t-address (random (size-memory vm)))
@ -210,4 +212,5 @@ et termine par la liste APPEND."
(get-memory vm t-address)) (get-memory vm t-address))
(get-register vm 'R0)) (get-register vm 'R0))
(dump-vm vm) (dump-vm vm)