Commit 400aa52f authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Added method image-movitz-to-lisp-object.

parent d3a48673
......@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Created at: Fri Aug 24 11:39:37 2001
;;;;
;;;; $Id: procfs-image.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $
;;;; $Id: procfs-image.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -104,6 +104,26 @@
(defun register32 (register-name)
(image-register32 *image* register-name))
(defmethod image-movitz-to-lisp-object ((image procfs-image) expr)
(etypecase expr
(cons (mapcar #'movitz-print expr))
((not movitz-object)
expr)
((or movitz-nil movitz-constant-block) nil)
(movitz-symbol
(intern (movitz-print (movitz-symbol-name expr))))
(movitz-string
(map 'string #'identity
(movitz-vector-symbolic-data expr)))
(movitz-fixnum
(movitz-fixnum-value expr))
(movitz-vector
(map 'vector #'movitz-print (movitz-vector-symbolic-data expr)))
(movitz-cons
(cons (movitz-print (movitz-car expr))
(movitz-print (movitz-cdr expr))))))
(defmethod report-gdtr ((image bochs-image))
(assert (file-position (image-stream image)
(bochs-image-gdtr-address image)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment