Raymond Toy pushed to branch master at cmucl / cmucl

Commits: 22e573f3 by Raymond Toy at 2021-01-12T16:44:14-08:00 Address #89: Remove C code to scavenge read-only space

Since we got rid of the symbol `*scavenge-read-only-space*`, we can never scavenge the read-only space, so remove the C code that scavenges the space.

Get rid of the unused var `read_only_space_size` too.

- - - - - 3593ca90 by Raymond Toy at 2021-01-13T01:05:13+00:00 Merge branch 'issue-89-unused-var' into 'master'

Address #89: Remove C code to scavenge read-only space

See merge request cmucl/cmucl!66 - - - - -

1 changed file:

- src/lisp/gencgc.c

Changes:

===================================== src/lisp/gencgc.c ===================================== @@ -7722,7 +7722,7 @@ static void garbage_collect_generation(int generation, int raise) { unsigned long i; - unsigned long read_only_space_size, static_space_size; + unsigned long static_space_size;

#if defined(i386) || defined(__x86_64) invalid_stack_start = (void *) control_stack; @@ -7865,17 +7865,6 @@ garbage_collect_generation(int generation, int raise) printf("Done scavenging the scavenger hooks.\n"); #endif

-#if 0 - if (SymbolValue(SCAVENGE_READ_ONLY_SPACE) != NIL) { - read_only_space_size = - (lispobj *) SymbolValue(READ_ONLY_SPACE_FREE_POINTER) - - read_only_space; - fprintf(stderr, "Scavenge read only space: %ld bytes\n", - read_only_space_size * sizeof(lispobj)); - scavenge(read_only_space, read_only_space_size); - } -#endif - static_space_size = (lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER) - static_space; if (gencgc_verbose > 1)

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9c0c857dd10067e1cf90ec5...