suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chez Scheme: avoid copying huge objects during GC

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-08 19:22:09 -07:00
parent 42f3825738
commit fe54cbc63f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/ChezScheme/c/segment.c
View File

@ -338,12 +338,18 @@ iptr S_find_segments(creator, s, g, n) thread_gc *creator; ISPC s; IGEN g; iptr
/* we couldn't find space, so ask for more */ /* we couldn't find space, so ask for more */
si = allocate_segments(n); si = allocate_segments(n);
for (nextsi = si; n > 0; n -= 1, nextsi += 1) { for (nextsi = si, i = 0; i < n; i += 1, nextsi += 1) {
initialize_seginfo(nextsi, creator, s, g); initialize_seginfo(nextsi, creator, s, g);
/* add segment to appropriate list of occupied segments */ /* add segment to appropriate list of occupied segments */
nextsi->next = S_G.occupied_segments[g][s]; nextsi->next = S_G.occupied_segments[g][s];
S_G.occupied_segments[g][s] = nextsi; S_G.occupied_segments[g][s] = nextsi;
} }
/* preemptively mark a huge allocation as immobile, since
we don't want the GC to ever copy it */
if (n > 128)
si->must_mark = MUST_MARK_INFINITY;
return si->number; return si->number;
} }