Commit b334db9f authored by Raymond Toy's avatar Raymond Toy

Merge branch 'issue-89-remove-scavenging-of-read-only' into 'master'

Remove scavenging of read-only space.

See merge request !58
parents c60c50da 6af2ad8b
......@@ -36,7 +36,12 @@ linux:build:
- job: linux:install
artifacts: true
script:
- bin/build.sh $bootstrap -R -C "" -o snapshot/bin/lisp
# Do cross compile first
- bin/create-target.sh xtarget x86_linux_clang
- bin/create-target.sh xcross x86_linux_clang
- bin/cross-build-world.sh -crl -B boot-2020-04-1 xtarget xcross src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp
# Regular build using the cross-compiled result
- bin/build.sh $bootstrap -R -C "" -o xtarget/lisp/lisp
- bin/make-dist.sh -I dist linux-4
linux:test:
......@@ -102,7 +107,12 @@ osx:build:
- job: osx:install
artifacts: true
script:
- bin/build.sh $bootstrap -R -C "" -o snapshot/bin/lisp
# Do cross compile first
- bin/create-target.sh xtarget x86_darwin
- bin/create-target.sh xcross x86_darwin
- bin/cross-build-world.sh -crl -B boot-2020-04-1 xtarget xcross src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp
# Regular build using the cross-compiled result
- bin/build.sh $bootstrap -R -C "" -o xtarget/lisp/lisp
- bin/make-dist.sh -I dist darwin-4
osx:test:
......
......@@ -341,6 +341,9 @@
;; address.
#+gencgc
*current-region-end-addr*
;; TODO(issue #89). This needs to be removed. It's harmless to
;; have this, but it should be removed.
#+gencgc
*scavenge-read-only-space*
......
......@@ -363,9 +363,6 @@
*fp-constant-lg2*
*fp-constant-ln2*
;; Used by gencgc.
*scavenge-read-only-space*
;; Multi-process support.
*control-stacks*
......
......@@ -7865,6 +7865,7 @@ 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) -
......@@ -7873,6 +7874,7 @@ garbage_collect_generation(int generation, int raise)
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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment