mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 20:40:29 +02:00
Code Activity

Fix intset on 32-bit machines

Browse source 
* module/language/cps/intset.scm (*leaf-bits*): Define to 4 on 32-bit
  machines, to stay in fixnum range.
This commit is contained in:
Andy Wingo 2014-07-01 11:30:29 +02:00
parent 0ad455ca6b
commit 93e838423c
1 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

21
module/language/cps/intset.scm
View file

@ -40,7 +40,26 @@
(define-syntax-rule (define-inline name val)
(define-syntax name (identifier-syntax val)))
(define-inline *leaf-bits* 5)
(eval-when (expand)
(use-modules (system base target))
(define-syntax compile-time-cond
(lambda (x)
(syntax-case x (else)
((_ (test body ...) rest ...)
(if (primitive-eval (syntax->datum #'test))
#'(begin body ...)
#'(begin (compile-time-cond rest ...))))
((_ (else body ...))
#'(begin body ...))
((_)
(error "no compile-time-cond expression matched"))))))
(compile-time-cond
((eqv? (target-word-size) 4)
(define-inline *leaf-bits* 4))
((eqv? (target-word-size) 8)
(define-inline *leaf-bits* 5)))
(define-inline *leaf-size* (ash 1 *leaf-bits*))
(define-inline *leaf-mask* (1- *leaf-size*))
(define-inline *branch-bits* 3)