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

[Git][cmucl/cmucl][issue-431-fix-set-floating-point-modes] Address review comments
by Raymond Toy (＠rtoy) 21 Aug '25

21 Aug '25

Raymond Toy pushed to branch issue-431-fix-set-floating-point-modes at cmucl / cmucl Commits: 12cae745 by Raymond Toy at 2025-08-21T07:30:12-07:00 Address review comments - - - - - 1 changed file: - src/code/float-trap.lisp Changes: ===================================== src/code/float-trap.lisp ===================================== @@ -109,7 +109,6 @@ (ash x87-enables 7)))) final-mode)) - (defun (setf floating-point-modes) (new-mode) (declare (type (unsigned-byte 32) new-mode)) ;; Set the floating point modes for both X87 and SSE2. This View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/12cae745fdb002782b06b40… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/12cae745fdb002782b06b40… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-425-correctly-rounded-math-functions-single-float] Add coshf.c
by Raymond Toy (＠rtoy) 21 Aug '25

21 Aug '25

Raymond Toy pushed to branch issue-425-correctly-rounded-math-functions-single-float at cmucl / cmucl Commits: f42458c7 by Raymond Toy at 2025-08-20T18:49:14-07:00 Add coshf.c Forgot to add this file - - - - - 1 changed file: - + src/lisp/core-math/src/binary32/cosh/coshf.c Changes: ===================================== src/lisp/core-math/src/binary32/cosh/coshf.c ===================================== @@ -0,0 +1,133 @@ +/* Correctly-rounded hyperbolic cosine function for binary32 value. + +Copyright (c) 2022-2023 Alexei Sibidanov. + +This file is part of the CORE-MATH project +(https://core-math.gitlabpages.inria.fr/). + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. +*/ + +#include <stdint.h> +#include <errno.h> + +// Warning: clang also defines __GNUC__ +#if defined(__GNUC__) && !defined(__clang__) +#pragma GCC diagnostic ignored "-Wunknown-pragmas" +#endif + +#pragma STDC FENV_ACCESS ON + +/* __builtin_roundeven was introduced in gcc 10: + https://gcc.gnu.org/gcc-10/changes.html, + and in clang 17 */ +#if ((defined(__GNUC__) && __GNUC__ >= 10) || (defined(__clang__) && __clang_major__ >= 17)) && (defined(__aarch64__) || defined(__x86_64__) || defined(__i386__)) +# define roundeven_finite(x) __builtin_roundeven (x) +#else +/* round x to nearest integer, breaking ties to even */ +static double +roundeven_finite (double x) +{ + double ix; +# if (defined(__GNUC__) || defined(__clang__)) && (defined(__AVX__) || defined(__SSE4_1__) || (__ARM_ARCH >= 8)) +# if defined __AVX__ + __asm__("vroundsd $0x8,%1,%1,%0":"=x"(ix):"x"(x)); +# elif __ARM_ARCH >= 8 + __asm__ ("frintn %d0, %d1":"=w"(ix):"w"(x)); +# else /* __SSE4_1__ */ + __asm__("roundsd $0x8,%1,%0":"=x"(ix):"x"(x)); +# endif +# else + ix = __builtin_round (x); /* nearest, away from 0 */ + if (__builtin_fabs (ix - x) == 0.5) + { + /* if ix is odd, we should return ix-1 if x>0, and ix+1 if x<0 */ + union { double f; uint64_t n; } u, v; + u.f = ix; + v.f = ix - __builtin_copysign (1.0, x); + if (__builtin_ctz (v.n) > __builtin_ctz (u.n)) + ix = v.f; + } +# endif + return ix; +} +#endif + +typedef union {float f; uint32_t u;} b32u32_u; +typedef union {double f; uint64_t u;} b64u64_u; + +float cr_coshf(float x){ + static const double c[] = + {1, 0x1.62e42fef4c4e7p-6, 0x1.ebfd1b232f475p-13, 0x1.c6b19384ecd93p-20}; + static const double ch[] = + {1, 0x1.62e42fefa39efp-6, 0x1.ebfbdff82c58fp-13, 0x1.c6b08d702e0edp-20, 0x1.3b2ab6fb92e5ep-27, + 0x1.5d886e6d54203p-35, 0x1.430976b8ce6efp-43}; + static const uint64_t tb[] = + {0x3fe0000000000000, 0x3fe059b0d3158574, 0x3fe0b5586cf9890f, 0x3fe11301d0125b51, + 0x3fe172b83c7d517b, 0x3fe1d4873168b9aa, 0x3fe2387a6e756238, 0x3fe29e9df51fdee1, + 0x3fe306fe0a31b715, 0x3fe371a7373aa9cb, 0x3fe3dea64c123422, 0x3fe44e086061892d, + 0x3fe4bfdad5362a27, 0x3fe5342b569d4f82, 0x3fe5ab07dd485429, 0x3fe6247eb03a5585, + 0x3fe6a09e667f3bcd, 0x3fe71f75e8ec5f74, 0x3fe7a11473eb0187, 0x3fe82589994cce13, + 0x3fe8ace5422aa0db, 0x3fe93737b0cdc5e5, 0x3fe9c49182a3f090, 0x3fea5503b23e255d, + 0x3feae89f995ad3ad, 0x3feb7f76f2fb5e47, 0x3fec199bdd85529c, 0x3fecb720dcef9069, + 0x3fed5818dcfba487, 0x3fedfc97337b9b5f, 0x3feea4afa2a490da, 0x3fef50765b6e4540}; + const double iln2 = 0x1.71547652b82fep+5; + b32u32_u t = {.f = x}; + double z = x; + uint32_t ax = t.u<<1; + if(__builtin_expect(ax>0x8565a9f8u, 0)){ // |x| >~ 89.4 + if(ax>=0xff000000u) { + if(ax<<8) return x + x; // nan + return 1.0f/0.0f; // +-inf + } + float r = 2.0f*0x1.fffffep127f; +#ifdef CORE_MATH_SUPPORT_ERRNO + errno = ERANGE; +#endif + return r; + } + if(__builtin_expect(ax<0x7c000000u, 0)){ // |x| < 0.125 + if(__builtin_expect(ax<0x74000000u, 0)){ // |x| < 0x1p-11 + if(__builtin_expect(ax<0x66000000u, 0)) // |x| < 0x1p-24 + return __builtin_fmaf(__builtin_fabsf(x), 0x1p-25, 1.0f); + return (0.5f*x)*x + 1.0f; + } + static const double cp[] = + {0x1.fffffffffffe3p-2, 0x1.55555555723cfp-5, 0x1.6c16bee4a5986p-10, 0x1.a0483fc0328f7p-16}; + double z2 = z*z, z4 = z2*z2; + return 1.0 + z2*((cp[0] + z2*cp[1]) + z4*(cp[2] + z2*(cp[3]))); + } + double a = iln2*z, ia = roundeven_finite(a), h = a - ia, h2 = h*h; + b64u64_u ja = {.f = ia + 0x1.8p52}; + int64_t jp = ja.u, jm = -jp; + b64u64_u sp = {.u = tb[jp&31] + ((uint64_t)(jp>>5)<<52)}, sm = {.u = tb[jm&31] + ((uint64_t)(jm>>5)<<52)}; + double te = c[0] + h2*c[2], to = (c[1] + h2*c[3]); + double rp = sp.f*(te + h*to), rm = sm.f*(te - h*to), r = rp + rm; + float ub = r, lb = r - 1.45e-10*r; + if(__builtin_expect(ub != lb, 0)){ + const double iln2h = 0x1.7154765p+5, iln2l = 0x1.5c17f0bbbe88p-26; + h = (iln2h*z - ia) + iln2l*z; + h2 = h*h; + te = ch[0] + h2*ch[2] + (h2*h2)*(ch[4] + h2*ch[6]); + to = ch[1] + h2*(ch[3] + h2*ch[5]); + r = sp.f*(te + h*to) + sm.f*(te - h*to); + ub = r; + } + return ub; +} View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f42458c790dd69af8f94202… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f42458c790dd69af8f94202… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-425-correctly-rounded-math-functions-single-float
by Raymond Toy (＠rtoy) 21 Aug '25

21 Aug '25

Raymond Toy pushed new branch issue-425-correctly-rounded-math-functions-single-float at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-425-correctly-round… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-380-p2-clean-up-shell-scripts] Address comments and update disable shellcheck notes
by Raymond Toy (＠rtoy) 20 Aug '25

20 Aug '25

Raymond Toy pushed to branch issue-380-p2-clean-up-shell-scripts at cmucl / cmucl Commits: 9b796002 by Raymond Toy at 2025-08-20T13:04:37-07:00 Address comments and update disable shellcheck notes Don't want to use :lower: and :upper: for tr. Disable some the warnings/notes that shellcheck produces for the :lower: note and also for the suggesiong on using shell variable pattern matching and replacement. - - - - - 1 changed file: - bin/make-dist.sh Changes: ===================================== bin/make-dist.sh ===================================== @@ -63,6 +63,8 @@ def_arch_os () { GTAR=gtar ;; esac uname_r=$(uname -r) + # shellcheck disable=SC2001 + # sed is ok here instead of shell variable pattern matching case $uname_r in 5.*) rel=$(echo "$uname_r" | sed 's/5\.//') ;; *) rel=$uname_r;; @@ -86,7 +88,9 @@ def_arch_os () { ;; FreeBSD) ARCH=x86 - OS=freebsd_$(uname -r | tr '[:upper:]' '[:lower:]') + # shellcheck disable=SC2018,SC2019 + # Don't want to use :lower: and :upper here since that depends on the locale. + OS=freebsd_$(uname -r | tr 'A-Z' 'a-z') ;; esac } @@ -159,6 +163,7 @@ if [ -z "$INSTALL_DIR" ]; then fi fi +# shellcheck disable=SC2001 TARGET="$(echo "$1" | sed 's:/*$::')" # Choose a version based on the git hash as the default version. We View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9b79600285eaf879208c57c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9b79600285eaf879208c57c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-380-p2-clean-up-shell-scripts] 49 commits: Fix #386: Generate def-unix-error forms
by Raymond Toy (＠rtoy) 20 Aug '25

20 Aug '25

Raymond Toy pushed to branch issue-380-p2-clean-up-shell-scripts at cmucl / cmucl Commits: ceddbbc8 by Raymond Toy at 2025-05-19T08:16:40-07:00 Fix #386: Generate def-unix-error forms - - - - - 43719776 by Raymond Toy at 2025-05-19T08:16:40-07:00 Merge branch 'issue-386-generate-def-unix-error' into 'master' Fix #386: Generate def-unix-error forms Closes #386 See merge request cmucl/cmucl!276 - - - - - 113192f6 by Raymond Toy at 2025-05-19T12:22:37-07:00 Fix #406: Add links to README - - - - - a3b02a89 by Raymond Toy at 2025-05-19T12:22:37-07:00 Merge branch 'issue-406-update-readme-with-links' into 'master' Fix #406: Add links to README Closes #406 See merge request cmucl/cmucl!297 - - - - - 666085ca by Raymond Toy at 2025-05-23T10:21:38-07:00 Fix broken link found by link-checker Fix typo where we left of the "h" in "https". - - - - - 81b3bf0b by Raymond Toy at 2025-05-23T10:29:04-07:00 Add links for Common Lisp and ANSI CL We had these links on the wiki home so lets add them here, for consistency. [skip ci] - - - - - 98559d43 by Raymond Toy at 2025-05-23T10:30:33-07:00 Remove the strikethru markup for issues. We were copying the old style from Trac where closed tickets used strikethru to mark them as closed. However, gitlab automatically adds a "(closed)" suffix to the issue, so we don't need to do a strikethru to mark it closed. [skip ci] - - - - - 7fd5e2ff by Raymond Toy at 2025-06-01T17:07:58-07:00 Fix #405: Remove unix::unix-resolve-links and update probe-file - - - - - a4c4016f by Raymond Toy at 2025-06-01T17:07:58-07:00 Merge branch 'issue-405-remove-unix-resolve-links' into 'master' Fix #405: Remove unix::unix-resolve-links and update probe-file Closes #405 See merge request cmucl/cmucl!294 - - - - - 8fa86990 by Raymond Toy at 2025-06-01T19:23:12-07:00 Fix #409: Run manual jobs on a schedule - - - - - 14f7103c by Raymond Toy at 2025-06-01T19:23:13-07:00 Merge branch 'issue-409-run-manual-jobs-on-schedule' into 'master' Fix #409: Run manual jobs on a schedule Closes #409 See merge request cmucl/cmucl!301 - - - - - 14bfb3e0 by Raymond Toy at 2025-06-01T19:25:25-07:00 Address #399: Use -std=gnu89 to build motif server - - - - - 12f21ca8 by Raymond Toy at 2025-06-01T19:25:25-07:00 Merge branch 'issue-399-b-motif-server-fedora-42' into 'master' Address #399: Use -std=gnu89 to build motif server Closes #399 See merge request cmucl/cmucl!285 - - - - - 300a849d by Raymond Toy at 2025-06-01T20:57:58-07:00 Fix #334: Add wiki link checker to CI - - - - - c2dee44a by Raymond Toy at 2025-06-01T20:57:58-07:00 Merge branch 'issue-334-add-wiki-link-checker' into 'master' Fix #334: Add wiki link checker to CI Closes #334 See merge request cmucl/cmucl!232 - - - - - cd35783b by Raymond Toy at 2025-06-05T07:48:07-07:00 Fix #413: Run markdown-link-check on scheduled pipeline - - - - - b6f90681 by Raymond Toy at 2025-06-05T07:48:08-07:00 Merge branch 'issue-413-markdown-link-check-on-schedule' into 'master' Fix #413: Run markdown-link-check on scheduled pipeline Closes #413 See merge request cmucl/cmucl!304 - - - - - 97dff761 by Raymond Toy at 2025-06-06T07:10:20-07:00 Update all the pot and po files Just ran bin/build.sh -U to get these all updated. - - - - - d6faeaef by Raymond Toy at 2025-06-09T08:51:48-07:00 Remove extra closing parenthesis There was an extra closing parenthesis at the end of `precompile-ef-slot`. Remove it. [skip-ci] - - - - - 4e6e1afe by Raymond Toy at 2025-06-09T10:39:52-07:00 Update with new resolved issues Add #404 and #405 to the list of fixed issues. - - - - - 852aaef6 by Raymond Toy at 2025-06-10T08:06:34-07:00 Fix typo in docstring for with-string-{glyph,codepoint}-iterator "prodcucing" -> "producing" Update pot file too of course. - - - - - d6a6c40d by Raymond Toy at 2025-06-10T18:21:12-07:00 Update and correct some comments The paths mentioned in the script are wrong so update them. Some the the examples are out-of-date so correct those too. Finally, mention that "bin/build.sh -?" gives help. - - - - - 46bd7cff by Raymond Toy at 2025-06-23T08:45:54-07:00 Fix 418: Update asdf to 3.3.7.4 - - - - - 9e6d1350 by Raymond Toy at 2025-06-23T08:45:54-07:00 Merge branch 'issue-418-update-asdf-to-3.3.7.4' into 'master' Fix 418: Update asdf to 3.3.7.4 See merge request cmucl/cmucl!307 - - - - - aeab122e by Raymond Toy at 2025-06-30T07:18:34-07:00 Fix #415: Add support for package-local-nicknames - - - - - 32b15538 by Raymond Toy at 2025-06-30T07:18:34-07:00 Merge branch 'issue-415-add-package-local-nicknames' into 'master' Fix #415: Add support for package-local-nicknames Closes #415 See merge request cmucl/cmucl!305 - - - - - 6dba253c by Raymond Toy at 2025-06-30T08:36:53-07:00 Fix #417: Allow repeated lambda var in defmethod aux variables - - - - - 4e2e7fec by Raymond Toy at 2025-06-30T08:36:53-07:00 Merge branch 'issue-417-defmethod-check-aux-vars' into 'master' Fix #417: Allow repeated lambda var in defmethod aux variables Closes #417 See merge request cmucl/cmucl!306 - - - - - f1d6ff67 by Raymond Toy at 2025-06-30T19:17:31-07:00 Update release notes from closed issues [skip-ci] - - - - - aadcf841 by Raymond Toy at 2025-07-02T07:22:08-07:00 Update trivial-package-local-nicknames repo name We renamed/moved our mirror phoe/trivial-package-local-nicknames from trivial-package-local-nicknames-mirror to just trivial-package-local-nicknames. Thus, we need to update run-unit-tests.sh to use the new name. - - - - - fbe08b91 by Raymond Toy at 2025-07-02T08:13:00-07:00 Use https instead of git to clone trivial-pln - - - - - cc3996f1 by Raymond Toy at 2025-07-09T13:23:49-07:00 Update docstring for add-package-local-nickname We allow the local nickname to be a global name of a package. This matches what we currently do and what sbcl does. - - - - - 7dbefc84 by Raymond Toy at 2025-07-09T13:31:38-07:00 Update cmucl.pot due to changed docstring No changes in code or behavior. - - - - - 9ab06424 by Raymond Toy at 2025-07-11T08:13:17-07:00 Make dist tarballs after building - - - - - 72877169 by Raymond Toy at 2025-07-11T08:13:17-07:00 Merge branch 'rtoy-ci-make-dist-tarballs' into 'master' Make dist tarballs after building See merge request cmucl/cmucl!308 - - - - - a99bf94d by Raymond Toy at 2025-07-12T15:38:28-07:00 Make dist tarballs after building - - - - - 38b2787c by Raymond Toy at 2025-07-12T15:38:28-07:00 Merge branch 'rtoy-debug-ci-2025-07' into 'master' Make dist tarballs after building See merge request cmucl/cmucl!309 - - - - - 2c94b54e by Raymond Toy at 2025-07-12T18:18:16-07:00 Fix #423: Use new binaries for CI - - - - - 9a8fd3c4 by Raymond Toy at 2025-07-12T18:18:16-07:00 Merge branch 'issue-423-update-ci-for-snapshot' into 'master' Fix #423: Use new binaries for CI Closes #423 See merge request cmucl/cmucl!310 - - - - - 4660c011 by Raymond Toy at 2025-08-14T07:40:17-07:00 Fix #424: Use fdlibm hypot - - - - - 6a2028c5 by Raymond Toy at 2025-08-14T07:40:17-07:00 Merge branch 'issue-424-fix-hypot' into 'master' Fix #424: Use fdlibm hypot Closes #424 See merge request cmucl/cmucl!311 - - - - - cb874f7f by Raymond Toy at 2025-08-14T07:42:48-07:00 Update release notes for #424 - - - - - d2c96f1b by Raymond Toy at 2025-08-14T07:45:18-07:00 Fix #426: Define float-modes type correctly - - - - - 2db294b1 by Raymond Toy at 2025-08-14T07:45:18-07:00 Merge branch 'issue-426-fix-float-modes-type-def' into 'master' Fix #426: Define float-modes type correctly Closes #426 See merge request cmucl/cmucl!313 - - - - - eb98570f by Raymond Toy at 2025-08-14T07:55:12-07:00 Update release notes for #426 [skip-ci] - - - - - cd2edae5 by Raymond Toy at 2025-08-19T14:16:31-07:00 Fix #432: Don't pass -M option to make-extra-dist.sh - - - - - c65554a5 by Raymond Toy at 2025-08-19T14:16:31-07:00 Merge branch 'issue-432-fix-man-option-for-make-extra-dist' into 'master' Fix #432: Don't pass -M option to make-extra-dist.sh Closes #432 See merge request cmucl/cmucl!315 - - - - - fb0d7bf2 by Raymond Toy at 2025-08-20T07:49:01-07:00 Merge branch 'master' into issue-380-p2-clean-up-shell-scripts - - - - - 0f2ed171 by Raymond Toy at 2025-08-20T08:27:56-07:00 Fix merge issue Was not correctly handling -M option that is passed to make-main-dist.sh - - - - - 52 changed files: - .gitignore - .gitlab-ci.yml - README.md - bin/build.sh - + bin/create-def-unix-error.awk - + bin/create-errno.sh - bin/cross-build-world.sh - + bin/errno-darwin.lisp - + bin/errno-default.lisp - + bin/errno-linux.lisp - + bin/errno-solaris.lisp - + bin/errno-template.lisp - bin/git-version.sh - bin/run-unit-tests.sh - src/bootfiles/21e/boot-2024-08.lisp - src/code/exports.lisp - src/code/extfmts.lisp - src/code/filesys.lisp - src/code/irrat.lisp - src/code/package.lisp - src/code/print.lisp - src/code/string.lisp - src/code/unix.lisp - src/compiler/x86/float-sse2.lisp - src/contrib/asdf/asdf.lisp - src/contrib/asdf/doc/asdf.html - src/contrib/asdf/doc/asdf.info - src/contrib/asdf/doc/asdf.pdf - src/general-info/release-21f.md - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/ko/LC_MESSAGES/cmucl.po - src/lisp/GNUmakefile - + src/lisp/e_hypot.c - src/motif/server/Config.linux - src/motif/server/server.c - src/pcl/low.lisp - src/tools/worldbuild.lisp - src/tools/worldcom.lisp - tests/float.lisp - tests/irrat.lisp - tests/issues.lisp - tests/pcl/defmethod.lisp The diff was not included because it is too large. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f2da32690919a7819ebc32… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f2da32690919a7819ebc32… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-433-one-ctrl-d-exits-repl
by Raymond Toy (＠rtoy) 20 Aug '25

20 Aug '25

Raymond Toy pushed new branch issue-433-one-ctrl-d-exits-repl at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-433-one-ctrl-d-exit… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #432: Don't pass -M option to make-extra-dist.sh
by Raymond Toy (＠rtoy) 19 Aug '25

19 Aug '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: cd2edae5 by Raymond Toy at 2025-08-19T14:16:31-07:00 Fix #432: Don't pass -M option to make-extra-dist.sh - - - - - c65554a5 by Raymond Toy at 2025-08-19T14:16:31-07:00 Merge branch 'issue-432-fix-man-option-for-make-extra-dist' into 'master' Fix #432: Don't pass -M option to make-extra-dist.sh Closes #432 See merge request cmucl/cmucl!315 - - - - - 1 changed file: - bin/make-dist.sh Changes: ===================================== bin/make-dist.sh ===================================== @@ -189,7 +189,7 @@ GTAR_OPTS="-t ${GTAR:-tar}" EXTRA_OPTS="${GROUP:+ -G ${GROUP}} ${OWNER:+ -O ${OWNER}}" INSTALL_OPTS="${INSTALL_DIR:+ -I ${INSTALL_DIR}}" MANDIR="${MANDIR:+ -M ${MANDIR}}" -OPTIONS="${GTAR_OPTS} ${EXTRA_OPTS} ${INSTALL_OPTS} ${MANDIR}" +OPTIONS="${GTAR_OPTS} ${EXTRA_OPTS} ${INSTALL_OPTS}" set -x echo Creating distribution for $ARCH $OS View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/eb98570f9cc44474f64dae… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/eb98570f9cc44474f64dae… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-432-fix-man-option-for-make-extra-dist
by Raymond Toy (＠rtoy) 18 Aug '25

18 Aug '25

Raymond Toy pushed new branch issue-432-fix-man-option-for-make-extra-dist at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-432-fix-man-option-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-431-fix-set-floating-point-modes] Update release notes
by Raymond Toy (＠rtoy) 17 Aug '25

17 Aug '25

Raymond Toy pushed to branch issue-431-fix-set-floating-point-modes at cmucl / cmucl Commits: 02a3fe80 by Raymond Toy at 2025-08-17T07:18:07-07:00 Update release notes - - - - - 1 changed file: - src/general-info/release-21f.md Changes: ===================================== src/general-info/release-21f.md ===================================== @@ -139,6 +139,7 @@ public domain. package-local-nicknames) * #424 Use fdlibm `hypot` to fix bug in snapshot 2025-07 * #426 Define float-modes type correctly for `(setf (x87-set-floating-point-modes))` + * $431 Fix setting of x87 FP modes in `set-floating-point-modes` * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/02a3fe80b25f6d508d59363… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/02a3fe80b25f6d508d59363… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-431-fix-set-floating-point-modes] More cleanups
by Raymond Toy (＠rtoy) 17 Aug '25

17 Aug '25

Raymond Toy pushed to branch issue-431-fix-set-floating-point-modes at cmucl / cmucl Commits: ef367c52 by Raymond Toy at 2025-08-17T07:14:14-07:00 More cleanups Remove old comment and debugging prints. Wrap comments neatly. Clean up printing of the mode word for x87. - - - - - 2 changed files: - src/code/float-trap.lisp - src/compiler/x86/float-sse2.lisp Changes: ===================================== src/code/float-trap.lisp ===================================== @@ -109,37 +109,17 @@ (ash x87-enables 7)))) final-mode)) - #+nil - (defun (setf floating-point-modes) (new-mode) - (declare (type (unsigned-byte 32) new-mode)) - ;; Set the floating point modes for both X87 and SSE2. This - ;; include the rounding control bits. - (let* ((rc (ldb float-rounding-mode new-mode)) - (new-exceptions (logand #x3f new-mode)) - (new-enables (logand #x3f (ash new-mode -7))) - (x87-modes - (logior new-exceptions - (ash rc 10) - (ash new-enables 16) - ;; Set precision control to be 64-bit, always. We - ;; don't use the x87 registers with sse2, so this - ;; is ok and would be the correct setting if we - ;; ever support long-floats. - (ash 3 (+ 8 16))))) - (setf (vm::sse2-floating-point-modes) (ldb (byte 24 0) new-mode)) - (setf (vm::x87-floating-point-modes) (ldb (byte 24 0) x87-modes))) - new-mode) + (defun (setf floating-point-modes) (new-mode) (declare (type (unsigned-byte 32) new-mode)) ;; Set the floating point modes for both X87 and SSE2. This ;; include the rounding control bits. - #+nil - (format t "new-mode = ~8,'0x~%" new-mode) (let* ((rc (ldb float-rounding-mode new-mode)) (new-exceptions (ldb float-exceptions-byte new-mode)) (new-enables (ldb float-traps-byte new-mode)) (x87-modes 0)) - ;; From the new mode, update the x87 FPU mode with the same set of accrued exceptions, enabled exceptions, and rounding mode. + ;; From the new mode, update the x87 FPU mode with the same set + ;; of accrued exceptions, enabled exceptions, and rounding mode. (setf x87-modes (dpb new-exceptions float-exceptions-byte x87-modes)) (setf x87-modes (dpb new-enables x87-float-traps-byte x87-modes)) (setf x87-modes (dpb rc x87-float-rounding-mode x87-modes)) @@ -152,8 +132,7 @@ (setf (vm::sse2-floating-point-modes) (ldb (byte 16 0) new-mode)) (setf (vm::x87-floating-point-modes) (ldb (byte 30 0) x87-modes))) - new-mode) - ) + new-mode)) #+(and sse2 darwin) (progn ===================================== src/compiler/x86/float-sse2.lisp ===================================== @@ -1422,7 +1422,7 @@ ;; the rest of cmucl, these bits are represented as enable bits. (format t "Flush-to-zero: ~30T~A~%" (ldb (byte 1 15) sse-mode)) (let ((rc (ldb float-rounding-mode sse-mode))) - (format t "Rounding control: ~30T~A ~A~%" + (format t "Rounding control: ~30T#b~2,'0b ~S~%" rc (car (rassoc rc rounding-mode-alist)))) (print-fp-exceptions-enabled (ldb float-traps-byte sse-mode)) @@ -1432,26 +1432,28 @@ "Print X87 floating modes word in a readable fashion." ;; Note that Intel uses masks to disable the exception, but to match ;; the rest of cmucl, these bits are represented as enable bits. - (format t "SW: FPU busy: ~30T~A~%" (ldb (byte 1 15) x87-mode)) - (format t "SW: Condition code C3: ~30T~A~%" (ldb (byte 1 14) x87-mode)) - (format t "SW: Top of stack: ~30T~D~%" (ldb (byte 3 11) x87-mode)) - (format t "SW: Condition code C2: ~30T~A~%" (ldb (byte 1 10) x87-mode)) - (format t "SW: Condition code C1: ~30T~A~%" (ldb (byte 1 9) x87-mode)) - (format t "SW: Condition code C0: ~30T~A~%" (ldb (byte 1 8) x87-mode)) - (format t "SW: Error summary: ~30T~A~%" (ldb (byte 1 7) x87-mode)) - (format t "SW: Stack fault: ~30T~A~%" (ldb (byte 1 6) x87-mode)) + (format t "Status word:~%") + (format t "FPU busy: ~30T~A~%" (ldb (byte 1 15) x87-mode)) + (format t "Condition code C3: ~30T~A~%" (ldb (byte 1 14) x87-mode)) + (format t "Top of stack: ~30T~D~%" (ldb (byte 3 11) x87-mode)) + (format t "Condition code C2: ~30T~A~%" (ldb (byte 1 10) x87-mode)) + (format t "Condition code C1: ~30T~A~%" (ldb (byte 1 9) x87-mode)) + (format t "Condition code C0: ~30T~A~%" (ldb (byte 1 8) x87-mode)) + (format t "Error summary: ~30T~A~%" (ldb (byte 1 7) x87-mode)) + (format t "Stack fault: ~30T~A~%" (ldb (byte 1 6) x87-mode)) (print-fp-current-exceptions (ldb float-exceptions-byte x87-mode)) - (format t "CW: Reserved: ~30T~A~%" (ldb (byte 2 (+ 13 16)) x87-mode)) - (format t "CW: Infinity control: ~30T~A~%" (ldb x87-float-infinity-control-byte x87-mode)) + (format t "~%Control word:~%") + (format t "Reserved: ~30T#b~2,'0b~%" (ldb (byte 2 (+ 13 16)) x87-mode)) + (format t "Infinity control: ~30T~A~%" (ldb x87-float-infinity-control-byte x87-mode)) (let ((rc (ldb x87-float-rounding-mode x87-mode))) - (format t "CW: Rounding control: ~30T~A ~A~%" + (format t "Rounding control: ~30T#b~2,'0b ~S~%" rc (car (rassoc rc rounding-mode-alist)))) (let ((pc (ldb x87-float-precision-control-byte x87-mode))) - (format t "CW: Precision control: ~30T~A ~A~%" + (format t "Precision control: ~30T#b~2,'0b ~S~%" pc (car (rassoc pc x87-float-precision-control-alist)))) - (format t "CW: Reserved: ~30T~A~%" (ldb (byte 2 (+ 6 16)) x87-mode)) + (format t "Reserved: ~30T#b~2,'0b~%" (ldb (byte 2 (+ 6 16)) x87-mode)) (print-fp-exceptions-enabled (ldb x87-float-traps-byte x87-mode))) (defknown x87-floating-point-modes () float-modes (flushable)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef367c524ca6e359970c5fe… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef367c524ca6e359970c5fe… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0