From 9effeef7aba1d685d189daf95c219c7fae45ccde Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 17 Mar 2020 18:23:48 -0600 Subject: [PATCH] cs: fix stencil-vector HAMT for 32-bit platforms --- racket/src/cs/rumble/hamt-stencil.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/hamt-stencil.ss b/racket/src/cs/rumble/hamt-stencil.ss index c32e5fde20..5f1dd3832d 100644 --- a/racket/src/cs/rumble/hamt-stencil.ss +++ b/racket/src/cs/rumble/hamt-stencil.ss @@ -34,7 +34,7 @@ (define (intmap? x) (stencil-vector? x)) ;; 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 3)) (define BNODE-MASK (fx1- (fxsll 1 BNODE-BITS)))