mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-23 18:11:00 -07:00
Code Issues Projects Releases Packages Wiki Activity

The total size of each hash table in ECL-CDB was not stored properly

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-01-06 20:09:26 +01:00
parent b7833ee27d
commit 6c0ae0bc58
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
contrib/ecl-cdb/ecl-cdb.lisp
View file

@ -84,8 +84,7 @@
(defun write-vector (vector stream)
(declare (type (array (unsigned-byte 8) (*)) vector))
(loop for v across vector
do (write-word v stream))
(length vector))
do (write-word v stream)))
(defun to-cdb-hash (key-vector)
(declare (type (array (unsigned-byte 8) (*)) vector))
@ -144,7 +143,8 @@
;; file table can be a bit larger, to avoid many coincidences.
;; Here we use a factor 2.
(loop with length = (* 2 (length table))
with vector = (make-array (* 2 length) :initial-element 0)
with vector = (make-array (* 2 length) :initial-element 0
:element-type '(unsigned-byte 32))
for (hash-key . pos) in table
for index = (mod (ash hash-key -8) length)
do (loop for disp from 0 below length
@ -152,7 +152,8 @@
for record-pos = (aref vector (1+ i))
until (zerop record-pos)
finally (setf (aref vector i) hash-key (aref vector (1+ i)) pos))
finally (return (write-vector vector stream))))
finally (progn (write-vector vector stream)
(return length))))
(defun dump-cdb (cdb)
;; After we have dumped all the records in the file, we append the