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

fix data/integer-set for 32-bit platforms

Browse Source
This commit is contained in:
Matthew Flatt 2015-08-07 05:25:42 -06:00
parent 0efd052218
commit a55eed9718
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/data/private/count-bits-in-fixnum.rkt
View File

@ -38,7 +38,10 @@
[(_ expr bits0) [(_ expr bits0)
;; Choose at compile time what word length is ;; Choose at compile time what word length is
(let* ([bits (syntax-e #'bits0)] (let* ([bits (syntax-e #'bits0)]
[bits (or bits (if (fixnum? (expt 2 61)) 62 30))] [bits (or bits
;; for portable bytecode, use a fixnum size tha
;; always works:
30)]
[lut [lut
(cond [(<= bits 8) lut8] (cond [(<= bits 8) lut8]
[(<= bits 30) lut30] [(<= bits 30) lut30]