[movitz-cvs] CVS update: movitz/losp/ll-testing.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp
In directory common-lisp.net:/tmp/cvs-serv32680

Modified Files:
	ll-testing.lisp 
Log Message:
Some cleanup regarding the segment-descriptor-table.

Date: Thu Aug 11 23:33:01 2005
Author: ffjeld

Index: movitz/losp/ll-testing.lisp
diff -u movitz/losp/ll-testing.lisp:1.10 movitz/losp/ll-testing.lisp:1.11
--- movitz/losp/ll-testing.lisp:1.10	Sat Jun 11 01:04:45 2005
+++ movitz/losp/ll-testing.lisp	Thu Aug 11 23:33:01 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Apr 14 08:18:43 2005
 ;;;;                
-;;;; $Id: ll-testing.lisp,v 1.10 2005/06/10 23:04:45 ffjeld Exp $
+;;;; $Id: ll-testing.lisp,v 1.11 2005/08/11 21:33:01 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -35,19 +35,6 @@
 ;;;		   (memref gdt-base 0 :index i :type :unsigned-byte32 :physicalp t))))
 ;;;	table))))
 
-
-
-
-(defun format-segment-table (table &key (start 0) (end (truncate (length table) 2)))
-  (loop for i from start below end
-      as selector = (* i 8)
-      do (format t "~&~3X: base: #x~8,'0X, limit: #x~5,'0X, type-s-dpl-p: ~8,'0b, avl-x-db-g: ~4,'0b~%"
-		 selector
-		 (* 4 (segment-descriptor-base-location table selector))
-		 (segment-descriptor-limit table selector)
-		 (segment-descriptor-type-s-dpl-p table selector)
-		 (segment-descriptor-avl-x-db-g table selector)))
-  (values))
 
 
 (defmacro control-stack-fs (stack)