steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix hashtable crash

slava 2006-12-04 04:48:48 +00:00
parent 6140178393
commit e8ddc09ab5
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/collections/hashtables.factor
View File

@ -34,7 +34,7 @@ TUPLE: tombstone ;
>r >r [ key@ ] 2keep pick -1 > r> r> if ; inline >r >r [ key@ ] 2keep pick -1 > r> r> if ; inline
: <hash-array> ( n -- array ) : <hash-array> ( n -- array )
1+ 4 * ((empty)) <array> ; inline >fixnum 1+ 4 * ((empty)) <array> ; inline
: init-hash ( hash -- ) : init-hash ( hash -- )
0 over set-hash-count 0 swap set-hash-deleted ; 0 over set-hash-count 0 swap set-hash-deleted ;

3
core/test/collections/hashtables.factor
View File

@ -202,3 +202,6 @@ H{ } clone "cache-test" set
! Resource leak... ! Resource leak...
H{ } "x" set H{ } "x" set
100 [ drop "x" get clear-hash ] each 100 [ drop "x" get clear-hash ] each
! Crash discovered by erg
[ t ] [ 3/4 <hashtable> dup clone = ] unit-test