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@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))