Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv15729
Modified Files: segments.lisp Log Message: Put the initial segment-descriptor-table in an array installed in variable muerte::*initial-segment-descriptor-table*. Don't embed it in the run-time-context.
Date: Sat Apr 30 00:36:05 2005 Author: ffjeld
Index: movitz/losp/muerte/segments.lisp diff -u movitz/losp/muerte/segments.lisp:1.12 movitz/losp/muerte/segments.lisp:1.13 --- movitz/losp/muerte/segments.lisp:1.12 Mon Apr 25 00:11:24 2005 +++ movitz/losp/muerte/segments.lisp Sat Apr 30 00:36:05 2005 @@ -10,13 +10,15 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu May 8 14:25:06 2003 ;;;; -;;;; $Id: segments.lisp,v 1.12 2005/04/24 22:11:24 ffjeld Exp $ +;;;; $Id: segments.lisp,v 1.13 2005/04/29 22:36:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
(provide :muerte/segments)
(in-package muerte) + +(defvar *initial-segment-descriptor-table*)
(defun segment-register (segment-register-name) "Return the value of an x86 segment register, such as :cs or :ds."