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:

 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;

     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)