Skip to content
Snippets Groups Projects
Commit 6fea08db authored by rtoy's avatar rtoy
Browse files

code/bit-bash.lisp:

o Change MAX-BITS to #xffffffff.  This fixes (works around) the issue
  reported by Walter Pelissero, reported on cmucl-help, 2008-01-09.
  We will still have problems for sufficiently long strings.

boot-2007-12-1.lisp:
o Boot file to use for the above change.
parent c7582f44
No related branches found
No related tags found
No related merge requests found
(in-package "VM")
(handler-bind ((error (lambda (c)
(declare (ignore c))
(invoke-restart 'continue))))
(defconstant max-bits (1- (ash 1 vm:word-bits))
"The maximum number of bits that can be delt with during a single call."))
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.23 2004/07/14 20:52:38 cwang Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.24 2008/01/18 15:52:44 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -26,8 +26,8 @@ ...@@ -26,8 +26,8 @@
(defconstant unit-bits vm:word-bits (defconstant unit-bits vm:word-bits
"The number of bits to process at a time.") "The number of bits to process at a time.")
(defconstant max-bits (ash most-positive-fixnum -2) (defconstant max-bits (1- (ash 1 vm:word-bits))
"The maximum number of bits that can be delt with during a single call.") "The maximum number of bits that can be dealt with during a single call.")
(deftype unit () (deftype unit ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment