From 254f6a4f142d4922348d15db5f185f98c279976a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 25 Nov 2019 16:23:52 -0700 Subject: [PATCH] cs: fix 'nonatomic allocation in 32-bit mode --- racket/src/cs/rumble/foreign.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss index f333792029..1559c69a22 100644 --- 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