January 2021 - cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl] Pushed new branch issue-89-update-page-flags
by Raymond Toy 04 Jan '21

04 Jan '21

Raymond Toy pushed new branch issue-89-update-page-flags at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-89-update-page-flags You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 3 commits: Fix #90: Remove unused FP static symbols on x86
by Raymond Toy 04 Jan '21

04 Jan '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 952c3759 by Raymond Toy at 2021-01-03T15:33:35-08:00 Fix #90: Remove unused FP static symbols on x86 We no longer support x87, so the static symbols for the long float constants aren't used anymore. And we don't use `*fp-constant-1d0*` anywhere, so we can remove the constants for 1f0 and 1d0. - - - - - 852e455b by Raymond Toy at 2021-01-04T09:18:59-08:00 Rename *fp-constant-0s0* to *fp-constant-0f0* Besides the obvious, we need to update genesis to fill in the slot with the correct value. - - - - - 18a3be34 by Raymond Toy at 2021-01-04T17:41:32+00:00 Merge branch 'issue-90-remove-unused-static-float-syms' into 'master' Fix #90: Remove unused FP static symbols on x86 Closes #90 See merge request cmucl/cmucl!60 - - - - - 4 changed files: - src/code/x86-vm.lisp - src/compiler/generic/new-genesis.lisp - src/compiler/x86/float-sse2.lisp - src/compiler/x86/parms.lisp Changes: ===================================== src/code/x86-vm.lisp ===================================== @@ -430,18 +430,8 @@ ;;; cases. Note these are initialise by genesis as they are needed ;;; early. ;;; -(defvar *fp-constant-0s0*) -(defvar *fp-constant-1s0*) +(defvar *fp-constant-0f0*) (defvar *fp-constant-0d0*) -(defvar *fp-constant-1d0*) -;;; The long-float constants. -(defvar *fp-constant-0l0*) -(defvar *fp-constant-1l0*) -(defvar *fp-constant-pi*) -(defvar *fp-constant-l2t*) -(defvar *fp-constant-l2e*) -(defvar *fp-constant-lg2*) -(defvar *fp-constant-ln2*) ;;; The current alien stack pointer; saved/restored for non-local ;;; exits. ===================================== src/compiler/generic/new-genesis.lisp ===================================== @@ -914,22 +914,8 @@ (macrolet ((frob (name pkg value) `(cold-setq (cold-intern (intern ,name ,pkg)) ,value))) (frob "*FP-CONSTANT-0D0*" "X86" (number-to-core 0d0)) - (frob "*FP-CONSTANT-1D0*" "X86" (number-to-core 1d0)) - (frob "*FP-CONSTANT-0S0*" "X86" (number-to-core 0s0)) - (frob "*FP-CONSTANT-1S0*" "X86" (number-to-core 1s0)) - #+long-float - (when (c:backend-featurep :long-float) - (frob "*FP-CONSTANT-0L0*" "X86" (number-to-core 0l0)) - (frob "*FP-CONSTANT-1L0*" "X86" (number-to-core 1l0)) - (frob "*FP-CONSTANT-PI*" "X86" (number-to-core pi)) - (frob "*FP-CONSTANT-L2T*" "X86" (number-to-core (log 10l0 2l0))) - (frob "*FP-CONSTANT-L2E*" "X86" - (number-to-core - (log 2.718281828459045235360287471352662L0 2l0))) - (frob "*FP-CONSTANT-LG2*" "X86" (number-to-core (log 2l0 10l0))) - (frob "*FP-CONSTANT-LN2*" "X86" - (number-to-core - (log 2l0 2.718281828459045235360287471352662L0)))) + (frob "*FP-CONSTANT-0F0*" "X86" (number-to-core 0f0)) + (when (c:backend-featurep :gencgc) (frob "*SCAVENGE-READ-ONLY-SPACE*" "X86" (cold-intern nil))))) ===================================== src/compiler/x86/float-sse2.lisp ===================================== @@ -449,7 +449,7 @@ (:results (y :scs (descriptor-reg))) (:generator 2 (ecase (c::constant-value (c::tn-leaf x)) - (0f0 (load-symbol-value y *fp-constant-0s0*)) + (0f0 (load-symbol-value y *fp-constant-0f0*)) #+nil (1f0 (load-symbol-value y *fp-constant-1s0*)) (0d0 (load-symbol-value y *fp-constant-0d0*)) ===================================== src/compiler/x86/parms.lisp ===================================== @@ -351,17 +351,7 @@ ;; The FP constants *fp-constant-0d0* - *fp-constant-1d0* - *fp-constant-0s0* - *fp-constant-1s0* - ;; Following are all long-floats. - *fp-constant-0l0* - *fp-constant-1l0* - *fp-constant-pi* - *fp-constant-l2t* - *fp-constant-l2e* - *fp-constant-lg2* - *fp-constant-ln2* + *fp-constant-0f0* ;; Multi-process support. *control-stacks* View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e7916afe7c6ab7ef60abd4… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e7916afe7c6ab7ef60abd4… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-90-remove-unused-static-float-syms] Rename *fp-constant-0s0* to *fp-constant-0f0*
by Raymond Toy 04 Jan '21

04 Jan '21

Raymond Toy pushed to branch issue-90-remove-unused-static-float-syms at cmucl / cmucl Commits: 852e455b by Raymond Toy at 2021-01-04T09:18:59-08:00 Rename *fp-constant-0s0* to *fp-constant-0f0* Besides the obvious, we need to update genesis to fill in the slot with the correct value. - - - - - 4 changed files: - src/code/x86-vm.lisp - src/compiler/generic/new-genesis.lisp - src/compiler/x86/float-sse2.lisp - src/compiler/x86/parms.lisp Changes: ===================================== src/code/x86-vm.lisp ===================================== @@ -430,7 +430,7 @@ ;;; cases. Note these are initialise by genesis as they are needed ;;; early. ;;; -(defvar *fp-constant-0s0*) +(defvar *fp-constant-0f0*) (defvar *fp-constant-0d0*) ;;; The current alien stack pointer; saved/restored for non-local ===================================== src/compiler/generic/new-genesis.lisp ===================================== @@ -914,22 +914,8 @@ (macrolet ((frob (name pkg value) `(cold-setq (cold-intern (intern ,name ,pkg)) ,value))) (frob "*FP-CONSTANT-0D0*" "X86" (number-to-core 0d0)) - (frob "*FP-CONSTANT-1D0*" "X86" (number-to-core 1d0)) - (frob "*FP-CONSTANT-0S0*" "X86" (number-to-core 0s0)) - (frob "*FP-CONSTANT-1S0*" "X86" (number-to-core 1s0)) - #+long-float - (when (c:backend-featurep :long-float) - (frob "*FP-CONSTANT-0L0*" "X86" (number-to-core 0l0)) - (frob "*FP-CONSTANT-1L0*" "X86" (number-to-core 1l0)) - (frob "*FP-CONSTANT-PI*" "X86" (number-to-core pi)) - (frob "*FP-CONSTANT-L2T*" "X86" (number-to-core (log 10l0 2l0))) - (frob "*FP-CONSTANT-L2E*" "X86" - (number-to-core - (log 2.718281828459045235360287471352662L0 2l0))) - (frob "*FP-CONSTANT-LG2*" "X86" (number-to-core (log 2l0 10l0))) - (frob "*FP-CONSTANT-LN2*" "X86" - (number-to-core - (log 2l0 2.718281828459045235360287471352662L0)))) + (frob "*FP-CONSTANT-0F0*" "X86" (number-to-core 0f0)) + (when (c:backend-featurep :gencgc) (frob "*SCAVENGE-READ-ONLY-SPACE*" "X86" (cold-intern nil))))) ===================================== src/compiler/x86/float-sse2.lisp ===================================== @@ -449,7 +449,7 @@ (:results (y :scs (descriptor-reg))) (:generator 2 (ecase (c::constant-value (c::tn-leaf x)) - (0f0 (load-symbol-value y *fp-constant-0s0*)) + (0f0 (load-symbol-value y *fp-constant-0f0*)) #+nil (1f0 (load-symbol-value y *fp-constant-1s0*)) (0d0 (load-symbol-value y *fp-constant-0d0*)) ===================================== src/compiler/x86/parms.lisp ===================================== @@ -351,7 +351,7 @@ ;; The FP constants *fp-constant-0d0* - *fp-constant-0s0* + *fp-constant-0f0* ;; Multi-process support. *control-stacks* View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/852e455b2a027776b8e50bd… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/852e455b2a027776b8e50bd… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-90-remove-unused-static-float-syms
by Raymond Toy 03 Jan '21

03 Jan '21

Raymond Toy pushed new branch issue-90-remove-unused-static-float-syms at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-90-remove-unused-st… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Address #89: Really remove *scavenge-read-only-space*
by Raymond Toy 03 Jan '21

03 Jan '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: cf7c8acc by Raymond Toy at 2021-01-03T14:19:39-08:00 Address #89: Really remove *scavenge-read-only-space* The previous changes didn't actually completely remove `*scavenge-read-only-space*`. We removed it from the static space, but it's also defined in `code/x86-vm.lisp` so we need to remove it from there as well. And we forgot to commit the boot file, so we're doing that now. - - - - - e7916afe by Raymond Toy at 2021-01-03T22:56:09+00:00 Merge branch 'issue-89-really-remove-scavenge-read-only' into 'master' Address #89: Really remove *scavenge-read-only-space* See merge request cmucl/cmucl!59 - - - - - 2 changed files: - + src/bootfiles/21d/boot-2020-04-1.lisp - src/code/x86-vm.lisp Changes: ===================================== src/bootfiles/21d/boot-2020-04-1.lisp ===================================== @@ -0,0 +1,12 @@ +;; Simple cross-compile script to remove `*scavenge-read-only-space*` +;; which is no longer needed +;; +;; Nothing special needs to be done for the cross-compile. Just use +;; this file for the -B option (not really necessary), and use the +;; standard cross-compile scripts in src/tools/cross-scripts. +;; +;; cross-build-world.sh -crl -B boot-2020-04-1 xtarget xcross src/tools/cross-scripts/cross-foo.lisp old-lisp +;; +;; x86: cross-x86-x86 +;; sparc: cross-sparc-sparc + ===================================== src/code/x86-vm.lisp ===================================== @@ -443,9 +443,6 @@ (defvar *fp-constant-lg2*) (defvar *fp-constant-ln2*) -;;; Enable/Disable scavenging of the read-only space. -(defvar *scavenge-read-only-space* nil) - ;;; The current alien stack pointer; saved/restored for non-local ;;; exits. (defvar *alien-stack*) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b334db9faee003375a25f5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b334db9faee003375a25f5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-89-really-remove-scavenge-read-only
by Raymond Toy 03 Jan '21

03 Jan '21

Raymond Toy pushed new branch issue-89-really-remove-scavenge-read-only at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-89-really-remove-sc… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Remove scavenging of read-only space.
by Raymond Toy 03 Jan '21

03 Jan '21

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 6af2ad8b by Raymond Toy at 2021-01-03T17:55:43+00:00 Remove scavenging of read-only space. `*SCAVENGE-READ-ONLY-SPACE*` is always set to `NIL`, and it's highly unlikely any one ever sets it. I (rtoy) haven't done that in decades at least. So, remove this static symbol, and remove the C code that tests for this to determine if the read-only space should be scavenged. This requires a very simple cross-compile to remove the symbol. See boot-2020-04-1.lisp for very simple instructions. We currently on do this for x86 since we can't test on sparc right now. Update CI to do a cross-compile. Addresses #89 - - - - - b334db9f by Raymond Toy at 2021-01-03T17:55:43+00:00 Merge branch 'issue-89-remove-scavenging-of-read-only' into 'master' Remove scavenging of read-only space. See merge request cmucl/cmucl!58 - - - - - 4 changed files: - .gitlab-ci.yml - src/compiler/sparc/parms.lisp - src/compiler/x86/parms.lisp - src/lisp/gencgc.c Changes: ===================================== .gitlab-ci.yml ===================================== @@ -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: ===================================== src/compiler/sparc/parms.lisp ===================================== @@ -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* ===================================== src/compiler/x86/parms.lisp ===================================== @@ -363,9 +363,6 @@ *fp-constant-lg2* *fp-constant-ln2* - ;; Used by gencgc. - *scavenge-read-only-space* - ;; Multi-process support. *control-stacks* ===================================== src/lisp/gencgc.c ===================================== @@ -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; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c60c50da55aa3ec4d88b31… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c60c50da55aa3ec4d88b31… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-89-remove-scavenging-of-read-only] Build using the cross-compiled binary
by Raymond Toy 03 Jan '21

03 Jan '21

Raymond Toy pushed to branch issue-89-remove-scavenging-of-read-only at cmucl / cmucl Commits: 22b54c71 by Raymond Toy at 2021-01-03T09:12:36-08:00 Build using the cross-compiled binary Fix another typo for darwin. We want to build lisp using the just-build cross-compiled binary instead of the snapshot. Duh! - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -112,7 +112,7 @@ osx:build: - 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 snapshot/bin/lisp + - bin/build.sh $bootstrap -R -C "" -o xtarget/lisp/lisp - bin/make-dist.sh -I dist darwin-4 osx:test: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/22b54c71cc7ee438e2ce013… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/22b54c71cc7ee438e2ce013… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-89-remove-scavenging-of-read-only] Use correct dir names for cross compile
by Raymond Toy 03 Jan '21

03 Jan '21

Raymond Toy pushed to branch issue-89-remove-scavenging-of-read-only at cmucl / cmucl Commits: 18980862 by Raymond Toy at 2021-01-02T20:23:53-08:00 Use correct dir names for cross compile A typo. The directory names are xtarget/xcross not xtarget-x86/xcross-x86. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -39,7 +39,7 @@ linux:build: # 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-x86/ xcross-x86/ src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp + - 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 @@ -110,7 +110,7 @@ osx:build: # 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-x86/ xcross-x86/ src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp + - 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 snapshot/bin/lisp - bin/make-dist.sh -I dist darwin-4 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/18980862a71eac3e16122c4… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/18980862a71eac3e16122c4… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-89-remove-scavenging-of-read-only
by Raymond Toy 02 Jan '21

02 Jan '21

Raymond Toy pushed new branch issue-89-remove-scavenging-of-read-only at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-89-remove-scavengin… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0