mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-15 10:10:21 +02:00
Code Activity

Don't abort semi if parallelism > 1

Browse source 
Re-interpret parallelism option as a maximum.
This commit is contained in:
Andy Wingo 2023-10-16 21:36:27 +02:00
parent 44a4e1c131
commit a6e34c3594
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/semi.c
View file

@ -578,10 +578,8 @@ int gc_init(const struct gc_options *options, struct gc_stack_addr *stack_base,
fprintf(stderr, "adaptive heap size is currently unimplemented\n"); fprintf(stderr, "adaptive heap size is currently unimplemented\n");
return 0; return 0;
} }
if (options->common.parallelism != 1) { if (options->common.parallelism != 1)
fprintf(stderr, "parallelism unimplemented in semispace copying collector\n"); fprintf(stderr, "warning: parallelism unimplemented in semispace copying collector\n");
return 0;
}
*mut = calloc(1, sizeof(struct gc_mutator)); *mut = calloc(1, sizeof(struct gc_mutator));
if (!*mut) GC_CRASH(); if (!*mut) GC_CRASH();