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:

   (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))

 	$(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)),)