[Git][cmucl/cmucl][master] 2 commits: Address #89: Remove C code to scavenge read-only space

[Raymond Toy]

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/9c0c857dd10067e1cf90ec577a79eb79593c3250...3593ca90f963b97ad330a3761c8539ac1b7b26e6

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9c0c857dd10067e1cf90ec577a79eb79593c3250...3593ca90f963b97ad330a3761c8539ac1b7b26e6
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20210113/001a741b/attachment-0001.html>