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

Chez Scheme: fix double counting of some adminstrative GC overhead

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-12 18:57:09 -07:00
parent e782490e3e
commit b33f26415b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/ChezScheme/c/gc.c
View File

@ -3035,8 +3035,10 @@ static void teardown_sweepers(void) {
IGEN g; IGEN g;
S_G.bitmask_overhead[0] += t_tgc->bitmask_overhead[0]; S_G.bitmask_overhead[0] += t_tgc->bitmask_overhead[0];
t_tgc->bitmask_overhead[0] = 0; t_tgc->bitmask_overhead[0] = 0;
for (g = MIN_TG; g <= MAX_TG; g++) for (g = MIN_TG; g <= MAX_TG; g++) {
S_G.bitmask_overhead[g] += t_tgc->bitmask_overhead[g]; S_G.bitmask_overhead[g] += t_tgc->bitmask_overhead[g];
t_tgc->bitmask_overhead[g] = 0; /* needed to avoid double add for main_sweeper_index */
}
S_flush_instruction_cache(t_tgc->tc); S_flush_instruction_cache(t_tgc->tc);
t_tgc->sweeper = main_sweeper_index; t_tgc->sweeper = main_sweeper_index;
t_tgc->queued_fire = 0; t_tgc->queued_fire = 0;