cs: improve make-struct-type on large field counts

This commit is contained in:
Matthew Flatt 2020-02-11 05:43:08 -07:00
parent 56fe13e6f7
commit 7279a59c27

View File

@ -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)]