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

Ajout de TODO

Browse Source
This commit is contained in:
Bertrand BRUN 2010-10-20 11:17:41 +02:00
parent cbf7849e7e
commit 02e562330c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
VM/instruction.lisp
View File

@ -43,7 +43,6 @@
(defun set-register (vm register value) (send vm 'set-register register value))
(defun size-memory (vm) (send vm 'size-memory))
;;TODO : Faire les registres
(defun dump-vm (vm)
(dotimes (i (size-memory vm))
(let ((val (get-memory vm i)))
@ -59,9 +58,12 @@
(defun isn-decode (opcode)
opcode)
;;TODO : Penser a ajouter une table des opcodes
(defun isn-encode (instruction)
instruction)
;;TODO : Rajouter une fonction resolve pour resoudre les differents modes d'adresssage.
(defun ISN-LOAD (vm address register)
(set-register vm register (get-memory vm address)))
@ -143,6 +145,7 @@
;;Test Unitaire
;; TODO : Faire deftestvar
;; TODO : Finir le test unitaire
(load "test-unitaire")
(defvar vm (make-vm (+ 10 (random 10))))
(defvar t-address (random (size-memory vm)))
@ -160,4 +163,5 @@
(get-memory vm t-address))
(get-register vm 'R0))
(dump-vm vm)