suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix stencil-vector HAMT for 32-bit platforms

Browse Source
This commit is contained in:
Matthew Flatt 2020-03-17 18:23:48 -06:00
parent 3390896a59
commit 9effeef7ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/rumble/hamt-stencil.ss
View File

@ -34,7 +34,7 @@
(define (intmap? x) (stencil-vector? x)) (define (intmap? x) (stencil-vector? x))
;; log of node size: ;; log of node size:
(define BNODE-BITS (if (fx> (stencil-vector-mask-width) 24) (define BNODE-BITS (if (fx> (stencil-vector-mask-width) 26)
4 4
3)) 3))
(define BNODE-MASK (fx1- (fxsll 1 BNODE-BITS))) (define BNODE-MASK (fx1- (fxsll 1 BNODE-BITS)))