cs: fix 'nonatomic allocation in 32-bit mode

2019-11-25 16:23:52 -07:00 · 2019-11-25 16:23:52 -07:00 · 254f6a4f14
commit 254f6a4f14
parent f3cfac8981
1 changed files with 1 additions and 1 deletions
--- a/racket/src/cs/rumble/foreign.ss
+++ b/racket/src/cs/rumble/foreign.ss
@ -1403,7 +1403,7 @@
   [(eq? mode 'atomic)
    (make-cpointer (make-bytevector size 0) #f)]
   [(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)
    ;; This is not quite the same as traditional Racket, because
    ;; a finalizer is associated with the cpointer (as opposed to