Raymond Toy pushed to branch issue-425-correctly-rounded-math-functions at cmucl / cmucl Commits: 441ccb85 by Raymond Toy at 2025-08-09T17:49:33-07:00 Add core-math sincos function Update %%sincos to use cr_sincos if core-math is defined. Update config to build core-math sincos.c. - - - - - 2 changed files: - src/code/irrat.lisp - src/lisp/Config.x86_common Changes: ===================================== src/code/irrat.lisp ===================================== @@ -237,7 +237,10 @@ (y1 double-float :out)) (declaim (inline %%sincos)) -(alien:def-alien-routine ("lisp_sincos" %%sincos) c-call:void +(alien:def-alien-routine (#-core-math "lisp_sincos" + #+core-math "cr_sincos" + %%sincos) + c-call:void (x double-float) (s double-float :out) (c double-float :out)) ===================================== src/lisp/Config.x86_common ===================================== @@ -63,7 +63,8 @@ CORE64_OBJS=\ $(CORE_MATH_64)/pow/pow.o \ $(CORE_MATH_64)/hypot/hypot.o \ $(CORE_MATH_64)/log1p/log1p.o \ - $(CORE_MATH_64)/expm1/expm1.o + $(CORE_MATH_64)/expm1/expm1.o \ + $(CORE_MATH_64)/sincos/sincos.o endif ifeq ($(filter 2% 3%, $(shell $(CC) -dumpversion)),) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/441ccb85a7eeb47fad670ad4... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/441ccb85a7eeb47fad670ad4... You're receiving this email because of your account on gitlab.common-lisp.net.