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

[Frode Vatvedt Fjeld]

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

Modified Files:
	more-macros.lisp 
Log Message:
Added some extra-safe checking to %bignum-bigits.

Date: Tue Jul 13 07:28:05 2004
Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp
diff -u movitz/losp/muerte/more-macros.lisp:1.12 movitz/losp/muerte/more-macros.lisp:1.13
--- movitz/losp/muerte/more-macros.lisp:1.12	Mon Jul 12 04:09:29 2004
+++ movitz/losp/muerte/more-macros.lisp	Tue Jul 13 07:28:05 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Jun  7 15:05:57 2002
 ;;;;                
-;;;; $Id: more-macros.lisp,v 1.12 2004/07/12 11:09:29 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.13 2004/07/13 14:28:05 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -312,7 +312,9 @@
   `(with-inline-assembly (:returns :eax :type (unsigned-byte 14))
      (:compile-form (:result-mode :eax) ,x)
      (:movzxw (:eax ,(bt:slot-offset 'movitz::movitz-bignum 'movitz::length))
-	      :eax)))
+	      :eax)
+     (:testb 3 :al)			; Just to be sure..
+     (:jnz '(:sub-program () (:int 63)))))
 
 ;;; Some macros that aren't implemented, and we want to give compiler errors.