regfile.lisp

(in-package :regmach4wasm)

;; -----------------------------------------------------------------------------
;; regfile

(defstruct regfile (regs-int-32 (make-array 32)))

(defun regfile-set-reg (rf reg val)
  ;; reg has to be a number from 0 to 31
  ;; val has to be a 32 bit value.
  (check-type reg number)
  (check-type val number)
  (when (and (< reg 0) (> reg 31))
    (error "regfile-set-reg got a bad register"))
  
  (setf (aref (regfile-regs-int-32 rf) reg) val))

(defun regfile-get-reg (rf reg)
  (check-type reg number)
  (when (and (< reg 0) (> reg 31))
    (error "regfile-get got a bad register"))
  (aref (regfile-regs-int-32 rf) reg))

(defun test-with-regfile (test-func)
  (apply test-func (list (make-regfile))))

(test-with-regfile
 (lambda (rf)
   (expected 0 (regfile-get-reg rf 1))))

(test-with-regfile
 (lambda (rf)
   (regfile-set-reg rf 0 1)
   (expected (regfile-get-reg rf 0) 1)))