[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-serv13038

Modified Files:
	ll-testing.lisp 
Log Message:
Fix format-segment-table: use selector rather than indexes.

Date: Sat Jun 11 01:04:45 2005
Author: ffjeld

Index: movitz/losp/ll-testing.lisp
diff -u movitz/losp/ll-testing.lisp:1.9 movitz/losp/ll-testing.lisp:1.10
--- movitz/losp/ll-testing.lisp:1.9	Sun May  8 03:18:02 2005
+++ movitz/losp/ll-testing.lisp	Sat Jun 11 01:04:45 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.9 2005/05/08 01:18:02 ffjeld Exp $
+;;;; $Id: ll-testing.lisp,v 1.10 2005/06/10 23:04:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -40,12 +40,13 @@
 
 (defun format-segment-table (table &key (start 0) (end (truncate (length table) 2)))
   (loop for i from start below end
-      do (format t "~&~2D: base: #x~8,'0X, limit: #x~5,'0X, type-s-dpl-p: ~8,'0b, avl-x-db-g: ~4,'0b~%"
-		 i
-		 (* 4 (segment-descriptor-base-location table i))
-		 (segment-descriptor-limit table i)
-		 (segment-descriptor-type-s-dpl-p table i)
-		 (segment-descriptor-avl-x-db-g table i)))
+      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))