Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv20226
Modified Files: inspect.lisp Log Message: Sigh.. another bug in copy-bignum. Now I do hope it's correct.
Date: Tue Jul 13 15:42:39 2004 Author: ffjeld
Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.19 movitz/losp/muerte/inspect.lisp:1.20 --- movitz/losp/muerte/inspect.lisp:1.19 Tue Jul 13 07:29:22 2004 +++ movitz/losp/muerte/inspect.lisp Tue Jul 13 15:42:38 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.19 2004/07/13 14:29:22 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.20 2004/07/13 22:42:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -315,7 +315,7 @@ (defun copy-bignum (old) (check-type old bignum) (let* ((length (%bignum-bigits old)) - (new (malloc-data-words length))) + (new (malloc-data-clumps (1+ (truncate length 2))))) (with-inline-assembly (:returns :eax) (:compile-two-forms (:eax :ebx) new old) (:compile-form (:result-mode :edx) length)