From: Gábor M. <me...@us...> - 2009-02-04 14:10:31
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv962/src/compiler Modified Files: fndb.lisp Log Message: 1.0.25.8: fix sxhash bug ... brought to light by 1.0.20.27. Declare hashes to be of type HASH (not INDEX). Note that INDEX still is used to mean different things: - a valid index: (integer 0 (array-dimension-limit)) - a "bound" such as the :START arguments: (integer 0 array-dimension-limit) - a "dimension" as in (make-array 10): (integer 0 array-dimension-limit) which leads to all kinds of nastiness with array near the limit. Index: fndb.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v retrieving revision 1.151 retrieving revision 1.152 diff -u -d -r1.151 -r1.152 --- fndb.lisp 26 Dec 2008 18:33:57 -0000 1.151 +++ fndb.lisp 4 Feb 2009 14:10:22 -0000 1.152 @@ -813,10 +813,8 @@ (foldable flushable)) (defknown hash-table-size (hash-table) index (flushable)) (defknown hash-table-test (hash-table) symbol (foldable flushable)) -(defknown sxhash (t) (integer 0 #.sb!xc:most-positive-fixnum) - (#-sb-xc-host foldable flushable)) -(defknown psxhash (t &optional t) (integer 0 #.sb!xc:most-positive-fixnum) - (#-sb-xc-host foldable flushable)) +(defknown sxhash (t) hash (#-sb-xc-host foldable flushable)) +(defknown psxhash (t &optional t) hash (#-sb-xc-host foldable flushable)) ;;;; from the "Arrays" chapter |