[movitz-cvs] CVS update: movitz/losp/muerte/memref.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	memref.lisp 
Log Message:
Cleaned up most ":int 107" instances. Now, we mostly use the
semi-standardized ":int 64" which means that the value in EAX wasn't
integer. The default interrupt-handler understands this and signals
the appropriate error.

Date: Tue Jul 20 01:54:29 2004
Author: ffjeld

Index: movitz/losp/muerte/memref.lisp
diff -u movitz/losp/muerte/memref.lisp:1.20 movitz/losp/muerte/memref.lisp:1.21
--- movitz/losp/muerte/memref.lisp:1.20	Mon Jul 19 02:56:57 2004
+++ movitz/losp/muerte/memref.lisp	Tue Jul 20 01:54:29 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Mar  6 21:25:49 2001
 ;;;;                
-;;;; $Id: memref.lisp,v 1.20 2004/07/19 09:56:57 ffjeld Exp $
+;;;; $Id: memref.lisp,v 1.21 2004/07/20 08:54:29 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -628,9 +628,9 @@
 	    (:shll 2 :ecx)
 	    (:addl :ebx :eax)
 	    (:into)
-	    (:testb ,(cl:mask-field (cl:byte (cl:+ 2 movitz::+movitz-fixnum-shift+) 0) -1)
+	    (:testb ,(mask-field (byte (+ 2 movitz::+movitz-fixnum-shift+) 0) -1)
 		    :al)
-	    (:jnz '(:sub-program (unaligned) (:int 63)))
+	    (:jnz '(:sub-program () (:int 63)))
 	    (:addl :ecx :eax)
 	    (:shrl ,movitz::+movitz-fixnum-shift+ :eax) ; scale down address
 	    (,prefixes :movl (:eax) :ecx)
@@ -806,7 +806,9 @@
 	   ,@(unless (= 0 start2)
 	       `((:addl ,(* start2 movitz::+movitz-fixnum-factor+) :ebx)))
 	   (:testb ,movitz::+movitz-fixnum-zmask+ :dl)
-	   (:jnz '(:sub-program (no-fixnum) (:int 107)))
+	   (:jnz '(:sub-program ()
+		   (:movl :edx :eax)
+		   (:int 64)))
 	  copy-loop
 	   (:movl (:ebx :edx) :ecx)
 	   (:movl :ecx (:eax :edx))
@@ -824,7 +826,9 @@
 	   (:testl :edx :edx)
 	   (:jz 'done)
 	   (:testb ,movitz::+movitz-fixnum-zmask+ :dl)
-	   (:jnz '(:sub-program (no-fixnum) (:int 107)))
+	   (:jnz '(:sub-program ()
+		   (:movl :edx :eax)
+		   (:int 64)))
 	  copy-loop
 	   (:movl (:ebx :edx) :ecx)
 	   (:movl :ecx (:eax :edx))