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

cs: fix 'nonatomic allocation in 32-bit mode

Browse Source
This commit is contained in:
Matthew Flatt 2019-11-25 16:23:52 -07:00
parent f3cfac8981
commit 254f6a4f14
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/foreign.ss
View File

@ -1403,7 +1403,7 @@
[(eq? mode 'atomic) [(eq? mode 'atomic)
(make-cpointer (make-bytevector size 0) #f)] (make-cpointer (make-bytevector size 0) #f)]
[(eq? mode 'nonatomic) [(eq? mode 'nonatomic)
(make-cpointer (#%make-vector (quotient size 8) 0) #f)] (make-cpointer (#%make-vector (quotient size ptr-size-in-bytes) 0) #f)]
[(eq? mode 'atomic-interior) [(eq? mode 'atomic-interior)
;; This is not quite the same as traditional Racket, because ;; This is not quite the same as traditional Racket, because
;; a finalizer is associated with the cpointer (as opposed to ;; a finalizer is associated with the cpointer (as opposed to