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

[Git][cmucl/cmucl][master] Get rid of FPU_MODE
by Raymond Toy 30 Aug '18

30 Aug '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 9d2590c0 by Raymond Toy at 2018-08-28T22:00:19Z Get rid of FPU_MODE This was used to selecte whether we were building for x87 or sse2, but we dropped support for x87 a long while ago. Remove this var. - - - - - 1 changed file: - bin/build.sh Changes: ===================================== bin/build.sh ===================================== @@ -144,12 +144,11 @@ buildit () fi $TOOLDIR/load-world.sh $TARGET "$VERSION" || { echo "Failed: $TOOLDIR/load-world.sh"; exit 1; } - $TARGET/lisp/lisp -batch -noinit -nositeinit $FPU_MODE < /dev/null || { echo "Failed: $TARGET/lisp/lisp -batch -noinit $FPU_MODE"; exit 1; } + $TARGET/lisp/lisp -batch -noinit -nositeinit < /dev/null || { echo "Failed: $TARGET/lisp/lisp -batch -noinit $FPU_MODE"; exit 1; } return 0; fi } -FPU_MODE= BUILDWORLD="$TOOLDIR/build-world.sh" BUILD_POT="yes" UPDATE_TRANS= View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/9d2590c07eb51011a23884c27… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/9d2590c07eb51011a23884c27… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Add support for compiling with clang on x86/linux
by Raymond Toy 25 Aug '18

25 Aug '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 82bf2c72 by Raymond Toy at 2018-08-25T23:51:54Z Add support for compiling with clang on x86/linux Add `Config.x86_linux_clang` to use clang instead of gcc to build cmucl. update `create-target.sh` so that it sets the motif variant correctly when using `Config.x86_linux_clang` See issue #68. With this config, Fedora 28 successfully builds cmucl and passes all the tests. - - - - - 2 changed files: - bin/create-target.sh - + src/lisp/Config.x86_linux_clang Changes: ===================================== bin/create-target.sh ===================================== @@ -83,7 +83,7 @@ case $uname_s in hp700*) motif_variant=hpux_cc ;; pmax_mach) motif_variant=pmax_mach ;; sgi*) motif_variant=irix ;; - x86_linux|linux*) motif_variant=x86 ;; + x86_linux*|linux*) motif_variant=x86 ;; esac } [ -f src/motif/server/Config.$motif_variant ] || quit "No such motif-variant could be found: Config.$motif_variant" ===================================== src/lisp/Config.x86_linux_clang ===================================== @@ -0,0 +1,15 @@ +# -*- Mode: makefile -*- +include Config.x86_common + +CC = clang +CPPFLAGS += -m32 -D__NO_CTYPE -D_GNU_SOURCE +CFLAGS += -march=pentium4 -mfpmath=sse -mtune=generic + +UNDEFSYMPATTERN = -Xlinker -u -Xlinker & +ASSEM_SRC += linux-stubs.S +OS_SRC += Linux-os.c elf.c +OS_LIBS = -ldl +OS_LINK_FLAGS = -m32 -rdynamic -Xlinker --export-dynamic -Xlinker -Map -Xlinker foo +OS_LINK_FLAGS += -Wl,-z,noexecstack + +EXEC_FINAL_OBJ = exec-final.o View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/82bf2c727ba1d3c461fa360aa… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/82bf2c727ba1d3c461fa360aa… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Set label correctly.
by Raymond Toy 23 Aug '18

23 Aug '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 14f72f54 by Raymond Toy at 2018-08-23T00:26:05Z Set label correctly. It's a tilde, not dash. - - - - - 1d6d12de by Raymond Toy at 2018-08-23T00:27:01Z Set label to feature - - - - - 2 changed files: - .gitlab/issue_templates/Bug.md - .gitlab/issue_templates/Feature.md Changes: ===================================== .gitlab/issue_templates/Bug.md ===================================== @@ -21,4 +21,4 @@ If applicable, add screenshots to help explain your problem. **Additional context** Add any other context about the problem here. -/label -bug \ No newline at end of file +/label ~bug ===================================== .gitlab/issue_templates/Feature.md ===================================== @@ -6,3 +6,5 @@ If you have a prototype, provide links to illustrate this addition. This is the **Describe the feature in more detail** Provide more information to describe the feature. + +/label ~feature View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/1894fbfe99d979fe79eb439b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/1894fbfe99d979fe79eb439b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Add template for Bugs
by Raymond Toy 23 Aug '18

23 Aug '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 7a6a0e19 by Raymond Toy at 2018-08-23T00:16:10Z Add template for Bugs - - - - - 1894fbfe by Raymond Toy at 2018-08-23T00:19:24Z Add template for Feature requests - - - - - 2 changed files: - + .gitlab/issue_templates/Bug.md - + .gitlab/issue_templates/Feature.md Changes: ===================================== .gitlab/issue_templates/Bug.md ===================================== @@ -0,0 +1,24 @@ +**Describe the bug** +A clear and concise description of what the bug is. + +**To Reproduce** +Steps to reproduce the behavior: +1. Go to '...' +2. Click on '....' +3. Scroll down to '....' +4. See error + +**Expected behavior** +A clear and concise description of what you expected to happen. + +**Screenshots** +If applicable, add screenshots to help explain your problem. + +**Desktop (please complete the following information):** + - OS: [e.g. Linux] + - Version [e.g. 21c] + +**Additional context** +Add any other context about the problem here. + +/label -bug \ No newline at end of file ===================================== .gitlab/issue_templates/Feature.md ===================================== @@ -0,0 +1,8 @@ +**Describe the feature** +Briefly describe the feature you would like see. + +**Is there a prototype?** +If you have a prototype, provide links to illustrate this addition. This is the best way to propose a new feature. + +**Describe the feature in more detail** +Provide more information to describe the feature. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/2de12cd70652794979529cdf… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/2de12cd70652794979529cdf… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Fix compiler warning
by Raymond Toy 05 Aug '18

05 Aug '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 2de12cd7 by Raymond Toy at 2018-08-05T23:46:44Z Fix compiler warning clang complains: warning: incompatible pointer to integer conversion passing 'lispobj *' (aka 'unsigned long *') to parameter of type 'lispobj' (aka 'unsigned long'); dereference with * [-Wint-conversion] || in_range_p(addr, control_stack, control_stack_size) So cast control_stack to lispobj. Same complaint for binding_stack too. - - - - - 1 changed file: - src/lisp/Linux-os.c Changes: ===================================== src/lisp/Linux-os.c ===================================== --- a/src/lisp/Linux-os.c +++ b/src/lisp/Linux-os.c @@ -385,8 +385,8 @@ valid_addr(os_vm_address_t addr) || in_range_p(addr, STATIC_SPACE_START, static_space_size) || in_range_p(addr, DYNAMIC_0_SPACE_START, dynamic_space_size) || in_range_p(addr, DYNAMIC_1_SPACE_START, dynamic_space_size) - || in_range_p(addr, control_stack, control_stack_size) - || in_range_p(addr, binding_stack, binding_stack_size)) + || in_range_p(addr, (lispobj) control_stack, control_stack_size) + || in_range_p(addr, (lispobj) binding_stack, binding_stack_size)) return TRUE; return FALSE; } View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/2de12cd70652794979529cdfc… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/2de12cd70652794979529cdfc… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Export more symbols in defpackage for xlib.
by Raymond Toy 05 Aug '18

05 Aug '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: cb251bbe by Raymond Toy at 2018-08-05T01:46:45Z Export more symbols in defpackage for xlib. The compiler complained that these symbols were also being exported from the XLIB package. Just add them to the defpackage to silence the warnings. - - - - - 7c79326d by Raymond Toy at 2018-08-05T01:50:55Z Add %UNARY-FROUND to exports of defpackage for KERNEL. - - - - - 2 changed files: - src/clx/package.lisp - src/code/exports.lisp Changes: ===================================== src/clx/package.lisp ===================================== --- a/src/clx/package.lisp +++ b/src/clx/package.lisp @@ -177,4 +177,93 @@ wm-size-hints-user-specified-position-p wm-size-hints-user-specified-size-p wm-size-hints-width wm-size-hints-width-inc wm-size-hints-win-gravity wm-size-hints-x wm-size-hints-y wm-zoom-hints write-bitmap-file - write-resources xatom)) + write-resources xatom + picture-subwindow-mode picture-format-id + mode-info-hsyncstart + mode-info + xfree86-vidmode-get-mode-line + picture-drawable + picture-alpha-y-origin + make-mode-info + shape-mask + xfree86-vidmode-get-viewport + render-query-version + shape-rectangles + xfree86-vidmode-select-next-mode + xfree86-vidmode-set-gamma + render-composite-glyphs + xfree86-vidmode-get-dotclocks + render-trapezoids + xfree86-vidmode-get-all-mode-lines + mode-info-hskew + picture-format-type + xfree86-vidmode-get-gamma-ramp + render-create-picture + picture-format-blue-byte + shape-query-extents + xfree86-vidmode-validate-mode-line + shape-offset + shape-input-selected-p + mode-info-vsyncend + shape-select-input + screen-saver-get-idle + mode-info-vtotal + picture-format-depth + picture-clip-x-origin + picture-format-alpha-byte + screen-saver-query-info + xfree86-vidmode-set-gamma-ramp + xfree86-vidmode-switch-to-mode + mode-info-vdisplay + xfree86-vidmode-delete-mode-line + xfree86-vidmode-set-viewport + picture-dither + picture-format-colormap + xfree86-vidmode-lock-mode-switch + render-triangles + xfree86-vidmode-add-mode-line + picture-component-alpha + xfree86-vidmode-get-permissions + shape-get-rectangles + shape-query-version + mode-info-hsyncend + mode-info-hdisplay + picture-repeat + picture-graphics-exposures + xfree86-vidmode-query-version + screen-saver-query-version + find-window-picture-format + render-add-glyph-from-picture + mode-info-private + xfree86-vidmode-get-gamma + picture-alpha-map + xfree86-vidmode-mod-mode-line + mode-info-htotal + render-free-picture + picture-poly-mode + picture-format-green-byte + render-free-glyph-set + render-free-glyphs + shape-combine + render-free-glyph + mode-info-flags + render-fill-rectangle + picture-clip-y-origin + mode-info-vsyncstart + mode-info-privsize + picture-poly-edge + render-composite + picture-format-red-byte + render-add-glyph + picture-format-display + render-reference-glyph-set + xfree86-vidmode-get-gamma-ramp-size + find-matching-picture-formats + mode-info-dotclock + xfree86-vidmode-set-client-version + picture-clip-mask + picture-alpha-x-origin + xfree86-vidmode-get-monitor + render-create-glyph-set + xfree86-vidmode-switch-mode + xfree86-vidmode-select-prev-mode)) ===================================== src/code/exports.lisp ===================================== --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -2530,7 +2530,8 @@ "SET-SYMBOL-VALUE-CONDITIONAL" "ATOMIC-POP-SYMBOL-VALUE" "ATOMIC-PUSHA" - "ATOMIC-PUSHD") + "ATOMIC-PUSHD" + "%UNARY-FROUND") #+x87 (:export "%COS-QUICK" "%SIN-QUICK" "%TAN-QUICK") ;;#+double-double View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/0c427fc137491327a31e997b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/0c427fc137491327a31e997b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Remove extra closing paren
by Raymond Toy 27 Jul '18

27 Jul '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 0c427fc1 by Raymond Toy at 2018-07-27T17:51:02Z Remove extra closing paren - - - - - 1 changed file: - src/code/rand-xoroshiro.lisp Changes: ===================================== src/code/rand-xoroshiro.lisp ===================================== --- a/src/code/rand-xoroshiro.lisp +++ b/src/code/rand-xoroshiro.lisp @@ -492,7 +492,7 @@ (error 'simple-type-error :expected-type '(or (integer 1) (float (0.0))) :datum arg :format-control _"Argument is not a positive integer or a positive float: ~S") - :format-arguments (list arg))))) + :format-arguments (list arg)))) ;; Jump function for the generator. See the jump function in ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/0c427fc137491327a31e997b7… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/0c427fc137491327a31e997b7… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Remove unused vars in WITH-FLOAT-TRAPS macro*
by Raymond Toy 22 Jul '18

22 Jul '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 4915f467 by Raymond Toy at 2018-07-22T10:14:55-07:00 Remove unused vars in WITH-FLOAT-TRAPS macro* The TRAPS and EXCEPTION vars in the WITH-FLOAT-TRAPS were unused. Remove them. Also add some tests for WITH-FLOAT-TRAPS-MASKED to verify that the traps are masked. - - - - - 2 changed files: - src/code/float-trap.lisp - tests/float.lisp Changes: ===================================== src/code/float-trap.lisp ===================================== --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -445,9 +445,7 @@ `(progn (defmacro ,macro-name (traps &body body) ,docstring - (let ((traps (dpb (float-trap-mask traps) float-traps-byte 0)) - (exceptions (dpb (float-trap-mask traps) float-sticky-bits 0)) - (trap-mask (dpb (lognot (float-trap-mask traps)) + (let ((trap-mask (dpb (lognot (float-trap-mask traps)) float-traps-byte #xffffffff)) (exception-mask (dpb (lognot (vm::float-trap-mask traps)) float-sticky-bits #xffffffff)) ===================================== tests/float.lisp ===================================== --- a/tests/float.lisp +++ b/tests/float.lisp @@ -116,3 +116,25 @@ f e))))) +(define-test float-traps-masked + ;; inf-inf signals invalid, which is masked so the result is NaN. + (assert-true + (ext:float-nan-p + (ext:with-float-traps-masked (:invalid) + (- ext:double-float-positive-infinity + ext:double-float-positive-infinity)))) + + ;; Divide-by-zero is masked so dividing by zero returns infinity + (assert-true + (ext:float-infinity-p + (ext:with-float-traps-masked (:divide-by-zero) + (/ 100d0 0d0)))) + + ;; Overflow is masked so 100 * most-positive-double returns infinity + (assert-true + (ext:float-infinity-p + (ext:with-float-traps-masked (:overflow) + (* 100 most-negative-double-float))))) + + + \ No newline at end of file View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/4915f4670f33130cf2d88b4e3… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/4915f4670f33130cf2d88b4e3… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Default RNG for x86 and sparc is :random-xoroshiro
by Raymond Toy 22 Jul '18

22 Jul '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 0a2e45d4 by Raymond Toy at 2018-07-21T18:03:44-07:00 Default RNG for x86 and sparc is :random-xoroshiro Replace :random-mt19937 with :random-xoroshiro in the cross-compile scripts. - - - - - 2 changed files: - src/tools/cross-scripts/cross-sparc-sparc.lisp - src/tools/cross-scripts/cross-x86-x86.lisp Changes: ===================================== src/tools/cross-scripts/cross-sparc-sparc.lisp ===================================== --- a/src/tools/cross-scripts/cross-sparc-sparc.lisp +++ b/src/tools/cross-scripts/cross-sparc-sparc.lisp @@ -18,7 +18,7 @@ :relative-package-names ; Relative package names from Allegro :conservative-float-type :hash-new - :random-mt19937 ; MT-19937 generator + :random-xoroshiro ; RNG generator :cmu ; Announce this is CMUCL :cmu20 :cmu20a ; Current version identifier :modular-arith ; Modular arithmetic ===================================== src/tools/cross-scripts/cross-x86-x86.lisp ===================================== --- a/src/tools/cross-scripts/cross-x86-x86.lisp +++ b/src/tools/cross-scripts/cross-x86-x86.lisp @@ -20,7 +20,7 @@ :gencgc ; Generational GC :conservative-float-type :hash-new - :random-mt19937 + :random-xoroshiro ; RNG :cmu :cmu20 :cmu20a ; Version features :double-double ; double-double float support ) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/0a2e45d4d899fd819c89d5493… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/0a2e45d4d899fd819c89d5493… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Issue #64: Disable test when running CI
by Raymond Toy 21 Jul '18

21 Jul '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 05f11fa5 by Raymond Toy at 2018-07-21T03:38:57+00:00 Issue #64: Disable test when running CI - - - - - 576fc79d by Raymond Toy at 2018-07-21T03:38:57+00:00 Merge branch 'rtoy-issue-64' into 'master' Issue #64: Disable test when running CI See merge request cmucl/cmucl!40 - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -398,9 +398,14 @@ (assert-eql :exited (ext:process-status p))))) ;; For some reason this used to work linux CI but not doesn't. But -;; this test passes on my Fedora and debian systesm. -;; See issue #64. -#-linux +;; this test passes on my Fedora and debian systems. See issue #64. +;; So until we figure this out, disable this test when we're running a +;; pipeline with linux, but otherwise enable it. The pipeline defines +;; the envvar GITLAB_CI so check for that. +;; +;; It would be better if lisp-unit had a way of marking tests as known +;; failures, but it doesn't. +#+#.(cl:if (cl:and (ext:featurep :linux) (unix:unix-getenv "GITLAB_CI")) '(or) '(and)) (define-test issue.41.1 (:tag :issues) (issue-41-tester unix:sigstop)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/50b1201eb4ac46e9174c4d0f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/50b1201eb4ac46e9174c4d0f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0