From 7279a59c27ad4b49c94bcd7600c338924f865f72 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 11 Feb 2020 05:43:08 -0700 Subject: [PATCH] cs: improve `make-struct-type` on large field counts --- racket/src/cs/rumble/struct.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/struct.ss b/racket/src/cs/rumble/struct.ss index 9d81887212..3a5d6b932d 100644 --- a/racket/src/cs/rumble/struct.ss +++ b/racket/src/cs/rumble/struct.ss @@ -509,7 +509,7 @@ prefab-uid #f #f (+ init-count auto-count) ;; Reporting all as mutable, for now: - (sub1 (bitwise-arithmetic-shift-left 1 (+ init-count auto-count))))] + (sub1 (general-arithmetic-shift 1 (+ init-count auto-count))))] [parent-auto*-count (get-field-info-auto*-count parent-fi)] [parent-init*-count (get-field-info-init*-count parent-fi)] [parent-total*-count (get-field-info-total*-count parent-fi)]