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

[Git][cmucl/cmucl][issue-485-import-openlibm-single-float-functions] Forgot to include s_sincosf to get sincosf
by Raymond Toy (＠rtoy) 01 Mar '26

01 Mar '26

Raymond Toy pushed to branch issue-485-import-openlibm-single-float-functions at cmucl / cmucl Commits: 6e6c58f4 by Raymond Toy at 2026-03-01T12:58:30-08:00 Forgot to include s_sincosf to get sincosf Update Makefile to include this file too. - - - - - 2 changed files: - src/lisp/Config.x86_common - + src/lisp/openlibm/s_sincosf.c Changes: ===================================== src/lisp/Config.x86_common ===================================== @@ -123,6 +123,7 @@ OPENLIBM_SRCS = \ $(OPENLIBM_DIR)/s_expm1f.c \ $(OPENLIBM_DIR)/s_log1pf.c \ $(OPENLIBM_DIR)/s_sinf.c \ + $(OPENLIBM_DIR)/s_sincosf.c \ $(OPENLIBM_DIR)/s_tanf.c \ $(OPENLIBM_DIR)/s_tanhf.c endif ===================================== src/lisp/openlibm/s_sincosf.c ===================================== @@ -0,0 +1,172 @@ +/* s_sincosf.c -- float version of s_sincos.c + * + * ==================================================== + * This file is derived from fdlibm: + * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. + * Developed at SunPro, a Sun Microsystems, Inc. business. + * Permission to use, copy, modify, and distribute this + * software is freely granted, provided that this notice + * is preserved. + * + * ==================================================== + * Copyright (C) 2013 Elliot Saba + * Developed at the University of Washington + * + * Permission to use, copy, modify, and distribute this + * software is freely granted, provided that this notice + * is preserved. + * ==================================================== +*/ + +#include "cdefs-compat.h" + +#include <float.h> +#include <openlibm_math.h> + +//#define INLINE_KERNEL_COSDF +//#define INLINE_KERNEL_SINDF +//#define INLINE_REM_PIO2F +#include "math_private.h" +//#include "e_rem_pio2f.c" +//#include "k_cosf.c" +//#include "k_sinf.c" + + +/* Constants used in shortcircuits in sincosf */ +static const double +sc1pio2 = 1*M_PI_2, /* 0x3FF921FB, 0x54442D18 */ +sc2pio2 = 2*M_PI_2, /* 0x400921FB, 0x54442D18 */ +sc3pio2 = 3*M_PI_2, /* 0x4012D97C, 0x7F3321D2 */ +sc4pio2 = 4*M_PI_2, /* 0x401921FB, 0x54442D18 */ + +/* Constants used in polynomial approximation of sin/cos */ +one = 1.0, +S1 = -0x15555554cbac77.0p-55, /* -0.166666666416265235595 */ +S2 = 0x111110896efbb2.0p-59, /* 0.0083333293858894631756 */ +S3 = -0x1a00f9e2cae774.0p-65, /* -0.000198393348360966317347 */ +S4 = 0x16cd878c3b46a7.0p-71, /* 0.0000027183114939898219064 */ +C0 = -0x1ffffffd0c5e81.0p-54, /* -0.499999997251031003120 */ +C1 = 0x155553e1053a42.0p-57, /* 0.0416666233237390631894 */ +C2 = -0x16c087e80f1e27.0p-62, /* -0.00138867637746099294692 */ +C3 = 0x199342e0ee5069.0p-68; /* 0.0000243904487962774090654 */ + +static void +__kernel_sincosdf( double x, float * s, float * c ) +{ + double r, w, z, v; + z = x*x; + w = z*z; + + /* cos-specific computation; equivalent to calling + __kernel_cos(x,y) and storing in k_c*/ + r = C2+z*C3; + double k_c = ((one+z*C0) + w*C1) + (w*z)*r; + + /* sin-specific computation; equivalent to calling + __kernel_sin(x,y,1) and storing in k_s*/ + r = S3+z*S4; + v = z*x; + double k_s = (x + v*(S1+z*S2)) + v*w*r; + + *c = k_c; + *s = k_s; +} + +OLM_DLLEXPORT void +sincosf(float x, float * s, float * c) { + // Worst approximation of sin and cos NA + *s = x; + *c = x; + + double y; + float k_c, k_s; + int32_t n, hx, ix; + + GET_FLOAT_WORD(hx,x); + ix = hx & 0x7fffffff; + + if(ix <= 0x3f490fda) { /* |x| ~<= pi/4 */ + if(ix<0x39800000) { /* |x| < 2**-12 */ + /* Check if x is exactly zero */ + if(((int)x)==0) { + *s = x; + *c = 1.0f; + return; + } + } + __kernel_sincosdf(x, s, c); + return; + } + /* |x| ~<= 5*pi/4 */ + if (ix<=0x407b53d1) { + /* |x| ~<= 3pi/4 */ + if(ix<=0x4016cbe3) { + if(hx>0) { + __kernel_sincosdf( sc1pio2 - x, c, s ); + } + else { + __kernel_sincosdf( sc1pio2 + x, c, &k_s ); + *s = -k_s; + } + } else { + + if(hx>0) { + __kernel_sincosdf( sc2pio2 - x, s, &k_c ); + *c = -k_c; + } else { + __kernel_sincosdf( -sc2pio2 - x, s, &k_c ); + *c = -k_c; + } + } + return; + } + + /* |x| ~<= 9*pi/4 */ + if(ix<=0x40e231d5) { + /* |x| ~> 7*pi/4 */ + if(ix<=0x40afeddf) { + if(hx>0) { + __kernel_sincosdf( x - sc3pio2, c, &k_s ); + *s = -k_s; + } else { + __kernel_sincosdf( x + sc3pio2, &k_c, s ); + *c = -k_c; + } + } + else { + if( hx > 0 ) { + __kernel_sincosdf( x - sc4pio2, s, c ); + } else { + __kernel_sincosdf( x + sc4pio2, s, c ); + } + } + return; + } + + /* cos(Inf or NaN) is NaN */ + else if(ix>=0x7f800000) { + *c = *s = x-x; + } else { + /* general argument reduction needed */ + n = __ieee754_rem_pio2f(x,&y); + + switch(n&3) { + case 0: + __kernel_sincosdf( y, s, c ); + break; + case 1: + __kernel_sincosdf( -y, c, s ); + break; + case 2: + __kernel_sincosdf( -y, s, &k_c); + *c = -k_c; + break; + default: + __kernel_sincosdf( -y, &k_c, &k_s ); + *c = -k_c; + *s = -k_s; + break; + } + } + +} View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6e6c58f4345d2b2aeff2544… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6e6c58f4345d2b2aeff2544… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-485-import-openlibm-single-float-functions
by Raymond Toy (＠rtoy) 01 Mar '26

01 Mar '26

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

1 0

[Git][cmucl/cmucl][issue-478-run-analyzer-link-chcker-on-schedule] Allow linux:install job to run when scheduled
by Raymond Toy (＠rtoy) 01 Mar '26

01 Mar '26

Raymond Toy pushed to branch issue-478-run-analyzer-link-chcker-on-schedule at cmucl / cmucl Commits: 874302fc by Raymond Toy at 2026-02-28T18:16:37-08:00 Allow linux:install job to run when scheduled Updated so that linux:install is run because linux:build needs it, which is needed by the analyzer when run on a schedule. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -129,6 +129,15 @@ linux:install: variables: osname: "linux" CURL: "curl" + rules: + # 1. Ensure build runs for schedules so the analyzer can use its files + - if: $CI_PIPELINE_SOURCE == "schedule" + when: on_success + # 2. Ensure build runs if the analyzer variable is set + - if: $RUN_ANALYSIS + when: on_success + # 3. Default: run for standard pushes/MRs + - when: on_success linux:build: <<: *build_configuration View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/874302fc9fd3018fe49794c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/874302fc9fd3018fe49794c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-478-run-analyzer-link-chcker-on-schedule] Allow linux:build job to run when scheduled
by Raymond Toy (＠rtoy) 01 Mar '26

01 Mar '26

Raymond Toy pushed to branch issue-478-run-analyzer-link-chcker-on-schedule at cmucl / cmucl Commits: dc66629a by Raymond Toy at 2026-02-28T18:15:01-08:00 Allow linux:build job to run when scheduled Updated so that linux:build is run when the analyzer is run. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -141,6 +141,15 @@ linux:build: # Fedora 41 must build with gcc because the clang build fails some # ansi-tests. See [#469]. CONFIG: "x86_linux" + rules: + # 1. Ensure build runs for schedules so the analyzer can use its files + - if: $CI_PIPELINE_SOURCE == "schedule" + when: on_success + # 2. Ensure build runs if the analyzer variable is set + - if: $RUN_ANALYSIS + when: on_success + # 3. Default: run for standard pushes/MRs + - when: on_success linux:cross-build: stage: build View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dc66629acb3e2acde7ad627… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dc66629acb3e2acde7ad627… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-478-run-analyzer-link-chcker-on-schedule] Allow link-checker to run on a schedule or if variable is set.
by Raymond Toy (＠rtoy) 01 Mar '26

01 Mar '26

Raymond Toy pushed to branch issue-478-run-analyzer-link-chcker-on-schedule at cmucl / cmucl Commits: 979ad570 by Raymond Toy at 2026-02-28T18:07:38-08:00 Allow link-checker to run on a schedule or if variable is set. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -287,9 +287,6 @@ linux:static-analyzer: tags: - linux - # Allows the pipeline to proceed and show a "passed with warnings" - # status (orange) instead of "failed" (red) if this job exits with an error. - allow_failure: true artifacts: when: always paths: @@ -306,7 +303,9 @@ linux:static-analyzer: when: on_success # 3. Otherwise, the job remains a manual button in the pipeline. - when: manual - allow_failure: true + # Allows the pipeline to proceed and show a "passed with warnings" + # status (orange) instead of "failed" (red) if this job exits with an error. + allow_failure: true script: # Analysis can generate huge amounts of output. For now just save # the results to the log file instead of also having it go to the @@ -366,7 +365,15 @@ markdown-link-check: # Only the linux runner has markdown-link-check installed tags: - linux - when: manual + rules: + # 1. If the pipeline is a scheduled run, run this job automatically + - if: $CI_PIPELINE_SOURCE == "schedule" + when: on_success + # 2. If the variable is set (manually via UI/API), run automatically. + - if: $RUN_ANALYSIS + when: on_success + # 3. Otherwise, the job remains a manual button in the pipeline. + - when: manual # It's ok if this fails; we don't want to declare the entire # pipeline as having failed. allow_failure: true View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/979ad5700d428e718273fcb… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/979ad5700d428e718273fcb… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-478-run-analyzer-link-chcker-on-schedule
by Raymond Toy (＠rtoy) 01 Mar '26

01 Mar '26

Raymond Toy pushed new branch issue-478-run-analyzer-link-chcker-on-schedule at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-478-run-analyzer-li… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0