From e47260cb36f0f73883eef36af97cfda8e67b08f3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 15 Aug 2020 18:46:00 -0600
Subject: [PATCH] cs: fix memory accounting for large objects

---
 racket/src/ChezScheme/s/mkgc.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/ChezScheme/s/mkgc.ss b/racket/src/ChezScheme/s/mkgc.ss
index 0c0411ca64..2eff7aaefb 100644
--- a/racket/src/ChezScheme/s/mkgc.ss
+++ b/racket/src/ChezScheme/s/mkgc.ss
@@ -2204,7 +2204,7 @@
                "    g = mark_si->generation;"
                "    if (!fully_marked_mask[g]) init_fully_marked_mask(g);"
                "    mark_si->marked_mask = fully_marked_mask[g];"
-               "    mark_si->marked_count = segment_bitmap_bytes;"
+               "    mark_si->marked_count = bytes_per_segment;"
                "    seg++;"
                "  }"
                "  mark_si = SegInfo(end_seg);"