mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-27 06:51:44 -08:00
numbers: add workaround for log1p
log1pl is not present on NetBSD.
This commit is contained in:
parent
1aeb7823e8
commit
d7529988f0
1 changed files with 19 additions and 0 deletions
|
|
@ -601,6 +601,25 @@ extern void ecl_interrupt_process(cl_object process, cl_object function);
|
|||
# define ldexpf(x,y) ldexp((float)x,y)
|
||||
#endif
|
||||
|
||||
#ifndef HAVE_LOG1PF
|
||||
# ifdef log1pf
|
||||
# undef log1pf
|
||||
# endif
|
||||
# define log1pf(x) logf(x+1.0f)
|
||||
#endif
|
||||
#ifndef HAVE_LOG1P
|
||||
# ifdef log1p
|
||||
# undef log1p
|
||||
# endif
|
||||
# define log1p(x) log(x+1.0)
|
||||
#endif
|
||||
#ifndef HAVE_LOG1PL
|
||||
# ifdef log1pl
|
||||
# undef log1pl
|
||||
# endif
|
||||
# define log1pl(x) logl(x+1.0l)
|
||||
#endif
|
||||
|
||||
/*
|
||||
* Fake INFINITY and NAN defined in ISO C99 (portably)
|
||||
*/
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue