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

Chez Scheme: unbreak 32-bit build

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-08 05:56:56 -07:00
parent 7a12b4ac93
commit e40e86ae5a
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/ChezScheme/s/cpnanopass.ss
View File

@ -3594,7 +3594,7 @@
(define build-double-scale (define build-double-scale
(lambda (e) (lambda (e)
(constant-case ptr-bits (constant-case ptr-bits
[(32) (%inline sll ,e 1)] [(32) (%inline sll ,e (immediate 1))]
[(64) e] [(64) e]
[else ($oops 'build-double-scale "unknown ptr-bit size ~s" (constant ptr-bits))]))) [else ($oops 'build-double-scale "unknown ptr-bit size ~s" (constant ptr-bits))])))
(define build-unfix (define build-unfix