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

Modified Files: integers.lisp Log Message: Added function ceiling. Moved some bignum operators to inspect.lisp.

Date: Wed Jun 9 13:23:15 2004 Author: ffjeld

Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.28 movitz/losp/muerte/integers.lisp:1.29 --- movitz/losp/muerte/integers.lisp:1.28 Tue Jun 8 18:16:56 2004 +++ movitz/losp/muerte/integers.lisp Wed Jun 9 13:23:15 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.28 2004/06/09 01:16:56 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.29 2004/06/09 20:23:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1242,6 +1242,12 @@ (values quotient remainder)) (t (values (1- quotient) (- remainder)))))))))

+(defun ceiling (number &optional (divisor 1)) + (case (+ (if (minusp number) #b10 0) + (if (minusp divisor) #b01 0)) + (#b00 (truncate (+ number divisor -1) divisor)) + (t (error "Don't know.")))) + (defun rem (dividend divisor) (with-inline-assembly (:returns :eax) (:compile-form (:result-mode :eax) dividend) @@ -1985,35 +1991,3 @@ (t (values (1- q) (+ r divisor)))))) (t (n &optional (divisor 1)) (floor n divisor)))) - -(define-compiler-macro %bignum-bigits (x) - `(with-inline-assembly (:returns :eax) - (:compile-form (:result-mode :eax) ,x) - (:movzxw (:eax #.(bt:slot-offset 'movitz::movitz-bignum - 'movitz::length)) - :ecx) - (:leal ((:ecx #.movitz:+movitz-fixnum-factor+)) - :eax))) - -(defun %bignum-bigits (x) - (%bignum-bigits x)) - -(defun copy-bignum (old) - (check-type old bignum) - (let* ((length (1+ (%bignum-bigits old))) - (new (malloc-data-words length))) - (with-inline-assembly (:returns :eax) - (:compile-two-forms (:eax :ebx) new old) - (:compile-form (:result-mode :edx) length) - copy-bignum-loop - (:subl #.movitz:+movitz-fixnum-factor+ :edx) - (:movl (:ebx :edx #.movitz:+other-type-offset+) :ecx) - (:movl :ecx (:eax :edx #.movitz:+other-type-offset+)) - (:jnz 'copy-bignum-loop)))) - -(defun print-bignum (x) - (check-type x bignum) - (dotimes (i (1+ (%bignum-bigits x))) - (format t "~8,'0X " (memref x -6 i :unsigned-byte32))) - (terpri) - (values)) \ No newline at end of file