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

[Frode Vatvedt Fjeld]

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

Modified Files:
	bignums.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:53:56 2004
Author: ffjeld

Index: movitz/losp/muerte/bignums.lisp
diff -u movitz/losp/muerte/bignums.lisp:1.4 movitz/losp/muerte/bignums.lisp:1.5
--- movitz/losp/muerte/bignums.lisp:1.4	Mon Jul 19 07:44:21 2004
+++ movitz/losp/muerte/bignums.lisp	Tue Jul 20 01:53:56 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Jul 17 19:42:57 2004
 ;;;;                
-;;;; $Id: bignums.lisp,v 1.4 2004/07/19 14:44:21 ffjeld Exp $
+;;;; $Id: bignums.lisp,v 1.5 2004/07/20 08:53:56 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -36,7 +36,7 @@
 	    (:movl (:eax ,movitz:+other-type-offset+) :ecx)
 	    (:shrl 16 :ecx)
 	    (:jz '(:sub-program (should-never-happen)
-		   (:int 107)))
+		   (:int 63)))
 	   shrink-loop
 	    (:cmpl 4 :ecx)
 	    (:je 'shrink-no-more)
@@ -54,9 +54,9 @@
 		   (:jmp 'done)))
 	   shrink-done
 	    (:testb 3 :cl)
-	    (:jnz '(:sub-program () (:int 107)))
+	    (:jnz '(:sub-program () (:int 63)))
 	    (:testw :cx :cx)
-	    (:jz '(:sub-program () (:int 107)))
+	    (:jz '(:sub-program () (:int 63)))
 	    (:movw :cx (:eax ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::length)))
 	   done
 	    )))
@@ -64,14 +64,14 @@
 
 (defun copy-bignum (old)
   (check-type old bignum)
-  (let* ((length (ceiling (bignum-integer-length old) 32))
+  (let* ((length (%bignum-bigits old))
 	 (new (malloc-non-pointer-words (1+ length))))
     (with-inline-assembly (:returns :eax)
       (:compile-two-forms (:eax :ebx) new old)
       (:compile-form (:result-mode :edx) length)
      copy-bignum-loop
-      (:movl (:ebx :edx #.movitz:+other-type-offset+) :ecx)
-      (:movl :ecx (:eax :edx #.movitz:+other-type-offset+))
+      (:movl (:ebx :edx (:offset movitz-bignum type)) :ecx)
+      (:movl :ecx (:eax :edx (:offset movitz-bignum type)))
       (:subl 4 :edx)
       (:jnc 'copy-bignum-loop))))