Ros-diffs December 2022

ros-diffs@reactos.org

19 participants
98 discussions

[reactos] 08/15: [LIBM] Fix ldexp.c / ldexpf.c

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=7277e269440cb0474629e… commit 7277e269440cb0474629e8cb9d60b6c06cba094a Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Fri Jun 24 20:21:17 2022 +0200 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [LIBM] Fix ldexp.c / ldexpf.c --- sdk/lib/crt/math/libm_sse2/ldexp.c | 14 +++++++++++--- sdk/lib/crt/math/libm_sse2/ldexpf.c | 14 +++++++++++--- sdk/lib/crt/math/libm_sse2/libm_util.h | 8 ++++++++ 3 files changed, 30 insertions(+), 6 deletions(-) diff --git a/sdk/lib/crt/math/libm_sse2/ldexp.c b/sdk/lib/crt/math/libm_sse2/ldexp.c index 3724e7d6bdc..95cc0f0025f 100644 --- a/sdk/lib/crt/math/libm_sse2/ldexp.c +++ b/sdk/lib/crt/math/libm_sse2/ldexp.c @@ -25,9 +25,17 @@ * */ -#include "fn_macros.h" -#include "libm_util_amd.h" -#include "libm_special.h" +#include "libm.h" +#include "libm_util.h" +#include "libm_new.h" + +#define FN_PROTOTYPE_REF FN_PROTOTYPE +#define __amd_handle_error _handle_error +#define __amd_ldexp OP_LDEXP + +//#include "fn_macros.h" +//#include "libm_util.h" +//#include "libm_special.h" double FN_PROTOTYPE_REF(ldexp)(double x, int n) { diff --git a/sdk/lib/crt/math/libm_sse2/ldexpf.c b/sdk/lib/crt/math/libm_sse2/ldexpf.c index 49b9ac1b396..989f368c06d 100644 --- a/sdk/lib/crt/math/libm_sse2/ldexpf.c +++ b/sdk/lib/crt/math/libm_sse2/ldexpf.c @@ -25,9 +25,17 @@ * */ -#include "fn_macros.h" -#include "libm_util_amd.h" -#include "libm_special.h" +#include "libm.h" +#include "libm_util.h" +#include "libm_new.h" + +#define FN_PROTOTYPE_REF FN_PROTOTYPE +#define __amd_handle_errorf _handle_errorf +#define __amd_ldexp OP_LDEXP + +//#include "fn_macros.h" +//#include "libm_util_amd.h" +//#include "libm_special.h" float FN_PROTOTYPE_REF(ldexpf)(float x, int n) { diff --git a/sdk/lib/crt/math/libm_sse2/libm_util.h b/sdk/lib/crt/math/libm_sse2/libm_util.h index 0dde14a3637..c59a4940aff 100644 --- a/sdk/lib/crt/math/libm_sse2/libm_util.h +++ b/sdk/lib/crt/math/libm_sse2/libm_util.h @@ -32,6 +32,14 @@ #include <float.h> +#define MULTIPLIER_SP 24 +#define MULTIPLIER_DP 53 + +static const double VAL_2PMULTIPLIER_DP = 9007199254740992.0; +static const double VAL_2PMMULTIPLIER_DP = 1.1102230246251565404236316680908e-16; +static const float VAL_2PMULTIPLIER_SP = 16777216.0F; +static const float VAL_2PMMULTIPLIER_SP = 5.9604645e-8F; + /* Definitions for double functions on 64 bit machines */ #define SIGNBIT_DP64 0x8000000000000000 #define EXPBITS_DP64 0x7ff0000000000000

1 year, 9 months

[reactos] 07/15: [LIBM] Add ldexp.c and ldexpf.c from aocl-libm-ose

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=4f348ee97136f4e0755e8… commit 4f348ee97136f4e0755e87ce305009d67fa1af44 Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Fri Jun 24 20:05:47 2022 +0200 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [LIBM] Add ldexp.c and ldexpf.c from aocl-libm-ose --- sdk/lib/crt/math/libm_sse2/ldexp.c | 116 ++++++++++++++++++++++++++++++++++++ sdk/lib/crt/math/libm_sse2/ldexpf.c | 110 ++++++++++++++++++++++++++++++++++ 2 files changed, 226 insertions(+) diff --git a/sdk/lib/crt/math/libm_sse2/ldexp.c b/sdk/lib/crt/math/libm_sse2/ldexp.c new file mode 100644 index 00000000000..3724e7d6bdc --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/ldexp.c @@ -0,0 +1,116 @@ +/* + * Copyright (C) 2008-2020 Advanced Micro Devices, Inc. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without modification, + * are permitted provided that the following conditions are met: + * 1. Redistributions of source code must retain the above copyright notice, + * this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright notice, + * this list of conditions and the following disclaimer in the documentation + * and/or other materials provided with the distribution. + * 3. Neither the name of the copyright holder nor the names of its contributors + * may be used to endorse or promote products derived from this software without + * specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. + * IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, + * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, + * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, + * OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, + * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + * + */ + +#include "fn_macros.h" +#include "libm_util_amd.h" +#include "libm_special.h" + +double FN_PROTOTYPE_REF(ldexp)(double x, int n) +{ + UT64 val,val_x; + unsigned int sign; + int exponent; + val.f64 = x; + val_x.f64 = x; + sign = val.u32[1] & 0x80000000; + val.u32[1] = val.u32[1] & 0x7fffffff; /* remove the sign bit */ + + if (val.u64 > 0x7ff0000000000000) /* x is NaN */ + #ifdef WINDOWS + return __amd_handle_error("ldexp", __amd_ldexp, val_x.u64|0x0008000000000000, _DOMAIN, 0, EDOM, x, n, 2); + #else + { + if(!(val.u64 & 0x0008000000000000))// x is snan + return __amd_handle_error("ldexp", __amd_ldexp, val_x.u64|0x0008000000000000, _DOMAIN, AMD_F_INVALID, EDOM, x, n, 2); + else + return x; + } + #endif + + if(val.u64 == 0x7ff0000000000000)/* x = +-inf*/ + return x; + + if((val.u64 == 0x0000000000000000) || (n==0)) + return x; /* x= +-0 or n= 0*/ + + exponent = val.u32[1] >> 20; /* get the exponent */ + + if(exponent == 0)/*x is denormal*/ + { + val.f64 = val.f64 * VAL_2PMULTIPLIER_DP;/*multiply by 2^53 to bring it to the normal range*/ + exponent = val.u32[1] >> 20; /* get the exponent */ + exponent = exponent + n - MULTIPLIER_DP; + if(exponent < -MULTIPLIER_DP)/*underflow*/ + { + val.u32[1] = sign | 0x00000000; + val.u32[0] = 0x00000000; + return __amd_handle_error("ldexp", __amd_ldexp, val.u64, _UNDERFLOW, AMD_F_INEXACT|AMD_F_UNDERFLOW, ERANGE, x, (double)n, 2); + } + if(exponent > 2046)/*overflow*/ + { + val.u32[1] = sign | 0x7ff00000; + val.u32[0] = 0x00000000; + return __amd_handle_error("ldexp", __amd_ldexp, val.u64, _OVERFLOW, AMD_F_INEXACT|AMD_F_OVERFLOW, ERANGE ,x, (double)n, 2); + } + + exponent += MULTIPLIER_DP; + val.u32[1] = sign | (exponent << 20) | (val.u32[1] & 0x000fffff); + val.f64 = val.f64 * VAL_2PMMULTIPLIER_DP; + return val.f64; + } + + exponent += n; + + if(exponent < -MULTIPLIER_DP)/*underflow*/ + { + val.u32[1] = sign | 0x00000000; + val.u32[0] = 0x00000000; + return __amd_handle_error("ldexp", __amd_ldexp, val.u64, _UNDERFLOW, AMD_F_INEXACT|AMD_F_UNDERFLOW, ERANGE, x, (double)n, 2); + } + + if(exponent < 1)/*x is normal but output is debnormal*/ + { + exponent += MULTIPLIER_DP; + val.u32[1] = sign | (exponent << 20) | (val.u32[1] & 0x000fffff); + val.f64 = val.f64 * VAL_2PMMULTIPLIER_DP; + return val.f64; + } + + if(exponent > 2046)/*overflow*/ + { + val.u32[1] = sign | 0x7ff00000; + val.u32[0] = 0x00000000; + return __amd_handle_error("ldexp", __amd_ldexp, val.u64, _OVERFLOW, AMD_F_INEXACT|AMD_F_OVERFLOW, ERANGE ,x, (double)n, 2); + } + + val.u32[1] = sign | (exponent << 20) | (val.u32[1] & 0x000fffff); + return val.f64; +} + + + + diff --git a/sdk/lib/crt/math/libm_sse2/ldexpf.c b/sdk/lib/crt/math/libm_sse2/ldexpf.c new file mode 100644 index 00000000000..49b9ac1b396 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/ldexpf.c @@ -0,0 +1,110 @@ +/* + * Copyright (C) 2008-2020 Advanced Micro Devices, Inc. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without modification, + * are permitted provided that the following conditions are met: + * 1. Redistributions of source code must retain the above copyright notice, + * this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright notice, + * this list of conditions and the following disclaimer in the documentation + * and/or other materials provided with the distribution. + * 3. Neither the name of the copyright holder nor the names of its contributors + * may be used to endorse or promote products derived from this software without + * specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. + * IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, + * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, + * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, + * OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, + * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + * + */ + +#include "fn_macros.h" +#include "libm_util_amd.h" +#include "libm_special.h" + +float FN_PROTOTYPE_REF(ldexpf)(float x, int n) +{ + UT32 val,val_x; + unsigned int sign; + int exponent; + val.f32 = x; + val_x.f32 = x; + sign = val.u32 & 0x80000000; + val.u32 = val.u32 & 0x7fffffff;/* remove the sign bit */ + + if(val.u32 > 0x7f800000)/* x= nan */ + #ifdef WINDOWS + return __amd_handle_errorf("ldexpf", __amd_ldexp, val_x.u32|0x00400000, _DOMAIN, 0, EDOM, x, (float)n, 2); + #else + { + if(!(val.u32 & 0x00400000)) //x is snan + return __amd_handle_errorf("ldexpf", __amd_ldexp, val_x.u32|0x00400000, _DOMAIN, AMD_F_INVALID, EDOM, x, (float)n, 2); + else + return x; + } + #endif + + if(val.u32 == 0x7f800000)/* x = +-inf*/ + return x; + + if((val.u32 == 0x00000000) || (n==0))/* x= +-0 or n= 0*/ + return x; + + exponent = val.u32 >> 23; /* get the exponent */ + + if(exponent == 0)/*x is denormal*/ + { + val.f32 = val.f32 * VAL_2PMULTIPLIER_SP;/*multiply by 2^24 to bring it to the normal range*/ + exponent = (val.u32 >> 23); /* get the exponent */ + exponent = exponent + n - MULTIPLIER_SP; + if(exponent < -MULTIPLIER_SP)/*underflow*/ + { + val.u32 = sign | 0x00000000; + return __amd_handle_errorf("ldexpf", __amd_ldexp, val.u32, _UNDERFLOW, AMD_F_INEXACT|AMD_F_UNDERFLOW, ERANGE, x, (float)n, 2); + } + if(exponent > 254)/*overflow*/ + { + val.u32 = sign | 0x7f800000; + return __amd_handle_errorf("ldexpf", __amd_ldexp, val.u32, _OVERFLOW, AMD_F_INEXACT|AMD_F_OVERFLOW, ERANGE, x, (float)n, 2); + } + + exponent += MULTIPLIER_SP; + val.u32 = sign | (exponent << 23) | (val.u32 & 0x007fffff); + val.f32 = val.f32 * VAL_2PMMULTIPLIER_SP; + return val.f32; + } + + exponent += n; + + if(exponent < -MULTIPLIER_SP)/*underflow*/ + { + val.u32 = sign | 0x00000000; + return __amd_handle_errorf("ldexpf", __amd_ldexp, val.u32, _UNDERFLOW, AMD_F_INEXACT|AMD_F_UNDERFLOW, ERANGE, x, (float)n, 2); + } + + if(exponent < 1)/*x is normal but output is debnormal*/ + { + exponent += MULTIPLIER_SP; + val.u32 = sign | (exponent << 23) | (val.u32 & 0x007fffff); + val.f32 = val.f32 * VAL_2PMMULTIPLIER_SP; + return val.f32; + } + + if(exponent > 254)/*overflow*/ + { + val.u32 = sign | 0x7f800000; + return __amd_handle_errorf("ldexpf", __amd_ldexp, val.u32, _OVERFLOW, AMD_F_INEXACT|AMD_F_OVERFLOW, ERANGE, x, (float)n, 2); + } + + val.u32 = sign | (exponent << 23) | (val.u32 & 0x007fffff);/*x is normal and output is normal*/ + return val.f32; +} + +

1 year, 9 months

[reactos] 06/15: [LIBM] Fix up some asm files

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=105426b81afce4926d427… commit 105426b81afce4926d427925770acdc776923d19 Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Sat Jun 25 13:00:01 2022 +0300 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [LIBM] Fix up some asm files This allows to compile them with GAS after translation --- sdk/lib/crt/math/libm_sse2/fmod.asm | 10 +++++----- sdk/lib/crt/math/libm_sse2/fmodf.asm | 10 +++++----- sdk/lib/crt/math/libm_sse2/log.asm | 20 ++++++++++---------- sdk/lib/crt/math/libm_sse2/log10.asm | 20 ++++++++++---------- sdk/lib/crt/math/libm_sse2/pow.asm | 4 ++-- 5 files changed, 32 insertions(+), 32 deletions(-) diff --git a/sdk/lib/crt/math/libm_sse2/fmod.asm b/sdk/lib/crt/math/libm_sse2/fmod.asm index 11778f27bfb..7ba554671f8 100644 --- a/sdk/lib/crt/math/libm_sse2/fmod.asm +++ b/sdk/lib/crt/math/libm_sse2/fmod.asm @@ -90,12 +90,12 @@ fmod PROC FRAME fnclex ; clear exception flags ; in preparation for fprem -@@: +@again: DB 0d9h, 0f8h ; fprem DB 09bh, 0dfh, 0e0h ; fstsw ax test ax, 4 SHL X87SW_C - jnz @b ; do it again in case of partial result + jnz @again ; do it again in case of partial result DB 0ddh, 01ch, 024h ; fstp QWORD PTR [rsp] movlpd xmm0, QWORD PTR [rsp] ; result @@ -133,14 +133,14 @@ fmod PROC FRAME @raise: mov eax, INVALID ; raise exception mov r8, FPIND - jmp @f + jmp @fail @error: xor eax, eax ; no exception movd r8, xmm0 - jmp @f + jmp @fail -@@: +@fail: lea rcx, [@fmodz] ; fname mov edx, FPCODEFMOD ; opcode ; mov r8, INDEF ; value diff --git a/sdk/lib/crt/math/libm_sse2/fmodf.asm b/sdk/lib/crt/math/libm_sse2/fmodf.asm index e015ca66a6c..b5685d7ba0d 100644 --- a/sdk/lib/crt/math/libm_sse2/fmodf.asm +++ b/sdk/lib/crt/math/libm_sse2/fmodf.asm @@ -90,12 +90,12 @@ fmodf PROC FRAME fnclex ; clear exception flags ; in preparation for fprem -@@: +@again: DB 0d9h, 0f8h ; fprem DB 9bh, 0dfh, 0e0h ; fstsw ax test ax, 00400h - jnz @b ; do it again in case of partial result + jnz @again ; do it again in case of partial result DB 0d9h, 1ch, 24h ; fstp DWORD PTR [rsp] movss xmm0, DWORD PTR [rsp] ; result @@ -133,14 +133,14 @@ fmodf PROC FRAME @raise: mov eax, INVALID ; raise exception mov r8d, FPIND - jmp @f + jmp @fail @error: xor eax, eax ; no exception movd r8d, xmm0 - jmp @f + jmp @fail -@@: +@fail: lea rcx, [@fmodfz] ; fname mov edx, FPCODEFMOD ; opcode ; mov r8d, [rsp] ; value diff --git a/sdk/lib/crt/math/libm_sse2/log.asm b/sdk/lib/crt/math/libm_sse2/log.asm index 585f70d3a31..d80fbc8ed0b 100644 --- a/sdk/lib/crt/math/libm_sse2/log.asm +++ b/sdk/lib/crt/math/libm_sse2/log.asm @@ -391,11 +391,11 @@ Llog_fma3: xor rax,rax vpsrlq xmm3,xmm0,52 vmovq rax,xmm0 - vpsubq xmm3,xmm3,QWORD PTR __mask_1023 + vpsubq xmm3,xmm3,XMMWORD PTR __mask_1023 vcvtdq2pd xmm6,xmm3 ; xexp ; NaN or inf - vpand xmm5,xmm0,QWORD PTR __real_inf + vpand xmm5,xmm0,XMMWORD PTR __real_inf vcomisd xmm5,QWORD PTR __real_inf je Llog_fma3_x_is_inf_or_nan @@ -404,7 +404,7 @@ Llog_fma3: vcomisd xmm0,xmm5 jbe Llog_fma3_x_is_zero_or_neg - vpand xmm2,xmm0,QWORD PTR __real_mant + vpand xmm2,xmm0,XMMWORD PTR __real_mant vsubsd xmm4,xmm0,QWORD PTR __real_one vcomisd xmm6,QWORD PTR __mask_1023_f @@ -412,21 +412,21 @@ Llog_fma3: Llog_fma3_continue_common: ; compute index into the log tables - vpand xmm1,xmm0,QWORD PTR __mask_mant_all8 - vpand xmm3,xmm0,QWORD PTR __mask_mant9 + vpand xmm1,xmm0,XMMWORD PTR __mask_mant_all8 + vpand xmm3,xmm0,XMMWORD PTR __mask_mant9 vpsllq xmm3,xmm3,1 vpaddq xmm1,xmm3,xmm1 vmovq rax,xmm1 ; near one codepath - vpand xmm4,xmm4,QWORD PTR __real_notsign + vpand xmm4,xmm4,XMMWORD PTR __real_notsign vcomisd xmm4,QWORD PTR __real_threshold jb Llog_fma3_near_one ; F,Y shr rax,44 - vpor xmm2,xmm2,QWORD PTR __real_half - vpor xmm1,xmm1,QWORD PTR __real_half + vpor xmm2,xmm2,XMMWORD PTR __real_half + vpor xmm1,xmm1,XMMWORD PTR __real_half lea r9,QWORD PTR __log_F_inv_qword ; f = F - Y,r = f * inv @@ -501,10 +501,10 @@ Llog_fma3_near_one: Llog_fma3_denormal_adjust: - vpor xmm2,xmm2,QWORD PTR __real_one + vpor xmm2,xmm2,XMMWORD PTR __real_one vsubsd xmm2,xmm2,QWORD PTR __real_one vpsrlq xmm5,xmm2,52 - vpand xmm2,xmm2,QWORD PTR __real_mant + vpand xmm2,xmm2,XMMWORD PTR __real_mant vmovapd xmm0,xmm2 vpsubd xmm5,xmm5,XMMWORD PTR __mask_2045 vcvtdq2pd xmm6,xmm5 diff --git a/sdk/lib/crt/math/libm_sse2/log10.asm b/sdk/lib/crt/math/libm_sse2/log10.asm index 790b535d0c7..abe64191d64 100644 --- a/sdk/lib/crt/math/libm_sse2/log10.asm +++ b/sdk/lib/crt/math/libm_sse2/log10.asm @@ -382,7 +382,7 @@ Llog10_fma3: xor rax,rax vpsrlq xmm3,xmm0,52 vmovq rax,xmm0 - vpsubq xmm3,xmm3,QWORD PTR __int_1023 + vpsubq xmm3,xmm3,XMMWORD PTR __int_1023 vcvtdq2pd xmm6,xmm3 ; xmm6 <-- (double)xexp ; NaN or Inf? @@ -404,21 +404,21 @@ Llog10_fma3: Llog10_fma3_continue_common: ; compute index into the log tables - vpand xmm1,xmm0,DWORD PTR __mask_mant_top8 - vpand xmm3,xmm0,DWORD PTR __mask_mant9 + vpand xmm1,xmm0,XMMWORD PTR __mask_mant_top8 + vpand xmm3,xmm0,XMMWORD PTR __mask_mant9 vpsllq xmm3,xmm3,1 vpaddq xmm1,xmm3,xmm1 vmovq rax,xmm1 ; near one codepath - vpand xmm4,xmm4,DWORD PTR __real_notsign + vpand xmm4,xmm4,XMMWORD PTR __real_notsign vcomisd xmm4,QWORD PTR __real_threshold jb Llog10_fma3_near_one ; F,Y shr rax,44 - vpor xmm2,xmm2,DWORD PTR __real_half - vpor xmm1,xmm1,DWORD PTR __real_half + vpor xmm2,xmm2,XMMWORD PTR __real_half + vpor xmm1,xmm1,XMMWORD PTR __real_half lea r9,DWORD PTR __log_F_inv_qword ; f = F - Y,r = f * inv @@ -486,7 +486,7 @@ Llog10_fma3_near_one: vmulsd xmm5,xmm5,xmm2 vaddsd xmm4,xmm4,xmm5 vsubsd xmm4,xmm4,xmm6 - vpand xmm3,xmm0,QWORD PTR __mask_lower + vpand xmm3,xmm0,XMMWORD PTR __mask_lower vsubsd xmm0,xmm0,xmm3 vaddsd xmm4,xmm4,xmm0 @@ -505,12 +505,12 @@ Llog10_fma3_near_one: Llog10_fma3_denormal_adjust: - vpor xmm2,xmm2,QWORD PTR __real_one + vpor xmm2,xmm2,XMMWORD PTR __real_one vsubsd xmm2,xmm2,QWORD PTR __real_one vpsrlq xmm5,xmm2,52 - vpand xmm2,xmm2,QWORD PTR __mask_mant + vpand xmm2,xmm2,XMMWORD PTR __mask_mant vmovapd xmm0,xmm2 - vpsubd xmm5,xmm5,DWORD PTR __mask_2045 + vpsubd xmm5,xmm5,XMMWORD PTR __mask_2045 vcvtdq2pd xmm6,xmm5 jmp Llog10_fma3_continue_common diff --git a/sdk/lib/crt/math/libm_sse2/pow.asm b/sdk/lib/crt/math/libm_sse2/pow.asm index 65038c705b0..11543f93b07 100644 --- a/sdk/lib/crt/math/libm_sse2/pow.asm +++ b/sdk/lib/crt/math/libm_sse2/pow.asm @@ -1219,7 +1219,7 @@ Lpow_sse2_near_one: movsd xmm3, QWORD PTR [r9+r8*8] addsd xmm3, QWORD PTR [rdx+r8*8] mulsd xmm4, xmm3 - andpd xmm4, QWORD PTR __real_fffffffff8000000 + andpd xmm4, XMMWORD PTR __real_fffffffff8000000 movsd xmm5, xmm4 ; r1 mulsd xmm4, xmm0 subsd xmm1, xmm4 @@ -2028,7 +2028,7 @@ Lpow_fma3_near_one: vmovsd xmm3, QWORD PTR [r9+r8*8] vaddsd xmm3, xmm3, QWORD PTR [rdx+r8*8] vmulsd xmm4, xmm4, xmm3 ; xmm4 <-- r = f*inv - vandpd xmm4, xmm4, QWORD PTR __real_fffffffff8000000 ; r1 + vandpd xmm4, xmm4, XMMWORD PTR __real_fffffffff8000000 ; r1 vmovapd xmm5, xmm4 ; xmm5 <-- copy of r1 ; mulsd xmm4, xmm0 ; xmm4 <-- F*r1 ; subsd xmm1, xmm4 ; xmm1 <-- f - F*r1

1 year, 9 months

[reactos] 05/15: [LIBM] Convert tables from asm to C

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=af6d3bb18fdd43c61c62f… commit af6d3bb18fdd43c61c62fa9b7d67be0a213e2147 Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Sat Jun 18 12:16:29 2022 +0200 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [LIBM] Convert tables from asm to C --- sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm | 54 -- sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.c | 55 ++ sdk/lib/crt/math/libm_sse2/Lsincos_array.asm | 62 --- sdk/lib/crt/math/libm_sse2/Lsincos_array.c | 62 +++ sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm | 48 -- sdk/lib/crt/math/libm_sse2/Lsincosf_array.c | 49 ++ .../math/libm_sse2/log10_128_lead_tail_table.asm | 297 ----------- .../crt/math/libm_sse2/log10_128_lead_tail_table.c | 297 +++++++++++ .../math/libm_sse2/log10_256_lead_tail_table.asm | 552 -------------------- .../crt/math/libm_sse2/log10_256_lead_tail_table.c | 553 ++++++++++++++++++++ .../crt/math/libm_sse2/log_128_lead_tail_table.asm | 294 ----------- .../crt/math/libm_sse2/log_128_lead_tail_table.c | 297 +++++++++++ .../crt/math/libm_sse2/log_256_lead_tail_table.asm | 554 -------------------- .../crt/math/libm_sse2/log_256_lead_tail_table.c | 555 +++++++++++++++++++++ .../crt/math/libm_sse2/log_F_inv_dword_table.asm | 164 ------ sdk/lib/crt/math/libm_sse2/log_F_inv_dword_table.c | 164 ++++++ .../crt/math/libm_sse2/log_F_inv_qword_table.asm | 294 ----------- sdk/lib/crt/math/libm_sse2/log_F_inv_qword_table.c | 294 +++++++++++ .../libm_sse2/two_to_jby64_head_tail_table.asm | 165 ------ .../math/libm_sse2/two_to_jby64_head_tail_table.c | 167 +++++++ sdk/lib/crt/math/libm_sse2/two_to_jby64_table.asm | 99 ---- sdk/lib/crt/math/libm_sse2/two_to_jby64_table.c | 99 ++++ 22 files changed, 2592 insertions(+), 2583 deletions(-) diff --git a/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm b/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm deleted file mode 100644 index b267015fb75..00000000000 --- a/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm +++ /dev/null @@ -1,54 +0,0 @@ -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; -;; Defines __L_2_by_pi_bits array -;; Used in trigonometric argument reduction -;; - -.const - -ALIGN 16 -PUBLIC __L_2_by_pi_bits -__L_2_by_pi_bits DB 224, 241, 27, 193, 12, 88, 33, 116 - DB 53, 126, 196, 126, 237, 175, 169, 75 - DB 74, 41, 222, 231, 28, 244, 236, 197 - DB 151, 175, 31, 235, 158, 212, 181, 168 - DB 127, 121, 154, 253, 24, 61, 221, 38 - DB 44, 159, 60, 251, 217, 180, 125, 180 - DB 41, 104, 45, 70, 188, 188, 63, 96 - DB 22, 120, 255, 95, 226, 127, 236, 160 - DB 228, 247, 46, 126, 17, 114, 210, 231 - DB 76, 13, 230, 88, 71, 230, 4, 249 - DB 125, 209, 154, 192, 113, 166, 19, 18 - DB 237, 186, 212, 215, 8, 162, 251, 156 - DB 166, 196, 114, 172, 119, 248, 115, 72 - DB 70, 39, 168, 187, 36, 25, 128, 75 - DB 55, 9, 233, 184, 145, 220, 134, 21 - DB 239, 122, 175, 142, 69, 249, 7, 65 - DB 14, 241, 100, 86, 138, 109, 3, 119 - DB 211, 212, 71, 95, 157, 240, 167, 84 - DB 16, 57, 185, 13, 230, 139, 2, 0 - DB 0, 0, 0, 0, 0, 0 -END diff --git a/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.c b/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.c new file mode 100644 index 00000000000..e67d72618d0 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.c @@ -0,0 +1,55 @@ +/* +* MIT License +* ----------- +* +* Copyright (c) 2002-2019 Advanced Micro Devices, Inc. +* +* Permission is hereby granted, free of charge, to any person obtaining a copy +* of this Software and associated documentaon 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. +* +** +** Defines __L_2_by_pi_bits array +** Used in trigonometric argument reduction +*/ + +#include <crtdefs.h> + +const char _CRT_ALIGN(16) __L_2_by_pi_bits[] = +{ + 224, 241, 27, 193, 12, 88, 33, 116, + 53, 126, 196, 126, 237, 175, 169, 75, + 74, 41, 222, 231, 28, 244, 236, 197, + 151, 175, 31, 235, 158, 212, 181, 168, + 127, 121, 154, 253, 24, 61, 221, 38, + 44, 159, 60, 251, 217, 180, 125, 180, + 41, 104, 45, 70, 188, 188, 63, 96, + 22, 120, 255, 95, 226, 127, 236, 160, + 228, 247, 46, 126, 17, 114, 210, 231, + 76, 13, 230, 88, 71, 230, 4, 249, + 125, 209, 154, 192, 113, 166, 19, 18, + 237, 186, 212, 215, 8, 162, 251, 156, + 166, 196, 114, 172, 119, 248, 115, 72, + 70, 39, 168, 187, 36, 25, 128, 75, + 55, 9, 233, 184, 145, 220, 134, 21, + 239, 122, 175, 142, 69, 249, 7, 65, + 14, 241, 100, 86, 138, 109, 3, 119, + 211, 212, 71, 95, 157, 240, 167, 84, + 16, 57, 185, 13, 230, 139, 2, 0, + 0, 0, 0, 0, 0, 0 +}; + diff --git a/sdk/lib/crt/math/libm_sse2/Lsincos_array.asm b/sdk/lib/crt/math/libm_sse2/Lsincos_array.asm deleted file mode 100644 index 03f32d08e92..00000000000 --- a/sdk/lib/crt/math/libm_sse2/Lsincos_array.asm +++ /dev/null @@ -1,62 +0,0 @@ -;; -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; Defines __Lcosarray and __Lsinarray arrays. -;; Used in sin.asm and cos.asm -;; - -.const - -ALIGN 16 -PUBLIC __Lcosarray -__Lcosarray DQ 03fa5555555555555h ; 0.0416667 c1 - DQ 0 - DQ 0bf56c16c16c16967h ; -0.00138889 c2 - DQ 0 - DQ 03EFA01A019F4EC91h ; 2.48016e-005 c3 - DQ 0 - DQ 0bE927E4FA17F667Bh ; -2.75573e-007 c4 - DQ 0 - DQ 03E21EEB690382EECh ; 2.08761e-009 c5 - DQ 0 - DQ 0bDA907DB47258AA7h ; -1.13826e-011 c6 - DQ 0 - -ALIGN 16 -PUBLIC __Lsinarray -__Lsinarray DQ 0bfc5555555555555h ; -0.166667 s1 - DQ 0 - DQ 03f81111111110bb3h ; 0.00833333 s2 - DQ 0 - DQ 0bf2a01a019e83e5ch ; -0.000198413 s3 - DQ 0 - DQ 03ec71de3796cde01h ; 2.75573e-006 s4 - DQ 0 - DQ 0be5ae600b42fdfa7h ; -2.50511e-008 s5 - DQ 0 - DQ 03de5e0b2f9a43bb8h ; 1.59181e-010 s6 - DQ 0 - -END diff --git a/sdk/lib/crt/math/libm_sse2/Lsincos_array.c b/sdk/lib/crt/math/libm_sse2/Lsincos_array.c new file mode 100644 index 00000000000..f1a9ea13997 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/Lsincos_array.c @@ -0,0 +1,62 @@ +/* + * + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** Defines __Lcosarray and __Lsinarray arrays. + ** Used in sin.asm and cos.asm + */ + +#include <crtdefs.h> + +const long long _CRT_ALIGN(16) __Lcosarray[] = +{ + 0x03fa5555555555555ull, // 0.0416667 c1 + 0x0, + 0x0bf56c16c16c16967ull, // -0.00138889 c2 + 0x0, + 0x03EFA01A019F4EC91ull, // 2.48016e-005 c3 + 0x0, + 0x0bE927E4FA17F667Bull, // -2.75573e-007 c4 + 0x0, + 0x03E21EEB690382EECull, // 2.08761e-009 c5 + 0x0, + 0x0bDA907DB47258AA7ull, // -1.13826e-011 c6 + 0x0, +}; + +const long long _CRT_ALIGN(16) __Lsinarray[] = +{ + 0x0bfc5555555555555ull, // -0.166667 s1 + 0x0, + 0x03f81111111110bb3ull, // 0.00833333 s2 + 0x0, + 0x0bf2a01a019e83e5cull, // -0.000198413 s3 + 0x0, + 0x03ec71de3796cde01ull, // 2.75573e-006 s4 + 0x0, + 0x0be5ae600b42fdfa7ull, // -2.50511e-008 s5 + 0x0, + 0x03de5e0b2f9a43bb8ull, // 1.59181e-010 s6 + 0x0, +}; diff --git a/sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm b/sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm deleted file mode 100644 index 871b9ce8410..00000000000 --- a/sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm +++ /dev/null @@ -1,48 +0,0 @@ -;; -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; Defines __Lcosarray and __Lsinarray arrays. -;; Used in sin.asm and cos.asm -;; These coefficients are actually from Taylor series. -;; - -.const - -ALIGN 16 -PUBLIC __Lcosfarray -__Lcosfarray DQ 0bfe0000000000000h ; -0.5 c0 - DQ 03fa5555555555555h ; 0.0416667 c1 - DQ 0bf56c16c16c16c16h ; -0.00138889 c2 - DQ 03EFA01A01A01A019h ; 2.48016e-005 c3 - DQ 0be927e4fb7789f5ch ; -2.75573e-007 c4 - -ALIGN 16 -PUBLIC __Lsinfarray -__Lsinfarray DQ 0bfc5555555555555h ; -0.166667 s1 - DQ 03f81111111111111h ; 0.00833333 s2 - DQ 0bf2a01a01a01a01ah ; -0.000198413 s3 - DQ 03ec71de3a556c734h ; 2.75573e-006 s4 - -END diff --git a/sdk/lib/crt/math/libm_sse2/Lsincosf_array.c b/sdk/lib/crt/math/libm_sse2/Lsincosf_array.c new file mode 100644 index 00000000000..3c1934c02ba --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/Lsincosf_array.c @@ -0,0 +1,49 @@ +/* + * + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** Defines __Lcosarray and __Lsinarray arrays. + ** Used in sin.asm and cos.asm + ** These coefficients are actually from Taylor series. + */ + +#include <crtdefs.h> + +const long long _CRT_ALIGN(16) __Lcosfarray[] = +{ + 0x0bfe0000000000000ull, // -0.5 c0 + 0x03fa5555555555555ull, // 0.0416667 c1 + 0x0bf56c16c16c16c16ull, // -0.00138889 c2 + 0x03EFA01A01A01A019ull, // 2.48016e-005 c3 + 0x0be927e4fb7789f5cull, // -2.75573e-007 c4 +}; + +const long long _CRT_ALIGN(16) __Lsinfarray[] = +{ + + 0x0bfc5555555555555ull, // -0.166667 s1 + 0x03f81111111111111ull, // 0.00833333 s2 + 0x0bf2a01a01a01a01aull, // -0.000198413 s3 + 0x03ec71de3a556c734ull, // 2.75573e-006 s4 +}; diff --git a/sdk/lib/crt/math/libm_sse2/log10_128_lead_tail_table.asm b/sdk/lib/crt/math/libm_sse2/log10_128_lead_tail_table.asm deleted file mode 100644 index bf5ee104f10..00000000000 --- a/sdk/lib/crt/math/libm_sse2/log10_128_lead_tail_table.asm +++ /dev/null @@ -1,297 +0,0 @@ -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; -;; Defines __log_128_lead and __log_128_tail tables -;; Used by log and pow -;; - -.const - -ALIGN 16 -PUBLIC __log10_128_lead -__log10_128_lead: - DD 00000000h - DD 3b5d4000h - DD 3bdc8000h - DD 3c24c000h - DD 3c5ac000h - DD 3c884000h - DD 3ca2c000h - DD 3cbd4000h - DD 3cd78000h - DD 3cf1c000h - DD 3d05c000h - DD 3d128000h - DD 3d1f4000h - DD 3d2c0000h - DD 3d388000h - DD 3d450000h - DD 3d518000h - DD 3d5dc000h - DD 3d6a0000h - DD 3d760000h - DD 3d810000h - DD 3d870000h - DD 3d8d0000h - DD 3d92c000h - DD 3d98c000h - DD 3d9e8000h - DD 3da44000h - DD 3daa0000h - DD 3dafc000h - DD 3db58000h - DD 3dbb4000h - DD 3dc0c000h - DD 3dc64000h - DD 3dcc0000h - DD 3dd18000h - DD 3dd6c000h - DD 3ddc4000h - DD 3de1c000h - DD 3de70000h - DD 3dec8000h - DD 3df1c000h - DD 3df70000h - DD 3dfc4000h - DD 3e00c000h - DD 3e034000h - DD 3e05c000h - DD 3e088000h - DD 3e0b0000h - DD 3e0d8000h - DD 3e100000h - DD 3e128000h - DD 3e150000h - DD 3e178000h - DD 3e1a0000h - DD 3e1c8000h - DD 3e1ec000h - DD 3e214000h - DD 3e23c000h - DD 3e260000h - DD 3e288000h - DD 3e2ac000h - DD 3e2d4000h - DD 3e2f8000h - DD 3e31c000h - DD 3e344000h - DD 3e368000h - DD 3e38c000h - DD 3e3b0000h - DD 3e3d4000h - DD 3e3fc000h - DD 3e420000h - DD 3e440000h - DD 3e464000h - DD 3e488000h - DD 3e4ac000h - DD 3e4d0000h - DD 3e4f4000h - DD 3e514000h - DD 3e538000h - DD 3e55c000h - DD 3e57c000h - DD 3e5a0000h - DD 3e5c0000h - DD 3e5e4000h - DD 3e604000h - DD 3e624000h - DD 3e648000h - DD 3e668000h - DD 3e688000h - DD 3e6ac000h - DD 3e6cc000h - DD 3e6ec000h - DD 3e70c000h - DD 3e72c000h - DD 3e74c000h - DD 3e76c000h - DD 3e78c000h - DD 3e7ac000h - DD 3e7cc000h - DD 3e7ec000h - DD 3e804000h - DD 3e814000h - DD 3e824000h - DD 3e834000h - DD 3e840000h - DD 3e850000h - DD 3e860000h - DD 3e870000h - DD 3e880000h - DD 3e88c000h - DD 3e89c000h - DD 3e8ac000h - DD 3e8bc000h - DD 3e8c8000h - DD 3e8d8000h - DD 3e8e8000h - DD 3e8f4000h - DD 3e904000h - DD 3e914000h - DD 3e920000h - DD 3e930000h - DD 3e93c000h - DD 3e94c000h - DD 3e958000h - DD 3e968000h - DD 3e978000h - DD 3e984000h - DD 3e994000h - DD 3e9a0000h - -ALIGN 16 -PUBLIC __log10_128_tail -__log10_128_tail: - DD 00000000h - DD 367a8e44h - DD 368ed49fh - DD 36c21451h - DD 375211d6h - DD 3720ea11h - DD 37e9eb59h - DD 37b87be7h - DD 37bf2560h - DD 33d597a0h - DD 37806a05h - DD 3820581fh - DD 38223334h - DD 378e3bach - DD 3810684fh - DD 37feb7aeh - DD 36a9d609h - DD 37a68163h - DD 376a8b27h - DD 384c8fd6h - DD 3885183eh - DD 3874a760h - DD 380d1154h - DD 38ea42bdh - DD 384c1571h - DD 38ba66b8h - DD 38e7da3bh - DD 38eee632h - DD 38d00911h - DD 388bbedeh - DD 378a0512h - DD 3894c7a0h - DD 38e30710h - DD 36db2829h - DD 3729d609h - DD 38fa0e82h - DD 38bc9a75h - DD 383a9297h - DD 38dc83c8h - DD 37eac335h - DD 38706ac3h - DD 389574c2h - DD 3892d068h - DD 38615032h - DD 3917acf4h - DD 3967a126h - DD 38217840h - DD 38b420abh - DD 38f9c7b2h - DD 391103bdh - DD 39169a6bh - DD 390dd194h - DD 38eda471h - DD 38a38950h - DD 37f6844ah - DD 395e1cdbh - DD 390fcffch - DD 38503e9dh - DD 394b00fdh - DD 38a9910ah - DD 39518a31h - DD 3882d2c2h - DD 392488e4h - DD 397b0affh - DD 388a22d8h - DD 3902bd5eh - DD 39342f85h - DD 39598811h - DD 3972e6b1h - DD 34d53654h - DD 360ca25eh - DD 39785cc0h - DD 39630710h - DD 39424ed7h - DD 39165101h - DD 38be5421h - DD 37e7b0c0h - DD 394fd0c3h - DD 38efaaaah - DD 37a8f566h - DD 3927c744h - DD 383fa4d5h - DD 392d9e39h - DD 3803feaeh - DD 390a268ch - DD 39692b80h - DD 38789b4fh - DD 3909307dh - DD 394a601ch - DD 35e67edch - DD 383e386dh - DD 38a7743dh - DD 38dccec3h - DD 38ff57e0h - DD 39079d8bh - DD 390651a6h - DD 38f7bad9h - DD 38d0ab82h - DD 38979e7dh - DD 381978eeh - DD 397816c8h - DD 39410cb2h - DD 39015384h - DD 3863fa28h - DD 39f41065h - DD 39c7668ah - DD 39968afah - DD 39430db9h - DD 38a18cf3h - DD 39eb2907h - DD 39a9e10ch - DD 39492800h - DD 385a53d1h - DD 39ce0cf7h - DD 3979c7b2h - DD 389f5d99h - DD 39ceefcbh - DD 39646a39h - DD 380d7a9bh - DD 39ad6650h - DD 390ac3b8h - DD 39d9a9a8h - DD 39548a99h - DD 39f73c4bh - DD 3980960eh - DD 374b3d5ah - DD 39888f1eh - DD 37679a07h - DD 39826a13h -END diff --git a/sdk/lib/crt/math/libm_sse2/log10_128_lead_tail_table.c b/sdk/lib/crt/math/libm_sse2/log10_128_lead_tail_table.c new file mode 100644 index 00000000000..631196c98c8 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/log10_128_lead_tail_table.c @@ -0,0 +1,297 @@ +/* + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** + ** Defines __log10_128_lead and __log10_128_tail tables + ** Used by log and pow + ** + */ + +#include <crtdefs.h> + +const unsigned int _CRT_ALIGN(16) __log10_128_lead[] = +{ + 0x00000000, + 0x3b5d4000, + 0x3bdc8000, + 0x3c24c000, + 0x3c5ac000, + 0x3c884000, + 0x3ca2c000, + 0x3cbd4000, + 0x3cd78000, + 0x3cf1c000, + 0x3d05c000, + 0x3d128000, + 0x3d1f4000, + 0x3d2c0000, + 0x3d388000, + 0x3d450000, + 0x3d518000, + 0x3d5dc000, + 0x3d6a0000, + 0x3d760000, + 0x3d810000, + 0x3d870000, + 0x3d8d0000, + 0x3d92c000, + 0x3d98c000, + 0x3d9e8000, + 0x3da44000, + 0x3daa0000, + 0x3dafc000, + 0x3db58000, + 0x3dbb4000, + 0x3dc0c000, + 0x3dc64000, + 0x3dcc0000, + 0x3dd18000, + 0x3dd6c000, + 0x3ddc4000, + 0x3de1c000, + 0x3de70000, + 0x3dec8000, + 0x3df1c000, + 0x3df70000, + 0x3dfc4000, + 0x3e00c000, + 0x3e034000, + 0x3e05c000, + 0x3e088000, + 0x3e0b0000, + 0x3e0d8000, + 0x3e100000, + 0x3e128000, + 0x3e150000, + 0x3e178000, + 0x3e1a0000, + 0x3e1c8000, + 0x3e1ec000, + 0x3e214000, + 0x3e23c000, + 0x3e260000, + 0x3e288000, + 0x3e2ac000, + 0x3e2d4000, + 0x3e2f8000, + 0x3e31c000, + 0x3e344000, + 0x3e368000, + 0x3e38c000, + 0x3e3b0000, + 0x3e3d4000, + 0x3e3fc000, + 0x3e420000, + 0x3e440000, + 0x3e464000, + 0x3e488000, + 0x3e4ac000, + 0x3e4d0000, + 0x3e4f4000, + 0x3e514000, + 0x3e538000, + 0x3e55c000, + 0x3e57c000, + 0x3e5a0000, + 0x3e5c0000, + 0x3e5e4000, + 0x3e604000, + 0x3e624000, + 0x3e648000, + 0x3e668000, + 0x3e688000, + 0x3e6ac000, + 0x3e6cc000, + 0x3e6ec000, + 0x3e70c000, + 0x3e72c000, + 0x3e74c000, + 0x3e76c000, + 0x3e78c000, + 0x3e7ac000, + 0x3e7cc000, + 0x3e7ec000, + 0x3e804000, + 0x3e814000, + 0x3e824000, + 0x3e834000, + 0x3e840000, + 0x3e850000, + 0x3e860000, + 0x3e870000, + 0x3e880000, + 0x3e88c000, + 0x3e89c000, + 0x3e8ac000, + 0x3e8bc000, + 0x3e8c8000, + 0x3e8d8000, + 0x3e8e8000, + 0x3e8f4000, + 0x3e904000, + 0x3e914000, + 0x3e920000, + 0x3e930000, + 0x3e93c000, + 0x3e94c000, + 0x3e958000, + 0x3e968000, + 0x3e978000, + 0x3e984000, + 0x3e994000, + 0x3e9a0000, +}; + +const unsigned int _CRT_ALIGN(16) __log10_128_tail[] = +{ + 0x00000000, + 0x367a8e44, + 0x368ed49f, + 0x36c21451, + 0x375211d6, + 0x3720ea11, + 0x37e9eb59, + 0x37b87be7, + 0x37bf2560, + 0x33d597a0, + 0x37806a05, + 0x3820581f, + 0x38223334, + 0x378e3bac, + 0x3810684f, + 0x37feb7ae, + 0x36a9d609, + 0x37a68163, + 0x376a8b27, + 0x384c8fd6, + 0x3885183e, + 0x3874a760, + 0x380d1154, + 0x38ea42bd, + 0x384c1571, + 0x38ba66b8, + 0x38e7da3b, + 0x38eee632, + 0x38d00911, + 0x388bbede, + 0x378a0512, + 0x3894c7a0, + 0x38e30710, + 0x36db2829, + 0x3729d609, + 0x38fa0e82, + 0x38bc9a75, + 0x383a9297, + 0x38dc83c8, + 0x37eac335, + 0x38706ac3, + 0x389574c2, + 0x3892d068, + 0x38615032, + 0x3917acf4, + 0x3967a126, + 0x38217840, + 0x38b420ab, + 0x38f9c7b2, + 0x391103bd, + 0x39169a6b, + 0x390dd194, + 0x38eda471, + 0x38a38950, + 0x37f6844a, + 0x395e1cdb, + 0x390fcffc, + 0x38503e9d, + 0x394b00fd, + 0x38a9910a, + 0x39518a31, + 0x3882d2c2, + 0x392488e4, + 0x397b0aff, + 0x388a22d8, + 0x3902bd5e, + 0x39342f85, + 0x39598811, + 0x3972e6b1, + 0x34d53654, + 0x360ca25e, + 0x39785cc0, + 0x39630710, + 0x39424ed7, + 0x39165101, + 0x38be5421, + 0x37e7b0c0, + 0x394fd0c3, + 0x38efaaaa, + 0x37a8f566, + 0x3927c744, + 0x383fa4d5, + 0x392d9e39, + 0x3803feae, + 0x390a268c, + 0x39692b80, + 0x38789b4f, + 0x3909307d, + 0x394a601c, + 0x35e67edc, + 0x383e386d, + 0x38a7743d, + 0x38dccec3, + 0x38ff57e0, + 0x39079d8b, + 0x390651a6, + 0x38f7bad9, + 0x38d0ab82, + 0x38979e7d, + 0x381978ee, + 0x397816c8, + 0x39410cb2, + 0x39015384, + 0x3863fa28, + 0x39f41065, + 0x39c7668a, + 0x39968afa, + 0x39430db9, + 0x38a18cf3, + 0x39eb2907, + 0x39a9e10c, + 0x39492800, + 0x385a53d1, + 0x39ce0cf7, + 0x3979c7b2, + 0x389f5d99, + 0x39ceefcb, + 0x39646a39, + 0x380d7a9b, + 0x39ad6650, + 0x390ac3b8, + 0x39d9a9a8, + 0x39548a99, + 0x39f73c4b, + 0x3980960e, + 0x374b3d5a, + 0x39888f1e, + 0x37679a07, + 0x39826a13, +}; diff --git a/sdk/lib/crt/math/libm_sse2/log10_256_lead_tail_table.asm b/sdk/lib/crt/math/libm_sse2/log10_256_lead_tail_table.asm deleted file mode 100644 index 6f451cfc7c2..00000000000 --- a/sdk/lib/crt/math/libm_sse2/log10_256_lead_tail_table.asm +++ /dev/null @@ -1,552 +0,0 @@ -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; -;; Defines __log_256_lead and __log_256_tail tables -;; Used by log and pow -;; - -.const - -ALIGN 16 -PUBLIC __log10_256_lead -__log10_256_lead: - DQ 0000000000000000h - DQ 3f5bbd9e90000000h - DQ 3f6bafd470000000h - DQ 3f74b99560000000h - DQ 3f7b9476a0000000h - DQ 3f81344da0000000h - DQ 3f849b0850000000h - DQ 3f87fe71c0000000h - DQ 3f8b5e9080000000h - DQ 3f8ebb6af0000000h - DQ 3f910a83a0000000h - DQ 3f92b5b5e0000000h - DQ 3f945f4f50000000h - DQ 3f96075300000000h - DQ 3f97adc3d0000000h - DQ 3f9952a4f0000000h - DQ 3f9af5f920000000h - DQ 3f9c97c370000000h - DQ 3f9e3806a0000000h - DQ 3f9fd6c5b0000000h - DQ 3fa0ba01a0000000h - DQ 3fa187e120000000h - DQ 3fa25502c0000000h - DQ 3fa32167c0000000h - DQ 3fa3ed1190000000h - DQ 3fa4b80180000000h - DQ 3fa58238e0000000h - DQ 3fa64bb910000000h - DQ 3fa7148340000000h - DQ 3fa7dc98c0000000h - DQ 3fa8a3fad0000000h - DQ 3fa96aaac0000000h - DQ 3faa30a9d0000000h - DQ 3faaf5f920000000h - DQ 3fabba9a00000000h - DQ 3fac7e8d90000000h - DQ 3fad41d510000000h - DQ 3fae0471a0000000h - DQ 3faec66470000000h - DQ 3faf87aeb0000000h - DQ 3fb02428c0000000h - DQ 3fb08426f0000000h - DQ 3fb0e3d290000000h - DQ 3fb1432c30000000h - DQ 3fb1a23440000000h - DQ 3fb200eb60000000h - DQ 3fb25f5210000000h - DQ 3fb2bd68e0000000h - DQ 3fb31b3050000000h - DQ 3fb378a8e0000000h - DQ 3fb3d5d330000000h - DQ 3fb432afa0000000h - DQ 3fb48f3ed0000000h - DQ 3fb4eb8120000000h - DQ 3fb5477730000000h - DQ 3fb5a32160000000h - DQ 3fb5fe8040000000h - DQ 3fb6599440000000h - DQ 3fb6b45df0000000h - DQ 3fb70eddb0000000h - DQ 3fb7691400000000h - DQ 3fb7c30160000000h - DQ 3fb81ca630000000h - DQ 3fb8760300000000h - DQ 3fb8cf1830000000h - DQ 3fb927e640000000h - DQ 3fb9806d90000000h - DQ 3fb9d8aea0000000h - DQ 3fba30a9d0000000h - DQ 3fba885fa0000000h - DQ 3fbadfd070000000h - DQ 3fbb36fcb0000000h - DQ 3fbb8de4d0000000h - DQ 3fbbe48930000000h - DQ 3fbc3aea40000000h - DQ 3fbc910870000000h - DQ 3fbce6e410000000h - DQ 3fbd3c7da0000000h - DQ 3fbd91d580000000h - DQ 3fbde6ec00000000h - DQ 3fbe3bc1a0000000h - DQ 3fbe9056b0000000h - DQ 3fbee4aba0000000h - DQ 3fbf38c0c0000000h - DQ 3fbf8c9680000000h - DQ 3fbfe02d30000000h - DQ 3fc019c2a0000000h - DQ 3fc0434f70000000h - DQ 3fc06cbd60000000h - DQ 3fc0960c80000000h - DQ 3fc0bf3d00000000h - DQ 3fc0e84f10000000h - DQ 3fc11142f0000000h - DQ 3fc13a18a0000000h - DQ 3fc162d080000000h - DQ 3fc18b6a90000000h - DQ 3fc1b3e710000000h - DQ 3fc1dc4630000000h - DQ 3fc2048810000000h - DQ 3fc22cace0000000h - DQ 3fc254b4d0000000h - DQ 3fc27c9ff0000000h - DQ 3fc2a46e80000000h - DQ 3fc2cc20b0000000h - DQ 3fc2f3b690000000h - DQ 3fc31b3050000000h - DQ 3fc3428e20000000h - DQ 3fc369d020000000h - DQ 3fc390f680000000h - DQ 3fc3b80160000000h - DQ 3fc3def0e0000000h - DQ 3fc405c530000000h - DQ 3fc42c7e70000000h - DQ 3fc4531cd0000000h - DQ 3fc479a070000000h - DQ 3fc4a00970000000h - DQ 3fc4c65800000000h - DQ 3fc4ec8c30000000h - DQ 3fc512a640000000h - DQ 3fc538a630000000h - DQ 3fc55e8c50000000h - DQ 3fc5845890000000h - DQ 3fc5aa0b40000000h - DQ 3fc5cfa470000000h - DQ 3fc5f52440000000h - DQ 3fc61a8ad0000000h - DQ 3fc63fd850000000h - DQ 3fc6650cd0000000h - DQ 3fc68a2880000000h - DQ 3fc6af2b80000000h - DQ 3fc6d415e0000000h - DQ 3fc6f8e7d0000000h - DQ 3fc71da170000000h - DQ 3fc74242e0000000h - DQ 3fc766cc40000000h - DQ 3fc78b3da0000000h - DQ 3fc7af9730000000h - DQ 3fc7d3d910000000h - DQ 3fc7f80350000000h - DQ 3fc81c1620000000h - DQ 3fc8401190000000h - DQ 3fc863f5c0000000h - DQ 3fc887c2e0000000h - DQ 3fc8ab7900000000h - DQ 3fc8cf1830000000h - DQ 3fc8f2a0a0000000h - DQ 3fc9161270000000h - DQ 3fc9396db0000000h - DQ 3fc95cb280000000h - DQ 3fc97fe100000000h - DQ 3fc9a2f950000000h - DQ 3fc9c5fb70000000h - DQ 3fc9e8e7b0000000h - DQ 3fca0bbdf0000000h - DQ 3fca2e7e80000000h - DQ 3fca512960000000h - DQ 3fca73bea0000000h - DQ 3fca963e70000000h - DQ 3fcab8a8f0000000h - DQ 3fcadafe20000000h - DQ 3fcafd3e30000000h - DQ 3fcb1f6930000000h - DQ 3fcb417f40000000h - DQ 3fcb638070000000h - DQ 3fcb856cf0000000h - DQ 3fcba744b0000000h - DQ 3fcbc907f0000000h - DQ 3fcbeab6c0000000h - DQ 3fcc0c5130000000h - DQ 3fcc2dd750000000h - DQ 3fcc4f4950000000h - DQ 3fcc70a740000000h - DQ 3fcc91f130000000h - DQ 3fccb32740000000h - DQ 3fccd44980000000h - DQ 3fccf55810000000h - DQ 3fcd165300000000h - DQ 3fcd373a60000000h - DQ 3fcd580e60000000h - DQ 3fcd78cf00000000h - DQ 3fcd997c70000000h - DQ 3fcdba16a0000000h - DQ 3fcdda9dd0000000h - DQ 3fcdfb11f0000000h - DQ 3fce1b7330000000h - DQ 3fce3bc1a0000000h - DQ 3fce5bfd50000000h - DQ 3fce7c2660000000h - DQ 3fce9c3ce0000000h - DQ 3fcebc40e0000000h - DQ 3fcedc3280000000h - DQ 3fcefc11d0000000h - DQ 3fcf1bdee0000000h - DQ 3fcf3b99d0000000h - DQ 3fcf5b42a0000000h - DQ 3fcf7ad980000000h - DQ 3fcf9a5e70000000h - DQ 3fcfb9d190000000h - DQ 3fcfd932f0000000h - DQ 3fcff882a0000000h - DQ 3fd00be050000000h - DQ 3fd01b76a0000000h - DQ 3fd02b0430000000h - DQ 3fd03a8910000000h - DQ 3fd04a0540000000h - DQ 3fd05978e0000000h - DQ 3fd068e3f0000000h - DQ 3fd0784670000000h - DQ 3fd087a080000000h - DQ 3fd096f210000000h - DQ 3fd0a63b30000000h - DQ 3fd0b57bf0000000h - DQ 3fd0c4b450000000h - DQ 3fd0d3e460000000h - DQ 3fd0e30c30000000h - DQ 3fd0f22bc0000000h - DQ 3fd1014310000000h - DQ 3fd1105240000000h - DQ 3fd11f5940000000h - DQ 3fd12e5830000000h - DQ 3fd13d4f00000000h - DQ 3fd14c3dd0000000h - DQ 3fd15b24a0000000h - DQ 3fd16a0370000000h - DQ 3fd178da50000000h - DQ 3fd187a940000000h - DQ 3fd1967060000000h - DQ 3fd1a52fa0000000h - DQ 3fd1b3e710000000h - DQ 3fd1c296c0000000h - DQ 3fd1d13eb0000000h - DQ 3fd1dfdef0000000h - DQ 3fd1ee7770000000h - DQ 3fd1fd0860000000h - DQ 3fd20b91a0000000h - DQ 3fd21a1350000000h - DQ 3fd2288d70000000h - DQ 3fd2370010000000h - DQ 3fd2456b30000000h - DQ 3fd253ced0000000h - DQ 3fd2622b00000000h - DQ 3fd2707fd0000000h - DQ 3fd27ecd40000000h - DQ 3fd28d1360000000h - DQ 3fd29b5220000000h - DQ 3fd2a989a0000000h - DQ 3fd2b7b9e0000000h - DQ 3fd2c5e2e0000000h - DQ 3fd2d404b0000000h - DQ 3fd2e21f50000000h - DQ 3fd2f032c0000000h - DQ 3fd2fe3f20000000h - DQ 3fd30c4470000000h - DQ 3fd31a42b0000000h - DQ 3fd32839e0000000h - DQ 3fd3362a10000000h - DQ 3fd3441350000000h -ALIGN 16 -PUBLIC __log10_256_tail -__log10_256_tail: - DQ 0000000000000000h - DQ 3db20abc22b2208fh - DQ 3db10f69332e0dd4h - DQ 3dce950de87ed257h - DQ 3dd3f3443b626d69h - DQ 3df45aeaa5363e57h - DQ 3dc443683ce1bf0bh - DQ 3df989cd60c6a511h - DQ 3dfd626f201f2e9fh - DQ 3de94f8bb8dabdcdh - DQ 3e0088d8ef423015h - DQ 3e080413a62b79adh - DQ 3e059717c0eed3c4h - DQ 3dad4a77add44902h - DQ 3e0e763ff037300eh - DQ 3de162d74706f6c3h - DQ 3e0601cc1f4dbc14h - DQ 3deaf3e051f6e5bfh - DQ 3e097a0b1e1af3ebh - DQ 3dc0a38970c002c7h - DQ 3e102e000057c751h - DQ 3e155b00eecd6e0eh - DQ 3ddf86297003b5afh - DQ 3e1057b9b336a36dh - DQ 3e134bc84a06ea4fh - DQ 3e1643da9ea1bcadh - DQ 3e1d66a7b4f7ea2ah - DQ 3df6b2e038f7fcefh - DQ 3df3e954c670f088h - DQ 3e047209093acab3h - DQ 3e1d708fe7275da7h - DQ 3e1fdf9e7771b9e7h - DQ 3e0827bfa70a0660h - DQ 3e1601cc1f4dbc14h - DQ 3e0637f6106a5e5bh - DQ 3e126a13f17c624bh - DQ 3e093eb2ce80623ah - DQ 3e1430d1e91594deh - DQ 3e1d6b10108fa031h - DQ 3e16879c0bbaf241h - DQ 3dff08015ea6bc2bh - DQ 3e29b63dcdc6676ch - DQ 3e2b022cbcc4ab2ch - DQ 3df917d07ddd6544h - DQ 3e1540605703379eh - DQ 3e0cd18b947a1b60h - DQ 3e17ad65277ca97eh - DQ 3e11884dc59f5fa9h - DQ 3e1711c46006d082h - DQ 3e2f092e3c3108f8h - DQ 3e1714c5e32be13ah - DQ 3e26bba7fd734f9ah - DQ 3dfdf48fb5e08483h - DQ 3e232f9bc74d0b95h - DQ 3df973e848790c13h - DQ 3e1eccbc08c6586eh - DQ 3e2115e9f9524a98h - DQ 3e2f1740593131b8h - DQ 3e1bcf8b25643835h - DQ 3e1f5fa81d8bed80h - DQ 3e244a4df929d9e4h - DQ 3e129820d8220c94h - DQ 3e2a0b489304e309h - DQ 3e1f4d56aba665feh - DQ 3e210c9019365163h - DQ 3df80f78fe592736h - DQ 3e10528825c81ccah - DQ 3de095537d6d746ah - DQ 3e1827bfa70a0660h - DQ 3e06b0a8ec45933ch - DQ 3e105af81bf5dba9h - DQ 3e17e2fa2655d515h - DQ 3e0d59ecbfaee4bfh - DQ 3e1d8b2fda683fa3h - DQ 3e24b8ddfd3a3737h - DQ 3e13827e61ae1204h - DQ 3e2c8c7b49e90f9fh - DQ 3e29eaf01597591dh - DQ 3e19aaa66e317b36h - DQ 3e2e725609720655h - DQ 3e261c33fc7aac54h - DQ 3e29662bcf61a252h - DQ 3e1843c811c42730h - DQ 3e2064bb0b5acb36h - DQ 3e0a340c842701a4h - DQ 3e1a8e55b58f79d6h - DQ 3de92d219c5e9d9ah - DQ 3e3f63e60d7ffd6ah - DQ 3e2e9b0ed9516314h - DQ 3e2923901962350ch - DQ 3e326f8838785e81h - DQ 3e3b5b6a4caba6afh - DQ 3df0226adc8e761ch - DQ 3e3c4ad7313a1aedh - DQ 3e1564e87c738d17h - DQ 3e338fecf18a6618h - DQ 3e3d929ef5777666h - DQ 3e39483bf08da0b8h - DQ 3e3bdd0eeeaa5826h - DQ 3e39c4dd590237bah - DQ 3e1af3e9e0ebcac7h - DQ 3e35ce5382270dach - DQ 3e394f74532ab9bah - DQ 3e07342795888654h - DQ 3e0c5a000be34bf0h - DQ 3e2711c46006d082h - DQ 3e250025b4ed8cf8h - DQ 3e2ed18bcef2d2a0h - DQ 3e21282e0c0a7554h - DQ 3e0d70f33359a7cah - DQ 3e2b7f7e13a84025h - DQ 3e33306ec321891eh - DQ 3e3fc7f8038b7550h - DQ 3e3eb0358cd71d64h - DQ 3e3a76c822859474h - DQ 3e3d0ec652de86e3h - DQ 3e2fa4cce08658afh - DQ 3e3b84a2d2c00a9eh - DQ 3e20a5b0f2c25bd1h - DQ 3e3dd660225bf699h - DQ 3e08b10f859bf037h - DQ 3e3e8823b590cbe1h - DQ 3e361311f31e96f6h - DQ 3e2e1f875ca20f9ah - DQ 3e2c95724939b9a5h - DQ 3e3805957a3e58e2h - DQ 3e2ff126ea9f0334h - DQ 3e3953f5598e5609h - DQ 3e36c16ff856c448h - DQ 3e24cb220ff261f4h - DQ 3e35e120d53d53a2h - DQ 3e3a527f6189f256h - DQ 3e3856fcffd49c0fh - DQ 3e300c2e8228d7dah - DQ 3df113d09444dfe0h - DQ 3e2510630eea59a6h - DQ 3e262e780f32d711h - DQ 3ded3ed91a10f8cfh - DQ 3e23654a7e4bcd85h - DQ 3e055b784980ad21h - DQ 3e212f2dd4b16e64h - DQ 3e37c4add939f50ch - DQ 3e281784627180fch - DQ 3dea5162c7e14961h - DQ 3e310c9019365163h - DQ 3e373c4d2ba17688h - DQ 3e2ae8a5e0e93d81h - DQ 3e2ab0c6f01621afh - DQ 3e301e8b74dd5b66h - DQ 3e2d206fecbb5494h - DQ 3df0b48b724fcc00h - DQ 3e3f831f0b61e229h - DQ 3df81a97c407bcafh - DQ 3e3e286c1ccbb7aah - DQ 3e28630b49220a93h - DQ 3dff0b15c1a22c5ch - DQ 3e355445e71c0946h - DQ 3e3be630f8066d85h - DQ 3e2599dff0d96c39h - DQ 3e36cc85b18fb081h - DQ 3e34476d001ea8c8h - DQ 3e373f889e16d31fh - DQ 3e3357100d792a87h - DQ 3e3bd179ae6101f6h - DQ 3e0ca31056c3f6e2h - DQ 3e3d2870629c08fbh - DQ 3e3aba3880d2673fh - DQ 3e2c3633cb297da6h - DQ 3e21843899efea02h - DQ 3e3bccc99d2008e6h - DQ 3e38000544bdd350h - DQ 3e2b91c226606ae1h - DQ 3e2a7adf26b62bdfh - DQ 3e18764fc8826ec9h - DQ 3e1f4f3de50f68f0h - DQ 3df760ca757995e3h - DQ 3dfc667ed3805147h - DQ 3e3733f6196adf6fh - DQ 3e2fb710f33e836bh - DQ 3e39886eba641013h - DQ 3dfb5368d0af8c1ah - DQ 3e358c691b8d2971h - DQ 3dfe9465226d08fbh - DQ 3e33587e063f0097h - DQ 3e3618e702129f18h - DQ 3e361c33fc7aac54h - DQ 3e3f07a68408604ah - DQ 3e3c34bfe4945421h - DQ 3e38b1f00e41300bh - DQ 3e3f434284d61b63h - DQ 3e3a63095e397436h - DQ 3e34428656b919deh - DQ 3e36ca9201b2d9a6h - DQ 3e2738823a2a931ch - DQ 3e3c11880e179230h - DQ 3e313ddc8d6d52feh - DQ 3e33eed58922e917h - DQ 3e295992846bdd50h - DQ 3e0ddb4d5f2e278bh - DQ 3df1a5f12a0635c4h - DQ 3e4642f0882c3c34h - DQ 3e2aee9ba7f6475eh - DQ 3e264b7f834a60e4h - DQ 3e290d42e243792eh - DQ 3e4c272008134f01h - DQ 3e4a782e16d6cf5bh - DQ 3e44505c79da6648h - DQ 3e4ca9d4ea4dcd21h - DQ 3e297d3d627cd5bch - DQ 3e20b15cf9bcaa13h - DQ 3e315b2063cf76ddh - DQ 3e2983e6f3aa2748h - DQ 3e3f4c64f4ffe994h - DQ 3e46beba7ce85a0fh - DQ 3e3b9c69fd4ea6b8h - DQ 3e2b6aa5835fa4abh - DQ 3e43ccc3790fedd1h - DQ 3e29c04cc4404fe0h - DQ 3e40734b7a75d89dh - DQ 3e1b4404c4e01612h - DQ 3e40c565c2ce4894h - DQ 3e33c71441d935cdh - DQ 3d72a492556b3b4eh - DQ 3e20fa090341dc43h - DQ 3e2e8f7009e3d9f4h - DQ 3e4b1bf68b048a45h - DQ 3e3eee52dffaa956h - DQ 3e456b0900e465bdh - DQ 3e4d929ef5777666h - DQ 3e486ea28637e260h - DQ 3e4665aff10ca2f0h - DQ 3e2f11fdaf48ec74h - DQ 3e4cbe1b86a4d1c7h - DQ 3e25b05bfea87665h - DQ 3e41cec20a1a4a1dh - DQ 3e41cd5f0a409b9fh - DQ 3e453656c8265070h - DQ 3e377ed835282260h - DQ 3e2417bc3040b9d2h - DQ 3e408eef7b79eff2h - DQ 3e4dc76f39dc57e9h - DQ 3e4c0493a70cf457h - DQ 3e4a83d6cea5a60ch - DQ 3e30d6700dc557bah - DQ 3e44c96c12e8bd0ah - DQ 3e3d2c1993e32315h - DQ 3e22c721135f8242h - DQ 3e279a3e4dda747dh - DQ 3dfcf89f6941a72bh - DQ 3e2149a702f10831h - DQ 3e4ead4b7c8175dbh - DQ 3e4e6930fe63e70ah - DQ 3e41e106bed9ee2fh - DQ 3e2d682b82f11c92h - DQ 3e3a07f188dba47ch - DQ 3e40f9342dc172f6h - DQ 3e03ef3fde623e25h -END diff --git a/sdk/lib/crt/math/libm_sse2/log10_256_lead_tail_table.c b/sdk/lib/crt/math/libm_sse2/log10_256_lead_tail_table.c new file mode 100644 index 00000000000..f824c8a4be2 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/log10_256_lead_tail_table.c @@ -0,0 +1,553 @@ +/* + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** + ** Defines __log10_256_lead and __log10_256_tail tables + ** Used by log and pow + ** + */ + +#include <crtdefs.h> + +const unsigned long long _CRT_ALIGN(16) __log10_256_lead[] = +{ + 0x0000000000000000ull, + 0x3f5bbd9e90000000ull, + 0x3f6bafd470000000ull, + 0x3f74b99560000000ull, + 0x3f7b9476a0000000ull, + 0x3f81344da0000000ull, + 0x3f849b0850000000ull, + 0x3f87fe71c0000000ull, + 0x3f8b5e9080000000ull, + 0x3f8ebb6af0000000ull, + 0x3f910a83a0000000ull, + 0x3f92b5b5e0000000ull, + 0x3f945f4f50000000ull, + 0x3f96075300000000ull, + 0x3f97adc3d0000000ull, + 0x3f9952a4f0000000ull, + 0x3f9af5f920000000ull, + 0x3f9c97c370000000ull, + 0x3f9e3806a0000000ull, + 0x3f9fd6c5b0000000ull, + 0x3fa0ba01a0000000ull, + 0x3fa187e120000000ull, + 0x3fa25502c0000000ull, + 0x3fa32167c0000000ull, + 0x3fa3ed1190000000ull, + 0x3fa4b80180000000ull, + 0x3fa58238e0000000ull, + 0x3fa64bb910000000ull, + 0x3fa7148340000000ull, + 0x3fa7dc98c0000000ull, + 0x3fa8a3fad0000000ull, + 0x3fa96aaac0000000ull, + 0x3faa30a9d0000000ull, + 0x3faaf5f920000000ull, + 0x3fabba9a00000000ull, + 0x3fac7e8d90000000ull, + 0x3fad41d510000000ull, + 0x3fae0471a0000000ull, + 0x3faec66470000000ull, + 0x3faf87aeb0000000ull, + 0x3fb02428c0000000ull, + 0x3fb08426f0000000ull, + 0x3fb0e3d290000000ull, + 0x3fb1432c30000000ull, + 0x3fb1a23440000000ull, + 0x3fb200eb60000000ull, + 0x3fb25f5210000000ull, + 0x3fb2bd68e0000000ull, + 0x3fb31b3050000000ull, + 0x3fb378a8e0000000ull, + 0x3fb3d5d330000000ull, + 0x3fb432afa0000000ull, + 0x3fb48f3ed0000000ull, + 0x3fb4eb8120000000ull, + 0x3fb5477730000000ull, + 0x3fb5a32160000000ull, + 0x3fb5fe8040000000ull, + 0x3fb6599440000000ull, + 0x3fb6b45df0000000ull, + 0x3fb70eddb0000000ull, + 0x3fb7691400000000ull, + 0x3fb7c30160000000ull, + 0x3fb81ca630000000ull, + 0x3fb8760300000000ull, + 0x3fb8cf1830000000ull, + 0x3fb927e640000000ull, + 0x3fb9806d90000000ull, + 0x3fb9d8aea0000000ull, + 0x3fba30a9d0000000ull, + 0x3fba885fa0000000ull, + 0x3fbadfd070000000ull, + 0x3fbb36fcb0000000ull, + 0x3fbb8de4d0000000ull, + 0x3fbbe48930000000ull, + 0x3fbc3aea40000000ull, + 0x3fbc910870000000ull, + 0x3fbce6e410000000ull, + 0x3fbd3c7da0000000ull, + 0x3fbd91d580000000ull, + 0x3fbde6ec00000000ull, + 0x3fbe3bc1a0000000ull, + 0x3fbe9056b0000000ull, + 0x3fbee4aba0000000ull, + 0x3fbf38c0c0000000ull, + 0x3fbf8c9680000000ull, + 0x3fbfe02d30000000ull, + 0x3fc019c2a0000000ull, + 0x3fc0434f70000000ull, + 0x3fc06cbd60000000ull, + 0x3fc0960c80000000ull, + 0x3fc0bf3d00000000ull, + 0x3fc0e84f10000000ull, + 0x3fc11142f0000000ull, + 0x3fc13a18a0000000ull, + 0x3fc162d080000000ull, + 0x3fc18b6a90000000ull, + 0x3fc1b3e710000000ull, + 0x3fc1dc4630000000ull, + 0x3fc2048810000000ull, + 0x3fc22cace0000000ull, + 0x3fc254b4d0000000ull, + 0x3fc27c9ff0000000ull, + 0x3fc2a46e80000000ull, + 0x3fc2cc20b0000000ull, + 0x3fc2f3b690000000ull, + 0x3fc31b3050000000ull, + 0x3fc3428e20000000ull, + 0x3fc369d020000000ull, + 0x3fc390f680000000ull, + 0x3fc3b80160000000ull, + 0x3fc3def0e0000000ull, + 0x3fc405c530000000ull, + 0x3fc42c7e70000000ull, + 0x3fc4531cd0000000ull, + 0x3fc479a070000000ull, + 0x3fc4a00970000000ull, + 0x3fc4c65800000000ull, + 0x3fc4ec8c30000000ull, + 0x3fc512a640000000ull, + 0x3fc538a630000000ull, + 0x3fc55e8c50000000ull, + 0x3fc5845890000000ull, + 0x3fc5aa0b40000000ull, + 0x3fc5cfa470000000ull, + 0x3fc5f52440000000ull, + 0x3fc61a8ad0000000ull, + 0x3fc63fd850000000ull, + 0x3fc6650cd0000000ull, + 0x3fc68a2880000000ull, + 0x3fc6af2b80000000ull, + 0x3fc6d415e0000000ull, + 0x3fc6f8e7d0000000ull, + 0x3fc71da170000000ull, + 0x3fc74242e0000000ull, + 0x3fc766cc40000000ull, + 0x3fc78b3da0000000ull, + 0x3fc7af9730000000ull, + 0x3fc7d3d910000000ull, + 0x3fc7f80350000000ull, + 0x3fc81c1620000000ull, + 0x3fc8401190000000ull, + 0x3fc863f5c0000000ull, + 0x3fc887c2e0000000ull, + 0x3fc8ab7900000000ull, + 0x3fc8cf1830000000ull, + 0x3fc8f2a0a0000000ull, + 0x3fc9161270000000ull, + 0x3fc9396db0000000ull, + 0x3fc95cb280000000ull, + 0x3fc97fe100000000ull, + 0x3fc9a2f950000000ull, + 0x3fc9c5fb70000000ull, + 0x3fc9e8e7b0000000ull, + 0x3fca0bbdf0000000ull, + 0x3fca2e7e80000000ull, + 0x3fca512960000000ull, + 0x3fca73bea0000000ull, + 0x3fca963e70000000ull, + 0x3fcab8a8f0000000ull, + 0x3fcadafe20000000ull, + 0x3fcafd3e30000000ull, + 0x3fcb1f6930000000ull, + 0x3fcb417f40000000ull, + 0x3fcb638070000000ull, + 0x3fcb856cf0000000ull, + 0x3fcba744b0000000ull, + 0x3fcbc907f0000000ull, + 0x3fcbeab6c0000000ull, + 0x3fcc0c5130000000ull, + 0x3fcc2dd750000000ull, + 0x3fcc4f4950000000ull, + 0x3fcc70a740000000ull, + 0x3fcc91f130000000ull, + 0x3fccb32740000000ull, + 0x3fccd44980000000ull, + 0x3fccf55810000000ull, + 0x3fcd165300000000ull, + 0x3fcd373a60000000ull, + 0x3fcd580e60000000ull, + 0x3fcd78cf00000000ull, + 0x3fcd997c70000000ull, + 0x3fcdba16a0000000ull, + 0x3fcdda9dd0000000ull, + 0x3fcdfb11f0000000ull, + 0x3fce1b7330000000ull, + 0x3fce3bc1a0000000ull, + 0x3fce5bfd50000000ull, + 0x3fce7c2660000000ull, + 0x3fce9c3ce0000000ull, + 0x3fcebc40e0000000ull, + 0x3fcedc3280000000ull, + 0x3fcefc11d0000000ull, + 0x3fcf1bdee0000000ull, + 0x3fcf3b99d0000000ull, + 0x3fcf5b42a0000000ull, + 0x3fcf7ad980000000ull, + 0x3fcf9a5e70000000ull, + 0x3fcfb9d190000000ull, + 0x3fcfd932f0000000ull, + 0x3fcff882a0000000ull, + 0x3fd00be050000000ull, + 0x3fd01b76a0000000ull, + 0x3fd02b0430000000ull, + 0x3fd03a8910000000ull, + 0x3fd04a0540000000ull, + 0x3fd05978e0000000ull, + 0x3fd068e3f0000000ull, + 0x3fd0784670000000ull, + 0x3fd087a080000000ull, + 0x3fd096f210000000ull, + 0x3fd0a63b30000000ull, + 0x3fd0b57bf0000000ull, + 0x3fd0c4b450000000ull, + 0x3fd0d3e460000000ull, + 0x3fd0e30c30000000ull, + 0x3fd0f22bc0000000ull, + 0x3fd1014310000000ull, + 0x3fd1105240000000ull, + 0x3fd11f5940000000ull, + 0x3fd12e5830000000ull, + 0x3fd13d4f00000000ull, + 0x3fd14c3dd0000000ull, + 0x3fd15b24a0000000ull, + 0x3fd16a0370000000ull, + 0x3fd178da50000000ull, + 0x3fd187a940000000ull, + 0x3fd1967060000000ull, + 0x3fd1a52fa0000000ull, + 0x3fd1b3e710000000ull, + 0x3fd1c296c0000000ull, + 0x3fd1d13eb0000000ull, + 0x3fd1dfdef0000000ull, + 0x3fd1ee7770000000ull, + 0x3fd1fd0860000000ull, + 0x3fd20b91a0000000ull, + 0x3fd21a1350000000ull, + 0x3fd2288d70000000ull, + 0x3fd2370010000000ull, + 0x3fd2456b30000000ull, + 0x3fd253ced0000000ull, + 0x3fd2622b00000000ull, + 0x3fd2707fd0000000ull, + 0x3fd27ecd40000000ull, + 0x3fd28d1360000000ull, + 0x3fd29b5220000000ull, + 0x3fd2a989a0000000ull, + 0x3fd2b7b9e0000000ull, + 0x3fd2c5e2e0000000ull, + 0x3fd2d404b0000000ull, + 0x3fd2e21f50000000ull, + 0x3fd2f032c0000000ull, + 0x3fd2fe3f20000000ull, + 0x3fd30c4470000000ull, + 0x3fd31a42b0000000ull, + 0x3fd32839e0000000ull, + 0x3fd3362a10000000ull, + 0x3fd3441350000000ull, +}; + +const unsigned long long _CRT_ALIGN(16) __log10_256_tail[] = +{ + 0x0000000000000000ull, + 0x3db20abc22b2208full, + 0x3db10f69332e0dd4ull, + 0x3dce950de87ed257ull, + 0x3dd3f3443b626d69ull, + 0x3df45aeaa5363e57ull, + 0x3dc443683ce1bf0bull, + 0x3df989cd60c6a511ull, + 0x3dfd626f201f2e9full, + 0x3de94f8bb8dabdcdull, + 0x3e0088d8ef423015ull, + 0x3e080413a62b79adull, + 0x3e059717c0eed3c4ull, + 0x3dad4a77add44902ull, + 0x3e0e763ff037300eull, + 0x3de162d74706f6c3ull, + 0x3e0601cc1f4dbc14ull, + 0x3deaf3e051f6e5bfull, + 0x3e097a0b1e1af3ebull, + 0x3dc0a38970c002c7ull, + 0x3e102e000057c751ull, + 0x3e155b00eecd6e0eull, + 0x3ddf86297003b5afull, + 0x3e1057b9b336a36dull, + 0x3e134bc84a06ea4full, + 0x3e1643da9ea1bcadull, + 0x3e1d66a7b4f7ea2aull, + 0x3df6b2e038f7fcefull, + 0x3df3e954c670f088ull, + 0x3e047209093acab3ull, + 0x3e1d708fe7275da7ull, + 0x3e1fdf9e7771b9e7ull, + 0x3e0827bfa70a0660ull, + 0x3e1601cc1f4dbc14ull, + 0x3e0637f6106a5e5bull, + 0x3e126a13f17c624bull, + 0x3e093eb2ce80623aull, + 0x3e1430d1e91594deull, + 0x3e1d6b10108fa031ull, + 0x3e16879c0bbaf241ull, + 0x3dff08015ea6bc2bull, + 0x3e29b63dcdc6676cull, + 0x3e2b022cbcc4ab2cull, + 0x3df917d07ddd6544ull, + 0x3e1540605703379eull, + 0x3e0cd18b947a1b60ull, + 0x3e17ad65277ca97eull, + 0x3e11884dc59f5fa9ull, + 0x3e1711c46006d082ull, + 0x3e2f092e3c3108f8ull, + 0x3e1714c5e32be13aull, + 0x3e26bba7fd734f9aull, + 0x3dfdf48fb5e08483ull, + 0x3e232f9bc74d0b95ull, + 0x3df973e848790c13ull, + 0x3e1eccbc08c6586eull, + 0x3e2115e9f9524a98ull, + 0x3e2f1740593131b8ull, + 0x3e1bcf8b25643835ull, + 0x3e1f5fa81d8bed80ull, + 0x3e244a4df929d9e4ull, + 0x3e129820d8220c94ull, + 0x3e2a0b489304e309ull, + 0x3e1f4d56aba665feull, + 0x3e210c9019365163ull, + 0x3df80f78fe592736ull, + 0x3e10528825c81ccaull, + 0x3de095537d6d746aull, + 0x3e1827bfa70a0660ull, + 0x3e06b0a8ec45933cull, + 0x3e105af81bf5dba9ull, + 0x3e17e2fa2655d515ull, + 0x3e0d59ecbfaee4bfull, + 0x3e1d8b2fda683fa3ull, + 0x3e24b8ddfd3a3737ull, + 0x3e13827e61ae1204ull, + 0x3e2c8c7b49e90f9full, + 0x3e29eaf01597591dull, + 0x3e19aaa66e317b36ull, + 0x3e2e725609720655ull, + 0x3e261c33fc7aac54ull, + 0x3e29662bcf61a252ull, + 0x3e1843c811c42730ull, + 0x3e2064bb0b5acb36ull, + 0x3e0a340c842701a4ull, + 0x3e1a8e55b58f79d6ull, + 0x3de92d219c5e9d9aull, + 0x3e3f63e60d7ffd6aull, + 0x3e2e9b0ed9516314ull, + 0x3e2923901962350cull, + 0x3e326f8838785e81ull, + 0x3e3b5b6a4caba6afull, + 0x3df0226adc8e761cull, + 0x3e3c4ad7313a1aedull, + 0x3e1564e87c738d17ull, + 0x3e338fecf18a6618ull, + 0x3e3d929ef5777666ull, + 0x3e39483bf08da0b8ull, + 0x3e3bdd0eeeaa5826ull, + 0x3e39c4dd590237baull, + 0x3e1af3e9e0ebcac7ull, + 0x3e35ce5382270dacull, + 0x3e394f74532ab9baull, + 0x3e07342795888654ull, + 0x3e0c5a000be34bf0ull, + 0x3e2711c46006d082ull, + 0x3e250025b4ed8cf8ull, + 0x3e2ed18bcef2d2a0ull, + 0x3e21282e0c0a7554ull, + 0x3e0d70f33359a7caull, + 0x3e2b7f7e13a84025ull, + 0x3e33306ec321891eull, + 0x3e3fc7f8038b7550ull, + 0x3e3eb0358cd71d64ull, + 0x3e3a76c822859474ull, + 0x3e3d0ec652de86e3ull, + 0x3e2fa4cce08658afull, + 0x3e3b84a2d2c00a9eull, + 0x3e20a5b0f2c25bd1ull, + 0x3e3dd660225bf699ull, + 0x3e08b10f859bf037ull, + 0x3e3e8823b590cbe1ull, + 0x3e361311f31e96f6ull, + 0x3e2e1f875ca20f9aull, + 0x3e2c95724939b9a5ull, + 0x3e3805957a3e58e2ull, + 0x3e2ff126ea9f0334ull, + 0x3e3953f5598e5609ull, + 0x3e36c16ff856c448ull, + 0x3e24cb220ff261f4ull, + 0x3e35e120d53d53a2ull, + 0x3e3a527f6189f256ull, + 0x3e3856fcffd49c0full, + 0x3e300c2e8228d7daull, + 0x3df113d09444dfe0ull, + 0x3e2510630eea59a6ull, + 0x3e262e780f32d711ull, + 0x3ded3ed91a10f8cfull, + 0x3e23654a7e4bcd85ull, + 0x3e055b784980ad21ull, + 0x3e212f2dd4b16e64ull, + 0x3e37c4add939f50cull, + 0x3e281784627180fcull, + 0x3dea5162c7e14961ull, + 0x3e310c9019365163ull, + 0x3e373c4d2ba17688ull, + 0x3e2ae8a5e0e93d81ull, + 0x3e2ab0c6f01621afull, + 0x3e301e8b74dd5b66ull, + 0x3e2d206fecbb5494ull, + 0x3df0b48b724fcc00ull, + 0x3e3f831f0b61e229ull, + 0x3df81a97c407bcafull, + 0x3e3e286c1ccbb7aaull, + 0x3e28630b49220a93ull, + 0x3dff0b15c1a22c5cull, + 0x3e355445e71c0946ull, + 0x3e3be630f8066d85ull, + 0x3e2599dff0d96c39ull, + 0x3e36cc85b18fb081ull, + 0x3e34476d001ea8c8ull, + 0x3e373f889e16d31full, + 0x3e3357100d792a87ull, + 0x3e3bd179ae6101f6ull, + 0x3e0ca31056c3f6e2ull, + 0x3e3d2870629c08fbull, + 0x3e3aba3880d2673full, + 0x3e2c3633cb297da6ull, + 0x3e21843899efea02ull, + 0x3e3bccc99d2008e6ull, + 0x3e38000544bdd350ull, + 0x3e2b91c226606ae1ull, + 0x3e2a7adf26b62bdfull, + 0x3e18764fc8826ec9ull, + 0x3e1f4f3de50f68f0ull, + 0x3df760ca757995e3ull, + 0x3dfc667ed3805147ull, + 0x3e3733f6196adf6full, + 0x3e2fb710f33e836bull, + 0x3e39886eba641013ull, + 0x3dfb5368d0af8c1aull, + 0x3e358c691b8d2971ull, + 0x3dfe9465226d08fbull, + 0x3e33587e063f0097ull, + 0x3e3618e702129f18ull, + 0x3e361c33fc7aac54ull, + 0x3e3f07a68408604aull, + 0x3e3c34bfe4945421ull, + 0x3e38b1f00e41300bull, + 0x3e3f434284d61b63ull, + 0x3e3a63095e397436ull, + 0x3e34428656b919deull, + 0x3e36ca9201b2d9a6ull, + 0x3e2738823a2a931cull, + 0x3e3c11880e179230ull, + 0x3e313ddc8d6d52feull, + 0x3e33eed58922e917ull, + 0x3e295992846bdd50ull, + 0x3e0ddb4d5f2e278bull, + 0x3df1a5f12a0635c4ull, + 0x3e4642f0882c3c34ull, + 0x3e2aee9ba7f6475eull, + 0x3e264b7f834a60e4ull, + 0x3e290d42e243792eull, + 0x3e4c272008134f01ull, + 0x3e4a782e16d6cf5bull, + 0x3e44505c79da6648ull, + 0x3e4ca9d4ea4dcd21ull, + 0x3e297d3d627cd5bcull, + 0x3e20b15cf9bcaa13ull, + 0x3e315b2063cf76ddull, + 0x3e2983e6f3aa2748ull, + 0x3e3f4c64f4ffe994ull, + 0x3e46beba7ce85a0full, + 0x3e3b9c69fd4ea6b8ull, + 0x3e2b6aa5835fa4abull, + 0x3e43ccc3790fedd1ull, + 0x3e29c04cc4404fe0ull, + 0x3e40734b7a75d89dull, + 0x3e1b4404c4e01612ull, + 0x3e40c565c2ce4894ull, + 0x3e33c71441d935cdull, + 0x3d72a492556b3b4eull, + 0x3e20fa090341dc43ull, + 0x3e2e8f7009e3d9f4ull, + 0x3e4b1bf68b048a45ull, + 0x3e3eee52dffaa956ull, + 0x3e456b0900e465bdull, + 0x3e4d929ef5777666ull, + 0x3e486ea28637e260ull, + 0x3e4665aff10ca2f0ull, + 0x3e2f11fdaf48ec74ull, + 0x3e4cbe1b86a4d1c7ull, + 0x3e25b05bfea87665ull, + 0x3e41cec20a1a4a1dull, + 0x3e41cd5f0a409b9full, + 0x3e453656c8265070ull, + 0x3e377ed835282260ull, + 0x3e2417bc3040b9d2ull, + 0x3e408eef7b79eff2ull, + 0x3e4dc76f39dc57e9ull, + 0x3e4c0493a70cf457ull, + 0x3e4a83d6cea5a60cull, + 0x3e30d6700dc557baull, + 0x3e44c96c12e8bd0aull, + 0x3e3d2c1993e32315ull, + 0x3e22c721135f8242ull, + 0x3e279a3e4dda747dull, + 0x3dfcf89f6941a72bull, + 0x3e2149a702f10831ull, + 0x3e4ead4b7c8175dbull, + 0x3e4e6930fe63e70aull, + 0x3e41e106bed9ee2full, + 0x3e2d682b82f11c92ull, + 0x3e3a07f188dba47cull, + 0x3e40f9342dc172f6ull, + 0x3e03ef3fde623e25ull, +}; diff --git a/sdk/lib/crt/math/libm_sse2/log_128_lead_tail_table.asm b/sdk/lib/crt/math/libm_sse2/log_128_lead_tail_table.asm deleted file mode 100644 index b968b1ed87a..00000000000 --- a/sdk/lib/crt/math/libm_sse2/log_128_lead_tail_table.asm +++ /dev/null @@ -1,294 +0,0 @@ -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; Defines __log_128_lead and __log_128_tail tables -;; Used by log and pow -;; - -.const - -ALIGN 16 -PUBLIC __log_128_lead -__log_128_lead DD 000000000h - DD 03bff0000h - DD 03c7e0000h - DD 03cbdc000h - DD 03cfc1000h - DD 03d1cf000h - DD 03d3ba000h - DD 03d5a1000h - DD 03d785000h - DD 03d8b2000h - DD 03d9a0000h - DD 03da8d000h - DD 03db78000h - DD 03dc61000h - DD 03dd49000h - DD 03de2f000h - DD 03df13000h - DD 03dff6000h - DD 03e06b000h - DD 03e0db000h - DD 03e14a000h - DD 03e1b8000h - DD 03e226000h - DD 03e293000h - DD 03e2ff000h - DD 03e36b000h - DD 03e3d5000h - DD 03e43f000h - DD 03e4a9000h - DD 03e511000h - DD 03e579000h - DD 03e5e1000h - DD 03e647000h - DD 03e6ae000h - DD 03e713000h - DD 03e778000h - DD 03e7dc000h - DD 03e820000h - DD 03e851000h - DD 03e882000h - DD 03e8b3000h - DD 03e8e4000h - DD 03e914000h - DD 03e944000h - DD 03e974000h - DD 03e9a3000h - DD 03e9d3000h - DD 03ea02000h - DD 03ea30000h - DD 03ea5f000h - DD 03ea8d000h - DD 03eabb000h - DD 03eae8000h - DD 03eb16000h - DD 03eb43000h - DD 03eb70000h - DD 03eb9c000h - DD 03ebc9000h - DD 03ebf5000h - DD 03ec21000h - DD 03ec4d000h - DD 03ec78000h - DD 03eca3000h - DD 03ecce000h - DD 03ecf9000h - DD 03ed24000h - DD 03ed4e000h - DD 03ed78000h - DD 03eda2000h - DD 03edcc000h - DD 03edf5000h - DD 03ee1e000h - DD 03ee47000h - DD 03ee70000h - DD 03ee99000h - DD 03eec1000h - DD 03eeea000h - DD 03ef12000h - DD 03ef3a000h - DD 03ef61000h - DD 03ef89000h - DD 03efb0000h - DD 03efd7000h - DD 03effe000h - DD 03f012000h - DD 03f025000h - DD 03f039000h - DD 03f04c000h - DD 03f05f000h - DD 03f072000h - DD 03f084000h - DD 03f097000h - DD 03f0aa000h - DD 03f0bc000h - DD 03f0cf000h - DD 03f0e1000h - DD 03f0f4000h - DD 03f106000h - DD 03f118000h - DD 03f12a000h - DD 03f13c000h - DD 03f14e000h - DD 03f160000h - DD 03f172000h - DD 03f183000h - DD 03f195000h - DD 03f1a7000h - DD 03f1b8000h - DD 03f1c9000h - DD 03f1db000h - DD 03f1ec000h - DD 03f1fd000h - DD 03f20e000h - DD 03f21f000h - DD 03f230000h - DD 03f241000h - DD 03f252000h - DD 03f263000h - DD 03f273000h - DD 03f284000h - DD 03f295000h - DD 03f2a5000h - DD 03f2b5000h - DD 03f2c6000h - DD 03f2d6000h - DD 03f2e6000h - DD 03f2f7000h - DD 03f307000h - DD 03f317000h - -ALIGN 16 -PUBLIC __log_128_tail -__log_128_tail DD 000000000h - DD 03429ac41h - DD 035a8b0fch - DD 0368d83eah - DD 0361b0e78h - DD 03687b9feh - DD 03631ec65h - DD 036dd7119h - DD 035c30045h - DD 0379b7751h - DD 037ebcb0dh - DD 037839f83h - DD 037528ae5h - DD 037a2eb18h - DD 036da7495h - DD 036a91eb7h - DD 03783b715h - DD 0371131dbh - DD 0383f3e68h - DD 038156a97h - DD 038297c0fh - DD 0387e100fh - DD 03815b665h - DD 037e5e3a1h - DD 038183853h - DD 035fe719dh - DD 038448108h - DD 038503290h - DD 0373539e8h - DD 0385e0ff1h - DD 03864a740h - DD 03786742dh - DD 0387be3cdh - DD 03685ad3eh - DD 03803b715h - DD 037adcbdch - DD 0380c36afh - DD 0371652d3h - DD 038927139h - DD 038c5fcd7h - DD 038ae55d5h - DD 03818c169h - DD 038a0fde7h - DD 038ad09efh - DD 03862bae1h - DD 038eecd4ch - DD 03798aad2h - DD 037421a1ah - DD 038c5e10eh - DD 037bf2aeeh - DD 0382d872dh - DD 037ee2e8ah - DD 038dedfach - DD 03802f2b9h - DD 038481e9bh - DD 0380eaa2bh - DD 038ebfb5dh - DD 038255fddh - DD 038783b82h - DD 03851da1eh - DD 0374e1b05h - DD 0388f439bh - DD 038ca0e10h - DD 038cac08bh - DD 03891f65fh - DD 0378121cbh - DD 0386c9a9ah - DD 038949923h - DD 038777bcch - DD 037b12d26h - DD 038a6ced3h - DD 038ebd3e6h - DD 038fbe3cdh - DD 038d785c2h - DD 0387e7e00h - DD 038f392c5h - DD 037d40983h - DD 038081a7ch - DD 03784c3adh - DD 038cce923h - DD 0380f5fafh - DD 03891fd38h - DD 038ac47bch - DD 03897042bh - DD 0392952d2h - DD 0396fced4h - DD 037f97073h - DD 0385e9eaeh - DD 03865c84ah - DD 038130ba3h - DD 03979cf16h - DD 03938cac9h - DD 038c3d2f4h - DD 039755dech - DD 038e6b467h - DD 0395c0fb8h - DD 0383ebce0h - DD 038dcd192h - DD 039186bdfh - DD 0392de74ch - DD 0392f0944h - DD 0391bff61h - DD 038e9ed44h - DD 038686dc8h - DD 0396b99a7h - DD 039099c89h - DD 037a27673h - DD 0390bdaa3h - DD 0397069abh - DD 0388449ffh - DD 039013538h - DD 0392dc268h - DD 03947f423h - DD 0394ff17ch - DD 03945e10eh - DD 03929e8f5h - DD 038f85db0h - DD 038735f99h - DD 0396c08dbh - DD 03909e600h - DD 037b4996fh - DD 0391233cch - DD 0397cead9h - DD 038adb5cdh - DD 03920261ah - DD 03958ee36h - DD 035aa4905h - DD 037cbd11eh - DD 03805fdf4h -END diff --git a/sdk/lib/crt/math/libm_sse2/log_128_lead_tail_table.c b/sdk/lib/crt/math/libm_sse2/log_128_lead_tail_table.c new file mode 100644 index 00000000000..6d92e3c3fc2 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/log_128_lead_tail_table.c @@ -0,0 +1,297 @@ +/* + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** + ** Defines __log_128_lead and __log_128_tail tables + ** Used by log and pow + ** + */ + +#include <crtdefs.h> + +const unsigned int _CRT_ALIGN(16) __log_128_lead[] = +{ + 0x000000000, + 0x03bff0000, + 0x03c7e0000, + 0x03cbdc000, + 0x03cfc1000, + 0x03d1cf000, + 0x03d3ba000, + 0x03d5a1000, + 0x03d785000, + 0x03d8b2000, + 0x03d9a0000, + 0x03da8d000, + 0x03db78000, + 0x03dc61000, + 0x03dd49000, + 0x03de2f000, + 0x03df13000, + 0x03dff6000, + 0x03e06b000, + 0x03e0db000, + 0x03e14a000, + 0x03e1b8000, + 0x03e226000, + 0x03e293000, + 0x03e2ff000, + 0x03e36b000, + 0x03e3d5000, + 0x03e43f000, + 0x03e4a9000, + 0x03e511000, + 0x03e579000, + 0x03e5e1000, + 0x03e647000, + 0x03e6ae000, + 0x03e713000, + 0x03e778000, + 0x03e7dc000, + 0x03e820000, + 0x03e851000, + 0x03e882000, + 0x03e8b3000, + 0x03e8e4000, + 0x03e914000, + 0x03e944000, + 0x03e974000, + 0x03e9a3000, + 0x03e9d3000, + 0x03ea02000, + 0x03ea30000, + 0x03ea5f000, + 0x03ea8d000, + 0x03eabb000, + 0x03eae8000, + 0x03eb16000, + 0x03eb43000, + 0x03eb70000, + 0x03eb9c000, + 0x03ebc9000, + 0x03ebf5000, + 0x03ec21000, + 0x03ec4d000, + 0x03ec78000, + 0x03eca3000, + 0x03ecce000, + 0x03ecf9000, + 0x03ed24000, + 0x03ed4e000, + 0x03ed78000, + 0x03eda2000, + 0x03edcc000, + 0x03edf5000, + 0x03ee1e000, + 0x03ee47000, + 0x03ee70000, + 0x03ee99000, + 0x03eec1000, + 0x03eeea000, + 0x03ef12000, + 0x03ef3a000, + 0x03ef61000, + 0x03ef89000, + 0x03efb0000, + 0x03efd7000, + 0x03effe000, + 0x03f012000, + 0x03f025000, + 0x03f039000, + 0x03f04c000, + 0x03f05f000, + 0x03f072000, + 0x03f084000, + 0x03f097000, + 0x03f0aa000, + 0x03f0bc000, + 0x03f0cf000, + 0x03f0e1000, + 0x03f0f4000, + 0x03f106000, + 0x03f118000, + 0x03f12a000, + 0x03f13c000, + 0x03f14e000, + 0x03f160000, + 0x03f172000, + 0x03f183000, + 0x03f195000, + 0x03f1a7000, + 0x03f1b8000, + 0x03f1c9000, + 0x03f1db000, + 0x03f1ec000, + 0x03f1fd000, + 0x03f20e000, + 0x03f21f000, + 0x03f230000, + 0x03f241000, + 0x03f252000, + 0x03f263000, + 0x03f273000, + 0x03f284000, + 0x03f295000, + 0x03f2a5000, + 0x03f2b5000, + 0x03f2c6000, + 0x03f2d6000, + 0x03f2e6000, + 0x03f2f7000, + 0x03f307000, + 0x03f317000 +}; + +const unsigned int _CRT_ALIGN(16) __log_128_tail[] = +{ + 0x000000000, + 0x03429ac41, + 0x035a8b0fc, + 0x0368d83ea, + 0x0361b0e78, + 0x03687b9fe, + 0x03631ec65, + 0x036dd7119, + 0x035c30045, + 0x0379b7751, + 0x037ebcb0d, + 0x037839f83, + 0x037528ae5, + 0x037a2eb18, + 0x036da7495, + 0x036a91eb7, + 0x03783b715, + 0x0371131db, + 0x0383f3e68, + 0x038156a97, + 0x038297c0f, + 0x0387e100f, + 0x03815b665, + 0x037e5e3a1, + 0x038183853, + 0x035fe719d, + 0x038448108, + 0x038503290, + 0x0373539e8, + 0x0385e0ff1, + 0x03864a740, + 0x03786742d, + 0x0387be3cd, + 0x03685ad3e, + 0x03803b715, + 0x037adcbdc, + 0x0380c36af, + 0x0371652d3, + 0x038927139, + 0x038c5fcd7, + 0x038ae55d5, + 0x03818c169, + 0x038a0fde7, + 0x038ad09ef, + 0x03862bae1, + 0x038eecd4c, + 0x03798aad2, + 0x037421a1a, + 0x038c5e10e, + 0x037bf2aee, + 0x0382d872d, + 0x037ee2e8a, + 0x038dedfac, + 0x03802f2b9, + 0x038481e9b, + 0x0380eaa2b, + 0x038ebfb5d, + 0x038255fdd, + 0x038783b82, + 0x03851da1e, + 0x0374e1b05, + 0x0388f439b, + 0x038ca0e10, + 0x038cac08b, + 0x03891f65f, + 0x0378121cb, + 0x0386c9a9a, + 0x038949923, + 0x038777bcc, + 0x037b12d26, + 0x038a6ced3, + 0x038ebd3e6, + 0x038fbe3cd, + 0x038d785c2, + 0x0387e7e00, + 0x038f392c5, + 0x037d40983, + 0x038081a7c, + 0x03784c3ad, + 0x038cce923, + 0x0380f5faf, + 0x03891fd38, + 0x038ac47bc, + 0x03897042b, + 0x0392952d2, + 0x0396fced4, + 0x037f97073, + 0x0385e9eae, + 0x03865c84a, + 0x038130ba3, + 0x03979cf16, + 0x03938cac9, + 0x038c3d2f4, + 0x039755dec, + 0x038e6b467, + 0x0395c0fb8, + 0x0383ebce0, + 0x038dcd192, + 0x039186bdf, + 0x0392de74c, + 0x0392f0944, + 0x0391bff61, + 0x038e9ed44, + 0x038686dc8, + 0x0396b99a7, + 0x039099c89, + 0x037a27673, + 0x0390bdaa3, + 0x0397069ab, + 0x0388449ff, + 0x039013538, + 0x0392dc268, + 0x03947f423, + 0x0394ff17c, + 0x03945e10e, + 0x03929e8f5, + 0x038f85db0, + 0x038735f99, + 0x0396c08db, + 0x03909e600, + 0x037b4996f, + 0x0391233cc, + 0x0397cead9, + 0x038adb5cd, + 0x03920261a, + 0x03958ee36, + 0x035aa4905, + 0x037cbd11e, + 0x03805fdf4 +}; diff --git a/sdk/lib/crt/math/libm_sse2/log_256_lead_tail_table.asm b/sdk/lib/crt/math/libm_sse2/log_256_lead_tail_table.asm deleted file mode 100644 index a6fef64ac08..00000000000 --- a/sdk/lib/crt/math/libm_sse2/log_256_lead_tail_table.asm +++ /dev/null @@ -1,554 +0,0 @@ -;; -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; Defines __log_256_lead and __log_256_tail tables -;; Used by log and pow -;; - -.const - -ALIGN 16 -PUBLIC __log_256_lead -__log_256_lead DQ 0000000000000000h - DQ 3f6ff00aa0000000h - DQ 3f7fe02a60000000h - DQ 3f87dc4750000000h - DQ 3f8fc0a8b0000000h - DQ 3f93cea440000000h - DQ 3f97b91b00000000h - DQ 3f9b9fc020000000h - DQ 3f9f829b00000000h - DQ 3fa1b0d980000000h - DQ 3fa39e87b0000000h - DQ 3fa58a5ba0000000h - DQ 3fa77458f0000000h - DQ 3fa95c8300000000h - DQ 3fab42dd70000000h - DQ 3fad276b80000000h - DQ 3faf0a30c0000000h - DQ 3fb0759830000000h - DQ 3fb16536e0000000h - DQ 3fb253f620000000h - DQ 3fb341d790000000h - DQ 3fb42edcb0000000h - DQ 3fb51b0730000000h - DQ 3fb60658a0000000h - DQ 3fb6f0d280000000h - DQ 3fb7da7660000000h - DQ 3fb8c345d0000000h - DQ 3fb9ab4240000000h - DQ 3fba926d30000000h - DQ 3fbb78c820000000h - DQ 3fbc5e5480000000h - DQ 3fbd4313d0000000h - DQ 3fbe270760000000h - DQ 3fbf0a30c0000000h - DQ 3fbfec9130000000h - DQ 3fc0671510000000h - DQ 3fc0d77e70000000h - DQ 3fc1478580000000h - DQ 3fc1b72ad0000000h - DQ 3fc2266f10000000h - DQ 3fc29552f0000000h - DQ 3fc303d710000000h - DQ 3fc371fc20000000h - DQ 3fc3dfc2b0000000h - DQ 3fc44d2b60000000h - DQ 3fc4ba36f0000000h - DQ 3fc526e5e0000000h - DQ 3fc59338d0000000h - DQ 3fc5ff3070000000h - DQ 3fc66acd40000000h - DQ 3fc6d60fe0000000h - DQ 3fc740f8f0000000h - DQ 3fc7ab8900000000h - DQ 3fc815c0a0000000h - DQ 3fc87fa060000000h - DQ 3fc8e928d0000000h - DQ 3fc9525a90000000h - DQ 3fc9bb3620000000h - DQ 3fca23bc10000000h - DQ 3fca8becf0000000h - DQ 3fcaf3c940000000h - DQ 3fcb5b5190000000h - DQ 3fcbc28670000000h - DQ 3fcc296850000000h - DQ 3fcc8ff7c0000000h - DQ 3fccf63540000000h - DQ 3fcd5c2160000000h - DQ 3fcdc1bca0000000h - DQ 3fce270760000000h - DQ 3fce8c0250000000h - DQ 3fcef0adc0000000h - DQ 3fcf550a50000000h - DQ 3fcfb91860000000h - DQ 3fd00e6c40000000h - DQ 3fd0402590000000h - DQ 3fd071b850000000h - DQ 3fd0a324e0000000h - DQ 3fd0d46b50000000h - DQ 3fd1058bf0000000h - DQ 3fd1368700000000h - DQ 3fd1675ca0000000h - DQ 3fd1980d20000000h - DQ 3fd1c898c0000000h - DQ 3fd1f8ff90000000h - DQ 3fd22941f0000000h - DQ 3fd2596010000000h - DQ 3fd2895a10000000h - DQ 3fd2b93030000000h - DQ 3fd2e8e2b0000000h - DQ 3fd31871c0000000h - DQ 3fd347dd90000000h - DQ 3fd3772660000000h - DQ 3fd3a64c50000000h - DQ 3fd3d54fa0000000h - DQ 3fd4043080000000h - DQ 3fd432ef20000000h - DQ 3fd4618bc0000000h - DQ 3fd4900680000000h - DQ 3fd4be5f90000000h - DQ 3fd4ec9730000000h - DQ 3fd51aad80000000h - DQ 3fd548a2c0000000h - DQ 3fd5767710000000h - DQ 3fd5a42ab0000000h - DQ 3fd5d1bdb0000000h - DQ 3fd5ff3070000000h - DQ 3fd62c82f0000000h - DQ 3fd659b570000000h - DQ 3fd686c810000000h - DQ 3fd6b3bb20000000h - DQ 3fd6e08ea0000000h - DQ 3fd70d42e0000000h - DQ 3fd739d7f0000000h - DQ 3fd7664e10000000h - DQ 3fd792a550000000h - DQ 3fd7bede00000000h - DQ 3fd7eaf830000000h - DQ 3fd816f410000000h - DQ 3fd842d1d0000000h - DQ 3fd86e9190000000h - DQ 3fd89a3380000000h - DQ 3fd8c5b7c0000000h - DQ 3fd8f11e80000000h - DQ 3fd91c67e0000000h - DQ 3fd9479410000000h - DQ 3fd972a340000000h - DQ 3fd99d9580000000h - DQ 3fd9c86b00000000h - DQ 3fd9f323e0000000h - DQ 3fda1dc060000000h - DQ 3fda484090000000h - DQ 3fda72a490000000h - DQ 3fda9cec90000000h - DQ 3fdac718c0000000h - DQ 3fdaf12930000000h - DQ 3fdb1b1e00000000h - DQ 3fdb44f770000000h - DQ 3fdb6eb590000000h - DQ 3fdb985890000000h - DQ 3fdbc1e080000000h - DQ 3fdbeb4d90000000h - DQ 3fdc149ff0000000h - DQ 3fdc3dd7a0000000h - DQ 3fdc66f4e0000000h - DQ 3fdc8ff7c0000000h - DQ 3fdcb8e070000000h - DQ 3fdce1af00000000h - DQ 3fdd0a63a0000000h - DQ 3fdd32fe70000000h - DQ 3fdd5b7f90000000h - DQ 3fdd83e720000000h - DQ 3fddac3530000000h - DQ 3fddd46a00000000h - DQ 3fddfc8590000000h - DQ 3fde248810000000h - DQ 3fde4c71a0000000h - DQ 3fde744260000000h - DQ 3fde9bfa60000000h - DQ 3fdec399d0000000h - DQ 3fdeeb20c0000000h - DQ 3fdf128f50000000h - DQ 3fdf39e5b0000000h - DQ 3fdf6123f0000000h - DQ 3fdf884a30000000h - DQ 3fdfaf5880000000h - DQ 3fdfd64f20000000h - DQ 3fdffd2e00000000h - DQ 3fe011fab0000000h - DQ 3fe02552a0000000h - DQ 3fe0389ee0000000h - DQ 3fe04bdf90000000h - DQ 3fe05f14b0000000h - DQ 3fe0723e50000000h - DQ 3fe0855c80000000h - DQ 3fe0986f40000000h - DQ 3fe0ab76b0000000h - DQ 3fe0be72e0000000h - DQ 3fe0d163c0000000h - DQ 3fe0e44980000000h - DQ 3fe0f72410000000h - DQ 3fe109f390000000h - DQ 3fe11cb810000000h - DQ 3fe12f7190000000h - DQ 3fe1422020000000h - DQ 3fe154c3d0000000h - DQ 3fe1675ca0000000h - DQ 3fe179eab0000000h - DQ 3fe18c6e00000000h - DQ 3fe19ee6b0000000h - DQ 3fe1b154b0000000h - DQ 3fe1c3b810000000h - DQ 3fe1d610f0000000h - DQ 3fe1e85f50000000h - DQ 3fe1faa340000000h - DQ 3fe20cdcd0000000h - DQ 3fe21f0bf0000000h - DQ 3fe23130d0000000h - DQ 3fe2434b60000000h - DQ 3fe2555bc0000000h - DQ 3fe2676200000000h - DQ 3fe2795e10000000h - DQ 3fe28b5000000000h - DQ 3fe29d37f0000000h - DQ 3fe2af15f0000000h - DQ 3fe2c0e9e0000000h - DQ 3fe2d2b400000000h - DQ 3fe2e47430000000h - DQ 3fe2f62a90000000h - DQ 3fe307d730000000h - DQ 3fe3197a00000000h - DQ 3fe32b1330000000h - DQ 3fe33ca2b0000000h - DQ 3fe34e2890000000h - DQ 3fe35fa4e0000000h - DQ 3fe37117b0000000h - DQ 3fe38280f0000000h - DQ 3fe393e0d0000000h - DQ 3fe3a53730000000h - DQ 3fe3b68440000000h - DQ 3fe3c7c7f0000000h - DQ 3fe3d90260000000h - DQ 3fe3ea3390000000h - DQ 3fe3fb5b80000000h - DQ 3fe40c7a40000000h - DQ 3fe41d8fe0000000h - DQ 3fe42e9c60000000h - DQ 3fe43f9fe0000000h - DQ 3fe4509a50000000h - DQ 3fe4618bc0000000h - DQ 3fe4727430000000h - DQ 3fe48353d0000000h - DQ 3fe4942a80000000h - DQ 3fe4a4f850000000h - DQ 3fe4b5bd60000000h - DQ 3fe4c679a0000000h - DQ 3fe4d72d30000000h - DQ 3fe4e7d810000000h - DQ 3fe4f87a30000000h - DQ 3fe50913c0000000h - DQ 3fe519a4c0000000h - DQ 3fe52a2d20000000h - DQ 3fe53aad00000000h - DQ 3fe54b2460000000h - DQ 3fe55b9350000000h - DQ 3fe56bf9d0000000h - DQ 3fe57c57f0000000h - DQ 3fe58cadb0000000h - DQ 3fe59cfb20000000h - DQ 3fe5ad4040000000h - DQ 3fe5bd7d30000000h - DQ 3fe5cdb1d0000000h - DQ 3fe5ddde50000000h - DQ 3fe5ee02a0000000h - DQ 3fe5fe1ed0000000h - DQ 3fe60e32f0000000h - DQ 3fe61e3ef0000000h - DQ 3fe62e42e0000000h - DQ 0000000000000000h - -ALIGN 16 -PUBLIC __log_256_tail -__log_256_tail DQ 0000000000000000h - DQ 3db5885e0250435ah - DQ 3de620cf11f86ed2h - DQ 3dff0214edba4a25h - DQ 3dbf807c79f3db4eh - DQ 3dea352ba779a52bh - DQ 3dff56c46aa49fd5h - DQ 3dfebe465fef5196h - DQ 3e0cf0660099f1f8h - DQ 3e1247b2ff85945dh - DQ 3e13fd7abf5202b6h - DQ 3e1f91c9a918d51eh - DQ 3e08cb73f118d3cah - DQ 3e1d91c7d6fad074h - DQ 3de1971bec28d14ch - DQ 3e15b616a423c78ah - DQ 3da162a6617cc971h - DQ 3e166391c4c06d29h - DQ 3e2d46f5c1d0c4b8h - DQ 3e2e14282df1f6d3h - DQ 3e186f47424a660dh - DQ 3e2d4c8de077753eh - DQ 3e2e0c307ed24f1ch - DQ 3e226ea18763bdd3h - DQ 3e25cad69737c933h - DQ 3e2af62599088901h - DQ 3e18c66c83d6b2d0h - DQ 3e1880ceb36fb30fh - DQ 3e2495aac6ca17a4h - DQ 3e2761db4210878ch - DQ 3e2eb78e862bac2fh - DQ 3e19b2cd75790dd9h - DQ 3e2c55e5cbd3d50fh - DQ 3db162a6617cc971h - DQ 3dfdbeabaaa2e519h - DQ 3e1652cb7150c647h - DQ 3e39a11cb2cd2ee2h - DQ 3e219d0ab1a28813h - DQ 3e24bd9e80a41811h - DQ 3e3214b596faa3dfh - DQ 3e303fea46980bb8h - DQ 3e31c8ffa5fd28c7h - DQ 3dce8f743bcd96c5h - DQ 3dfd98c5395315c6h - DQ 3e3996fa3ccfa7b2h - DQ 3e1cd2af2ad13037h - DQ 3e1d0da1bd17200eh - DQ 3e3330410ba68b75h - DQ 3df4f27a790e7c41h - DQ 3e13956a86f6ff1bh - DQ 3e2c6748723551d9h - DQ 3e2500de9326cdfch - DQ 3e1086c848df1b59h - DQ 3e04357ead6836ffh - DQ 3e24832442408024h - DQ 3e3d10da8154b13dh - DQ 3e39e8ad68ec8260h - DQ 3e3cfbf706abaf18h - DQ 3e3fc56ac6326e23h - DQ 3e39105e3185cf21h - DQ 3e3d017fe5b19cc0h - DQ 3e3d1f6b48dd13feh - DQ 3e20b63358a7e73ah - DQ 3e263063028c211ch - DQ 3e2e6a6886b09760h - DQ 3e3c138bb891cd03h - DQ 3e369f7722b7221ah - DQ 3df57d8fac1a628ch - DQ 3e3c55e5cbd3d50fh - DQ 3e1552d2ff48fe2eh - DQ 3e37b8b26ca431bch - DQ 3e292decdc1c5f6dh - DQ 3e3abc7c551aaa8ch - DQ 3e36b540731a354bh - DQ 3e32d341036b89efh - DQ 3e4f9ab21a3a2e0fh - DQ 3e239c871afb9fbdh - DQ 3e3e6add2c81f640h - DQ 3e435c95aa313f41h - DQ 3e249d4582f6cc53h - DQ 3e47574c1c07398fh - DQ 3e4ba846dece9e8dh - DQ 3e16999fafbc68e7h - DQ 3e4c9145e51b0103h - DQ 3e479ef2cb44850ah - DQ 3e0beec73de11275h - DQ 3e2ef4351af5a498h - DQ 3e45713a493b4a50h - DQ 3e45c23a61385992h - DQ 3e42a88309f57299h - DQ 3e4530faa9ac8aceh - DQ 3e25fec2d792a758h - DQ 3e35a517a71cbcd7h - DQ 3e3707dc3e1cd9a3h - DQ 3e3a1a9f8ef43049h - DQ 3e4409d0276b3674h - DQ 3e20e2f613e85bd9h - DQ 3df0027433001e5fh - DQ 3e35dde2836d3265h - DQ 3e2300134d7aaf04h - DQ 3e3cb7e0b42724f5h - DQ 3e2d6e93167e6308h - DQ 3e3d1569b1526adbh - DQ 3e0e99fc338a1a41h - DQ 3e4eb01394a11b1ch - DQ 3e04f27a790e7c41h - DQ 3e25ce3ca97b7af9h - DQ 3e281f0f940ed857h - DQ 3e4d36295d88857ch - DQ 3e21aca1ec4af526h - DQ 3e445743c7182726h - DQ 3e23c491aead337eh - DQ 3e3aef401a738931h - DQ 3e21cede76092a29h - DQ 3e4fba8f44f82bb4h - DQ 3e446f5f7f3c3e1ah - DQ 3e47055f86c9674bh - DQ 3e4b41a92b6b6e1ah - DQ 3e443d162e927628h - DQ 3e4466174013f9b1h - DQ 3e3b05096ad69c62h - DQ 3e40b169150faa58h - DQ 3e3cd98b1df85da7h - DQ 3e468b507b0f8fa8h - DQ 3e48422df57499bah - DQ 3e11351586970274h - DQ 3e117e08acba92eeh - DQ 3e26e04314dd0229h - DQ 3e497f3097e56d1ah - DQ 3e3356e655901286h - DQ 3e0cb761457f94d6h - DQ 3e39af67a85a9dach - DQ 3e453410931a909fh - DQ 3e22c587206058f5h - DQ 3e223bc358899c22h - DQ 3e4d7bf8b6d223cbh - DQ 3e47991ec5197ddbh - DQ 3e4a79e6bb3a9219h - DQ 3e3a4c43ed663ec5h - DQ 3e461b5a1484f438h - DQ 3e4b4e36f7ef0c3ah - DQ 3e115f026acd0d1bh - DQ 3e3f36b535cecf05h - DQ 3e2ffb7fbf3eb5c6h - DQ 3e3e6a6886b09760h - DQ 3e3135eb27f5bbc3h - DQ 3e470be7d6f6fa57h - DQ 3e4ce43cc84ab338h - DQ 3e4c01d7aac3bd91h - DQ 3e45c58d07961060h - DQ 3e3628bcf941456eh - DQ 3e4c58b2a8461cd2h - DQ 3e33071282fb989ah - DQ 3e420dab6a80f09ch - DQ 3e44f8d84c397b1eh - DQ 3e40d0ee08599e48h - DQ 3e1d68787e37da36h - DQ 3e366187d591bafch - DQ 3e22346600bae772h - DQ 3e390377d0d61b8eh - DQ 3e4f5e0dd966b907h - DQ 3e49023cb79a00e2h - DQ 3e44e05158c28ad8h - DQ 3e3bfa7b08b18ae4h - DQ 3e4ef1e63db35f67h - DQ 3e0ec2ae39493d4fh - DQ 3e40afe930ab2fa0h - DQ 3e225ff8a1810dd4h - DQ 3e469743fb1a71a5h - DQ 3e5f9cc676785571h - DQ 3e5b524da4cbf982h - DQ 3e5a4c8b381535b8h - DQ 3e5839be809caf2ch - DQ 3e50968a1cb82c13h - DQ 3e5eae6a41723fb5h - DQ 3e5d9c29a380a4dbh - DQ 3e4094aa0ada625eh - DQ 3e5973ad6fc108cah - DQ 3e4747322fdbab97h - DQ 3e593692fa9d4221h - DQ 3e5c5a992dfbc7d9h - DQ 3e4e1f33e102387ah - DQ 3e464fbef14c048ch - DQ 3e4490f513ca5e3bh - DQ 3e37a6af4d4c799dh - DQ 3e57574c1c07398fh - DQ 3e57b133417f8c1ch - DQ 3e5feb9e0c176514h - DQ 3e419f25bb3172f7h - DQ 3e45f68a7bbfb852h - DQ 3e5ee278497929f1h - DQ 3e5ccee006109d58h - DQ 3e5ce081a07bd8b3h - DQ 3e570e12981817b8h - DQ 3e292ab6d93503d0h - DQ 3e58cb7dd7c3b61eh - DQ 3e4efafd0a0b78dah - DQ 3e5e907267c4288eh - DQ 3e5d31ef96780875h - DQ 3e23430dfcd2ad50h - DQ 3e344d88d75bc1f9h - DQ 3e5bec0f055e04fch - DQ 3e5d85611590b9adh - DQ 3df320568e583229h - DQ 3e5a891d1772f538h - DQ 3e22edc9dabba74dh - DQ 3e4b9009a1015086h - DQ 3e52a12a8c5b1a19h - DQ 3e3a7885f0fdac85h - DQ 3e5f4ffcd43ac691h - DQ 3e52243ae2640aadh - DQ 3e546513299035d3h - DQ 3e5b39c3a62dd725h - DQ 3e5ba6dd40049f51h - DQ 3e451d1ed7177409h - DQ 3e5cb0f2fd7f5216h - DQ 3e3ab150cd4e2213h - DQ 3e5cfd7bf3193844h - DQ 3e53fff8455f1dbdh - DQ 3e5fee640b905fc9h - DQ 3e54e2adf548084ch - DQ 3e3b597adc1ecdd2h - DQ 3e4345bd096d3a75h - DQ 3e5101b9d2453c8bh - DQ 3e508ce55cc8c979h - DQ 3e5bbf017e595f71h - DQ 3e37ce733bd393dch - DQ 3e233bb0a503f8a1h - DQ 3e30e2f613e85bd9h - DQ 3e5e67555a635b3ch - DQ 3e2ea88df73d5e8bh - DQ 3e3d17e03bda18a8h - DQ 3e5b607d76044f7eh - DQ 3e52adc4e71bc2fch - DQ 3e5f99dc7362d1d9h - DQ 3e5473fa008e6a6ah - DQ 3e2b75bb09cb0985h - DQ 3e5ea04dd10b9abah - DQ 3e5802d0d6979674h - DQ 3e174688ccd99094h - DQ 3e496f16abb9df22h - DQ 3e46e66df2aa374fh - DQ 3e4e66525ea4550ah - DQ 3e42d02f34f20cbdh - DQ 3e46cfce65047188h - DQ 3e39b78c842d58b8h - DQ 3e4735e624c24bc9h - DQ 3e47eba1f7dd1adfh - DQ 3e586b3e59f65355h - DQ 3e1ce38e637f1b4dh - DQ 3e58d82ec919edc7h - DQ 3e4c52648ddcfa37h - DQ 3e52482ceae1ac12h - DQ 3e55a312311aba4fh - DQ 3e411e236329f225h - DQ 3e5b48c8cd2f246ch - DQ 3e6efa39ef35793ch - DQ 0000000000000000h - -END diff --git a/sdk/lib/crt/math/libm_sse2/log_256_lead_tail_table.c b/sdk/lib/crt/math/libm_sse2/log_256_lead_tail_table.c new file mode 100644 index 00000000000..5a1119397ff --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/log_256_lead_tail_table.c @@ -0,0 +1,555 @@ +/* + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** + ** Defines __log_256_lead and __log_256_tail tables + ** Used by log and pow + ** + */ + +#include <crtdefs.h> + +const unsigned long long _CRT_ALIGN(16) __log_256_lead[] = +{ + 0x0000000000000000ull, + 0x3f6ff00aa0000000ull, + 0x3f7fe02a60000000ull, + 0x3f87dc4750000000ull, + 0x3f8fc0a8b0000000ull, + 0x3f93cea440000000ull, + 0x3f97b91b00000000ull, + 0x3f9b9fc020000000ull, + 0x3f9f829b00000000ull, + 0x3fa1b0d980000000ull, + 0x3fa39e87b0000000ull, + 0x3fa58a5ba0000000ull, + 0x3fa77458f0000000ull, + 0x3fa95c8300000000ull, + 0x3fab42dd70000000ull, + 0x3fad276b80000000ull, + 0x3faf0a30c0000000ull, + 0x3fb0759830000000ull, + 0x3fb16536e0000000ull, + 0x3fb253f620000000ull, + 0x3fb341d790000000ull, + 0x3fb42edcb0000000ull, + 0x3fb51b0730000000ull, + 0x3fb60658a0000000ull, + 0x3fb6f0d280000000ull, + 0x3fb7da7660000000ull, + 0x3fb8c345d0000000ull, + 0x3fb9ab4240000000ull, + 0x3fba926d30000000ull, + 0x3fbb78c820000000ull, + 0x3fbc5e5480000000ull, + 0x3fbd4313d0000000ull, + 0x3fbe270760000000ull, + 0x3fbf0a30c0000000ull, + 0x3fbfec9130000000ull, + 0x3fc0671510000000ull, + 0x3fc0d77e70000000ull, + 0x3fc1478580000000ull, + 0x3fc1b72ad0000000ull, + 0x3fc2266f10000000ull, + 0x3fc29552f0000000ull, + 0x3fc303d710000000ull, + 0x3fc371fc20000000ull, + 0x3fc3dfc2b0000000ull, + 0x3fc44d2b60000000ull, + 0x3fc4ba36f0000000ull, + 0x3fc526e5e0000000ull, + 0x3fc59338d0000000ull, + 0x3fc5ff3070000000ull, + 0x3fc66acd40000000ull, + 0x3fc6d60fe0000000ull, + 0x3fc740f8f0000000ull, + 0x3fc7ab8900000000ull, + 0x3fc815c0a0000000ull, + 0x3fc87fa060000000ull, + 0x3fc8e928d0000000ull, + 0x3fc9525a90000000ull, + 0x3fc9bb3620000000ull, + 0x3fca23bc10000000ull, + 0x3fca8becf0000000ull, + 0x3fcaf3c940000000ull, + 0x3fcb5b5190000000ull, + 0x3fcbc28670000000ull, + 0x3fcc296850000000ull, + 0x3fcc8ff7c0000000ull, + 0x3fccf63540000000ull, + 0x3fcd5c2160000000ull, + 0x3fcdc1bca0000000ull, + 0x3fce270760000000ull, + 0x3fce8c0250000000ull, + 0x3fcef0adc0000000ull, + 0x3fcf550a50000000ull, + 0x3fcfb91860000000ull, + 0x3fd00e6c40000000ull, + 0x3fd0402590000000ull, + 0x3fd071b850000000ull, + 0x3fd0a324e0000000ull, + 0x3fd0d46b50000000ull, + 0x3fd1058bf0000000ull, + 0x3fd1368700000000ull, + 0x3fd1675ca0000000ull, + 0x3fd1980d20000000ull, + 0x3fd1c898c0000000ull, + 0x3fd1f8ff90000000ull, + 0x3fd22941f0000000ull, + 0x3fd2596010000000ull, + 0x3fd2895a10000000ull, + 0x3fd2b93030000000ull, + 0x3fd2e8e2b0000000ull, + 0x3fd31871c0000000ull, + 0x3fd347dd90000000ull, + 0x3fd3772660000000ull, + 0x3fd3a64c50000000ull, + 0x3fd3d54fa0000000ull, + 0x3fd4043080000000ull, + 0x3fd432ef20000000ull, + 0x3fd4618bc0000000ull, + 0x3fd4900680000000ull, + 0x3fd4be5f90000000ull, + 0x3fd4ec9730000000ull, + 0x3fd51aad80000000ull, + 0x3fd548a2c0000000ull, + 0x3fd5767710000000ull, + 0x3fd5a42ab0000000ull, + 0x3fd5d1bdb0000000ull, + 0x3fd5ff3070000000ull, + 0x3fd62c82f0000000ull, + 0x3fd659b570000000ull, + 0x3fd686c810000000ull, + 0x3fd6b3bb20000000ull, + 0x3fd6e08ea0000000ull, + 0x3fd70d42e0000000ull, + 0x3fd739d7f0000000ull, + 0x3fd7664e10000000ull, + 0x3fd792a550000000ull, + 0x3fd7bede00000000ull, + 0x3fd7eaf830000000ull, + 0x3fd816f410000000ull, + 0x3fd842d1d0000000ull, + 0x3fd86e9190000000ull, + 0x3fd89a3380000000ull, + 0x3fd8c5b7c0000000ull, + 0x3fd8f11e80000000ull, + 0x3fd91c67e0000000ull, + 0x3fd9479410000000ull, + 0x3fd972a340000000ull, + 0x3fd99d9580000000ull, + 0x3fd9c86b00000000ull, + 0x3fd9f323e0000000ull, + 0x3fda1dc060000000ull, + 0x3fda484090000000ull, + 0x3fda72a490000000ull, + 0x3fda9cec90000000ull, + 0x3fdac718c0000000ull, + 0x3fdaf12930000000ull, + 0x3fdb1b1e00000000ull, + 0x3fdb44f770000000ull, + 0x3fdb6eb590000000ull, + 0x3fdb985890000000ull, + 0x3fdbc1e080000000ull, + 0x3fdbeb4d90000000ull, + 0x3fdc149ff0000000ull, + 0x3fdc3dd7a0000000ull, + 0x3fdc66f4e0000000ull, + 0x3fdc8ff7c0000000ull, + 0x3fdcb8e070000000ull, + 0x3fdce1af00000000ull, + 0x3fdd0a63a0000000ull, + 0x3fdd32fe70000000ull, + 0x3fdd5b7f90000000ull, + 0x3fdd83e720000000ull, + 0x3fddac3530000000ull, + 0x3fddd46a00000000ull, + 0x3fddfc8590000000ull, + 0x3fde248810000000ull, + 0x3fde4c71a0000000ull, + 0x3fde744260000000ull, + 0x3fde9bfa60000000ull, + 0x3fdec399d0000000ull, + 0x3fdeeb20c0000000ull, + 0x3fdf128f50000000ull, + 0x3fdf39e5b0000000ull, + 0x3fdf6123f0000000ull, + 0x3fdf884a30000000ull, + 0x3fdfaf5880000000ull, + 0x3fdfd64f20000000ull, + 0x3fdffd2e00000000ull, + 0x3fe011fab0000000ull, + 0x3fe02552a0000000ull, + 0x3fe0389ee0000000ull, + 0x3fe04bdf90000000ull, + 0x3fe05f14b0000000ull, + 0x3fe0723e50000000ull, + 0x3fe0855c80000000ull, + 0x3fe0986f40000000ull, + 0x3fe0ab76b0000000ull, + 0x3fe0be72e0000000ull, + 0x3fe0d163c0000000ull, + 0x3fe0e44980000000ull, + 0x3fe0f72410000000ull, + 0x3fe109f390000000ull, + 0x3fe11cb810000000ull, + 0x3fe12f7190000000ull, + 0x3fe1422020000000ull, + 0x3fe154c3d0000000ull, + 0x3fe1675ca0000000ull, + 0x3fe179eab0000000ull, + 0x3fe18c6e00000000ull, + 0x3fe19ee6b0000000ull, + 0x3fe1b154b0000000ull, + 0x3fe1c3b810000000ull, + 0x3fe1d610f0000000ull, + 0x3fe1e85f50000000ull, + 0x3fe1faa340000000ull, + 0x3fe20cdcd0000000ull, + 0x3fe21f0bf0000000ull, + 0x3fe23130d0000000ull, + 0x3fe2434b60000000ull, + 0x3fe2555bc0000000ull, + 0x3fe2676200000000ull, + 0x3fe2795e10000000ull, + 0x3fe28b5000000000ull, + 0x3fe29d37f0000000ull, + 0x3fe2af15f0000000ull, + 0x3fe2c0e9e0000000ull, + 0x3fe2d2b400000000ull, + 0x3fe2e47430000000ull, + 0x3fe2f62a90000000ull, + 0x3fe307d730000000ull, + 0x3fe3197a00000000ull, + 0x3fe32b1330000000ull, + 0x3fe33ca2b0000000ull, + 0x3fe34e2890000000ull, + 0x3fe35fa4e0000000ull, + 0x3fe37117b0000000ull, + 0x3fe38280f0000000ull, + 0x3fe393e0d0000000ull, + 0x3fe3a53730000000ull, + 0x3fe3b68440000000ull, + 0x3fe3c7c7f0000000ull, + 0x3fe3d90260000000ull, + 0x3fe3ea3390000000ull, + 0x3fe3fb5b80000000ull, + 0x3fe40c7a40000000ull, + 0x3fe41d8fe0000000ull, + 0x3fe42e9c60000000ull, + 0x3fe43f9fe0000000ull, + 0x3fe4509a50000000ull, + 0x3fe4618bc0000000ull, + 0x3fe4727430000000ull, + 0x3fe48353d0000000ull, + 0x3fe4942a80000000ull, + 0x3fe4a4f850000000ull, + 0x3fe4b5bd60000000ull, + 0x3fe4c679a0000000ull, + 0x3fe4d72d30000000ull, + 0x3fe4e7d810000000ull, + 0x3fe4f87a30000000ull, + 0x3fe50913c0000000ull, + 0x3fe519a4c0000000ull, + 0x3fe52a2d20000000ull, + 0x3fe53aad00000000ull, + 0x3fe54b2460000000ull, + 0x3fe55b9350000000ull, + 0x3fe56bf9d0000000ull, + 0x3fe57c57f0000000ull, + 0x3fe58cadb0000000ull, + 0x3fe59cfb20000000ull, + 0x3fe5ad4040000000ull, + 0x3fe5bd7d30000000ull, + 0x3fe5cdb1d0000000ull, + 0x3fe5ddde50000000ull, + 0x3fe5ee02a0000000ull, + 0x3fe5fe1ed0000000ull, + 0x3fe60e32f0000000ull, + 0x3fe61e3ef0000000ull, + 0x3fe62e42e0000000ull, + 0x0000000000000000ull +}; + +const unsigned long long _CRT_ALIGN(16) __log_256_tail[] = +{ + 0x0000000000000000ull, + 0x3db5885e0250435aull, + 0x3de620cf11f86ed2ull, + 0x3dff0214edba4a25ull, + 0x3dbf807c79f3db4eull, + 0x3dea352ba779a52bull, + 0x3dff56c46aa49fd5ull, + 0x3dfebe465fef5196ull, + 0x3e0cf0660099f1f8ull, + 0x3e1247b2ff85945dull, + 0x3e13fd7abf5202b6ull, + 0x3e1f91c9a918d51eull, + 0x3e08cb73f118d3caull, + 0x3e1d91c7d6fad074ull, + 0x3de1971bec28d14cull, + 0x3e15b616a423c78aull, + 0x3da162a6617cc971ull, + 0x3e166391c4c06d29ull, + 0x3e2d46f5c1d0c4b8ull, + 0x3e2e14282df1f6d3ull, + 0x3e186f47424a660dull, + 0x3e2d4c8de077753eull, + 0x3e2e0c307ed24f1cull, + 0x3e226ea18763bdd3ull, + 0x3e25cad69737c933ull, + 0x3e2af62599088901ull, + 0x3e18c66c83d6b2d0ull, + 0x3e1880ceb36fb30full, + 0x3e2495aac6ca17a4ull, + 0x3e2761db4210878cull, + 0x3e2eb78e862bac2full, + 0x3e19b2cd75790dd9ull, + 0x3e2c55e5cbd3d50full, + 0x3db162a6617cc971ull, + 0x3dfdbeabaaa2e519ull, + 0x3e1652cb7150c647ull, + 0x3e39a11cb2cd2ee2ull, + 0x3e219d0ab1a28813ull, + 0x3e24bd9e80a41811ull, + 0x3e3214b596faa3dfull, + 0x3e303fea46980bb8ull, + 0x3e31c8ffa5fd28c7ull, + 0x3dce8f743bcd96c5ull, + 0x3dfd98c5395315c6ull, + 0x3e3996fa3ccfa7b2ull, + 0x3e1cd2af2ad13037ull, + 0x3e1d0da1bd17200eull, + 0x3e3330410ba68b75ull, + 0x3df4f27a790e7c41ull, + 0x3e13956a86f6ff1bull, + 0x3e2c6748723551d9ull, + 0x3e2500de9326cdfcull, + 0x3e1086c848df1b59ull, + 0x3e04357ead6836ffull, + 0x3e24832442408024ull, + 0x3e3d10da8154b13dull, + 0x3e39e8ad68ec8260ull, + 0x3e3cfbf706abaf18ull, + 0x3e3fc56ac6326e23ull, + 0x3e39105e3185cf21ull, + 0x3e3d017fe5b19cc0ull, + 0x3e3d1f6b48dd13feull, + 0x3e20b63358a7e73aull, + 0x3e263063028c211cull, + 0x3e2e6a6886b09760ull, + 0x3e3c138bb891cd03ull, + 0x3e369f7722b7221aull, + 0x3df57d8fac1a628cull, + 0x3e3c55e5cbd3d50full, + 0x3e1552d2ff48fe2eull, + 0x3e37b8b26ca431bcull, + 0x3e292decdc1c5f6dull, + 0x3e3abc7c551aaa8cull, + 0x3e36b540731a354bull, + 0x3e32d341036b89efull, + 0x3e4f9ab21a3a2e0full, + 0x3e239c871afb9fbdull, + 0x3e3e6add2c81f640ull, + 0x3e435c95aa313f41ull, + 0x3e249d4582f6cc53ull, + 0x3e47574c1c07398full, + 0x3e4ba846dece9e8dull, + 0x3e16999fafbc68e7ull, + 0x3e4c9145e51b0103ull, + 0x3e479ef2cb44850aull, + 0x3e0beec73de11275ull, + 0x3e2ef4351af5a498ull, + 0x3e45713a493b4a50ull, + 0x3e45c23a61385992ull, + 0x3e42a88309f57299ull, + 0x3e4530faa9ac8aceull, + 0x3e25fec2d792a758ull, + 0x3e35a517a71cbcd7ull, + 0x3e3707dc3e1cd9a3ull, + 0x3e3a1a9f8ef43049ull, + 0x3e4409d0276b3674ull, + 0x3e20e2f613e85bd9ull, + 0x3df0027433001e5full, + 0x3e35dde2836d3265ull, + 0x3e2300134d7aaf04ull, + 0x3e3cb7e0b42724f5ull, + 0x3e2d6e93167e6308ull, + 0x3e3d1569b1526adbull, + 0x3e0e99fc338a1a41ull, + 0x3e4eb01394a11b1cull, + 0x3e04f27a790e7c41ull, + 0x3e25ce3ca97b7af9ull, + 0x3e281f0f940ed857ull, + 0x3e4d36295d88857cull, + 0x3e21aca1ec4af526ull, + 0x3e445743c7182726ull, + 0x3e23c491aead337eull, + 0x3e3aef401a738931ull, + 0x3e21cede76092a29ull, + 0x3e4fba8f44f82bb4ull, + 0x3e446f5f7f3c3e1aull, + 0x3e47055f86c9674bull, + 0x3e4b41a92b6b6e1aull, + 0x3e443d162e927628ull, + 0x3e4466174013f9b1ull, + 0x3e3b05096ad69c62ull, + 0x3e40b169150faa58ull, + 0x3e3cd98b1df85da7ull, + 0x3e468b507b0f8fa8ull, + 0x3e48422df57499baull, + 0x3e11351586970274ull, + 0x3e117e08acba92eeull, + 0x3e26e04314dd0229ull, + 0x3e497f3097e56d1aull, + 0x3e3356e655901286ull, + 0x3e0cb761457f94d6ull, + 0x3e39af67a85a9dacull, + 0x3e453410931a909full, + 0x3e22c587206058f5ull, + 0x3e223bc358899c22ull, + 0x3e4d7bf8b6d223cbull, + 0x3e47991ec5197ddbull, + 0x3e4a79e6bb3a9219ull, + 0x3e3a4c43ed663ec5ull, + 0x3e461b5a1484f438ull, + 0x3e4b4e36f7ef0c3aull, + 0x3e115f026acd0d1bull, + 0x3e3f36b535cecf05ull, + 0x3e2ffb7fbf3eb5c6ull, + 0x3e3e6a6886b09760ull, + 0x3e3135eb27f5bbc3ull, + 0x3e470be7d6f6fa57ull, + 0x3e4ce43cc84ab338ull, + 0x3e4c01d7aac3bd91ull, + 0x3e45c58d07961060ull, + 0x3e3628bcf941456eull, + 0x3e4c58b2a8461cd2ull, + 0x3e33071282fb989aull, + 0x3e420dab6a80f09cull, + 0x3e44f8d84c397b1eull, + 0x3e40d0ee08599e48ull, + 0x3e1d68787e37da36ull, + 0x3e366187d591bafcull, + 0x3e22346600bae772ull, + 0x3e390377d0d61b8eull, + 0x3e4f5e0dd966b907ull, + 0x3e49023cb79a00e2ull, + 0x3e44e05158c28ad8ull, + 0x3e3bfa7b08b18ae4ull, + 0x3e4ef1e63db35f67ull, + 0x3e0ec2ae39493d4full, + 0x3e40afe930ab2fa0ull, + 0x3e225ff8a1810dd4ull, + 0x3e469743fb1a71a5ull, + 0x3e5f9cc676785571ull, + 0x3e5b524da4cbf982ull, + 0x3e5a4c8b381535b8ull, + 0x3e5839be809caf2cull, + 0x3e50968a1cb82c13ull, + 0x3e5eae6a41723fb5ull, + 0x3e5d9c29a380a4dbull, + 0x3e4094aa0ada625eull, + 0x3e5973ad6fc108caull, + 0x3e4747322fdbab97ull, + 0x3e593692fa9d4221ull, + 0x3e5c5a992dfbc7d9ull, + 0x3e4e1f33e102387aull, + 0x3e464fbef14c048cull, + 0x3e4490f513ca5e3bull, + 0x3e37a6af4d4c799dull, + 0x3e57574c1c07398full, + 0x3e57b133417f8c1cull, + 0x3e5feb9e0c176514ull, + 0x3e419f25bb3172f7ull, + 0x3e45f68a7bbfb852ull, + 0x3e5ee278497929f1ull, + 0x3e5ccee006109d58ull, + 0x3e5ce081a07bd8b3ull, + 0x3e570e12981817b8ull, + 0x3e292ab6d93503d0ull, + 0x3e58cb7dd7c3b61eull, + 0x3e4efafd0a0b78daull, + 0x3e5e907267c4288eull, + 0x3e5d31ef96780875ull, + 0x3e23430dfcd2ad50ull, + 0x3e344d88d75bc1f9ull, + 0x3e5bec0f055e04fcull, + 0x3e5d85611590b9adull, + 0x3df320568e583229ull, + 0x3e5a891d1772f538ull, + 0x3e22edc9dabba74dull, + 0x3e4b9009a1015086ull, + 0x3e52a12a8c5b1a19ull, + 0x3e3a7885f0fdac85ull, + 0x3e5f4ffcd43ac691ull, + 0x3e52243ae2640aadull, + 0x3e546513299035d3ull, + 0x3e5b39c3a62dd725ull, + 0x3e5ba6dd40049f51ull, + 0x3e451d1ed7177409ull, + 0x3e5cb0f2fd7f5216ull, + 0x3e3ab150cd4e2213ull, + 0x3e5cfd7bf3193844ull, + 0x3e53fff8455f1dbdull, + 0x3e5fee640b905fc9ull, + 0x3e54e2adf548084cull, + 0x3e3b597adc1ecdd2ull, + 0x3e4345bd096d3a75ull, + 0x3e5101b9d2453c8bull, + 0x3e508ce55cc8c979ull, + 0x3e5bbf017e595f71ull, + 0x3e37ce733bd393dcull, + 0x3e233bb0a503f8a1ull, + 0x3e30e2f613e85bd9ull, + 0x3e5e67555a635b3cull, + 0x3e2ea88df73d5e8bull, + 0x3e3d17e03bda18a8ull, + 0x3e5b607d76044f7eull, + 0x3e52adc4e71bc2fcull, + 0x3e5f99dc7362d1d9ull, + 0x3e5473fa008e6a6aull, + 0x3e2b75bb09cb0985ull, + 0x3e5ea04dd10b9abaull, + 0x3e5802d0d6979674ull, + 0x3e174688ccd99094ull, + 0x3e496f16abb9df22ull, + 0x3e46e66df2aa374full, + 0x3e4e66525ea4550aull, + 0x3e42d02f34f20cbdull, + 0x3e46cfce65047188ull, + 0x3e39b78c842d58b8ull, + 0x3e4735e624c24bc9ull, + 0x3e47eba1f7dd1adfull, + 0x3e586b3e59f65355ull, + 0x3e1ce38e637f1b4dull, + 0x3e58d82ec919edc7ull, + 0x3e4c52648ddcfa37ull, + 0x3e52482ceae1ac12ull, + 0x3e55a312311aba4full, + 0x3e411e236329f225ull, + 0x3e5b48c8cd2f246cull, + 0x3e6efa39ef35793cull, + 0x0000000000000000ull +}; diff --git a/sdk/lib/crt/math/libm_sse2/log_F_inv_dword_table.asm b/sdk/lib/crt/math/libm_sse2/log_F_inv_dword_table.asm deleted file mode 100644 index 44101f94955..00000000000 --- a/sdk/lib/crt/math/libm_sse2/log_F_inv_dword_table.asm +++ /dev/null @@ -1,164 +0,0 @@ -;; -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; Defines __log_F_inv_dword -;; Used in log10f and logf -;; - -.const - -ALIGN 16 -PUBLIC __log_F_inv_dword -__log_F_inv_dword DD 40000000h - DD 3ffe03f8h - DD 3ffc0fc1h - DD 3ffa232dh - DD 3ff83e10h - DD 3ff6603eh - DD 3ff4898dh - DD 3ff2b9d6h - DD 3ff0f0f1h - DD 3fef2eb7h - DD 3fed7304h - DD 3febbdb3h - DD 3fea0ea1h - DD 3fe865ach - DD 3fe6c2b4h - DD 3fe52598h - DD 3fe38e39h - DD 3fe1fc78h - DD 3fe07038h - DD 3fdee95ch - DD 3fdd67c9h - DD 3fdbeb62h - DD 3fda740eh - DD 3fd901b2h - DD 3fd79436h - DD 3fd62b81h - DD 3fd4c77bh - DD 3fd3680dh - DD 3fd20d21h - DD 3fd0b6a0h - DD 3fcf6475h - DD 3fce168ah - DD 3fcccccdh - DD 3fcb8728h - DD 3fca4588h - DD 3fc907dah - DD 3fc7ce0ch - DD 3fc6980ch - DD 3fc565c8h - DD 3fc43730h - DD 3fc30c31h - DD 3fc1e4bch - DD 3fc0c0c1h - DD 3fbfa030h - DD 3fbe82fah - DD 3fbd6910h - DD 3fbc5264h - DD 3fbb3ee7h - DD 3fba2e8ch - DD 3fb92144h - DD 3fb81703h - DD 3fb70fbbh - DD 3fb60b61h - DD 3fb509e7h - DD 3fb40b41h - DD 3fb30f63h - DD 3fb21643h - DD 3fb11fd4h - DD 3fb02c0bh - DD 3faf3adeh - DD 3fae4c41h - DD 3fad602bh - DD 3fac7692h - DD 3fab8f6ah - DD 3faaaaabh - DD 3fa9c84ah - DD 3fa8e83fh - DD 3fa80a81h - DD 3fa72f05h - DD 3fa655c4h - DD 3fa57eb5h - DD 3fa4a9cfh - DD 3fa3d70ah - DD 3fa3065eh - DD 3fa237c3h - DD 3fa16b31h - DD 3fa0a0a1h - DD 3f9fd80ah - DD 3f9f1166h - DD 3f9e4cadh - DD 3f9d89d9h - DD 3f9cc8e1h - DD 3f9c09c1h - DD 3f9b4c70h - DD 3f9a90e8h - DD 3f99d723h - DD 3f991f1ah - DD 3f9868c8h - DD 3f97b426h - DD 3f97012eh - DD 3f964fdah - DD 3f95a025h - DD 3f94f209h - DD 3f944581h - DD 3f939a86h - DD 3f92f114h - DD 3f924925h - DD 3f91a2b4h - DD 3f90fdbch - DD 3f905a38h - DD 3f8fb824h - DD 3f8f177ah - DD 3f8e7835h - DD 3f8dda52h - DD 3f8d3dcbh - DD 3f8ca29ch - DD 3f8c08c1h - DD 3f8b7034h - DD 3f8ad8f3h - DD 3f8a42f8h - DD 3f89ae41h - DD 3f891ac7h - DD 3f888889h - DD 3f87f781h - DD 3f8767abh - DD 3f86d905h - DD 3f864b8ah - DD 3f85bf37h - DD 3f853408h - DD 3f84a9fah - DD 3f842108h - DD 3f839930h - DD 3f83126fh - DD 3f828cc0h - DD 3f820821h - DD 3f81848eh - DD 3f810204h - DD 3f808081h - DD 3f800000h - -END diff --git a/sdk/lib/crt/math/libm_sse2/log_F_inv_dword_table.c b/sdk/lib/crt/math/libm_sse2/log_F_inv_dword_table.c new file mode 100644 index 00000000000..2cc6ef2b7b3 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/log_F_inv_dword_table.c @@ -0,0 +1,164 @@ +/* + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** + ** Defines __log_F_inv_dword + ** Used in log10f and logf + ** + */ + +#include <crtdefs.h> + +const unsigned int _CRT_ALIGN(16) __log_F_inv_dword[] = +{ + 0x40000000, + 0x3ffe03f8, + 0x3ffc0fc1, + 0x3ffa232d, + 0x3ff83e10, + 0x3ff6603e, + 0x3ff4898d, + 0x3ff2b9d6, + 0x3ff0f0f1, + 0x3fef2eb7, + 0x3fed7304, + 0x3febbdb3, + 0x3fea0ea1, + 0x3fe865ac, + 0x3fe6c2b4, + 0x3fe52598, + 0x3fe38e39, + 0x3fe1fc78, + 0x3fe07038, + 0x3fdee95c, + 0x3fdd67c9, + 0x3fdbeb62, + 0x3fda740e, + 0x3fd901b2, + 0x3fd79436, + 0x3fd62b81, + 0x3fd4c77b, + 0x3fd3680d, + 0x3fd20d21, + 0x3fd0b6a0, + 0x3fcf6475, + 0x3fce168a, + 0x3fcccccd, + 0x3fcb8728, + 0x3fca4588, + 0x3fc907da, + 0x3fc7ce0c, + 0x3fc6980c, + 0x3fc565c8, + 0x3fc43730, + 0x3fc30c31, + 0x3fc1e4bc, + 0x3fc0c0c1, + 0x3fbfa030, + 0x3fbe82fa, + 0x3fbd6910, + 0x3fbc5264, + 0x3fbb3ee7, + 0x3fba2e8c, + 0x3fb92144, + 0x3fb81703, + 0x3fb70fbb, + 0x3fb60b61, + 0x3fb509e7, + 0x3fb40b41, + 0x3fb30f63, + 0x3fb21643, + 0x3fb11fd4, + 0x3fb02c0b, + 0x3faf3ade, + 0x3fae4c41, + 0x3fad602b, + 0x3fac7692, + 0x3fab8f6a, + 0x3faaaaab, + 0x3fa9c84a, + 0x3fa8e83f, + 0x3fa80a81, + 0x3fa72f05, + 0x3fa655c4, + 0x3fa57eb5, + 0x3fa4a9cf, + 0x3fa3d70a, + 0x3fa3065e, + 0x3fa237c3, + 0x3fa16b31, + 0x3fa0a0a1, + 0x3f9fd80a, + 0x3f9f1166, + 0x3f9e4cad, + 0x3f9d89d9, + 0x3f9cc8e1, + 0x3f9c09c1, + 0x3f9b4c70, + 0x3f9a90e8, + 0x3f99d723, + 0x3f991f1a, + 0x3f9868c8, + 0x3f97b426, + 0x3f97012e, + 0x3f964fda, + 0x3f95a025, + 0x3f94f209, + 0x3f944581, + 0x3f939a86, + 0x3f92f114, + 0x3f924925, + 0x3f91a2b4, + 0x3f90fdbc, + 0x3f905a38, + 0x3f8fb824, + 0x3f8f177a, + 0x3f8e7835, + 0x3f8dda52, + 0x3f8d3dcb, + 0x3f8ca29c, + 0x3f8c08c1, + 0x3f8b7034, + 0x3f8ad8f3, + 0x3f8a42f8, + 0x3f89ae41, + 0x3f891ac7, + 0x3f888889, + 0x3f87f781, + 0x3f8767ab, + 0x3f86d905, + 0x3f864b8a, + 0x3f85bf37, + 0x3f853408, + 0x3f84a9fa, + 0x3f842108, + 0x3f839930, + 0x3f83126f, + 0x3f828cc0, + 0x3f820821, + 0x3f81848e, + 0x3f810204, + 0x3f808081, + 0x3f800000, +}; diff --git a/sdk/lib/crt/math/libm_sse2/log_F_inv_qword_table.asm b/sdk/lib/crt/math/libm_sse2/log_F_inv_qword_table.asm deleted file mode 100644 index 5c65eeed4ba..00000000000 --- a/sdk/lib/crt/math/libm_sse2/log_F_inv_qword_table.asm +++ /dev/null @@ -1,294 +0,0 @@ -;; -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; Defines __log_F_inv_qword -;; Used in log10 and log -;; - -.const - -ALIGN 16 -PUBLIC __log_F_inv_qword -__log_F_inv_qword DQ 4000000000000000h - DQ 3fffe01fe01fe020h - DQ 3fffc07f01fc07f0h - DQ 3fffa11caa01fa12h - DQ 3fff81f81f81f820h - DQ 3fff6310aca0dbb5h - DQ 3fff44659e4a4271h - DQ 3fff25f644230ab5h - DQ 3fff07c1f07c1f08h - DQ 3ffee9c7f8458e02h - DQ 3ffecc07b301ecc0h - DQ 3ffeae807aba01ebh - DQ 3ffe9131abf0b767h - DQ 3ffe741aa59750e4h - DQ 3ffe573ac901e574h - DQ 3ffe3a9179dc1a73h - DQ 3ffe1e1e1e1e1e1eh - DQ 3ffe01e01e01e01eh - DQ 3ffde5d6e3f8868ah - DQ 3ffdca01dca01dcah - DQ 3ffdae6076b981dbh - DQ 3ffd92f2231e7f8ah - DQ 3ffd77b654b82c34h - DQ 3ffd5cac807572b2h - DQ 3ffd41d41d41d41dh - DQ 3ffd272ca3fc5b1ah - DQ 3ffd0cb58f6ec074h - DQ 3ffcf26e5c44bfc6h - DQ 3ffcd85689039b0bh - DQ 3ffcbe6d9601cbe7h - DQ 3ffca4b3055ee191h - DQ 3ffc8b265afb8a42h - DQ 3ffc71c71c71c71ch - DQ 3ffc5894d10d4986h - DQ 3ffc3f8f01c3f8f0h - DQ 3ffc26b5392ea01ch - DQ 3ffc0e070381c0e0h - DQ 3ffbf583ee868d8bh - DQ 3ffbdd2b899406f7h - DQ 3ffbc4fd65883e7bh - DQ 3ffbacf914c1bad0h - DQ 3ffb951e2b18ff23h - DQ 3ffb7d6c3dda338bh - DQ 3ffb65e2e3beee05h - DQ 3ffb4e81b4e81b4fh - DQ 3ffb37484ad806ceh - DQ 3ffb2036406c80d9h - DQ 3ffb094b31d922a4h - DQ 3ffaf286bca1af28h - DQ 3ffadbe87f94905eh - DQ 3ffac5701ac5701bh - DQ 3ffaaf1d2f87ebfdh - DQ 3ffa98ef606a63beh - DQ 3ffa82e65130e159h - DQ 3ffa6d01a6d01a6dh - DQ 3ffa574107688a4ah - DQ 3ffa41a41a41a41ah - DQ 3ffa2c2a87c51ca0h - DQ 3ffa16d3f97a4b02h - DQ 3ffa01a01a01a01ah - DQ 3ff9ec8e951033d9h - DQ 3ff9d79f176b682dh - DQ 3ff9c2d14ee4a102h - DQ 3ff9ae24ea5510dah - DQ 3ff999999999999ah - DQ 3ff9852f0d8ec0ffh - DQ 3ff970e4f80cb872h - DQ 3ff95cbb0be377aeh - DQ 3ff948b0fcd6e9e0h - DQ 3ff934c67f9b2ce6h - DQ 3ff920fb49d0e229h - DQ 3ff90d4f120190d5h - DQ 3ff8f9c18f9c18fah - DQ 3ff8e6527af1373fh - DQ 3ff8d3018d3018d3h - DQ 3ff8bfce8062ff3ah - DQ 3ff8acb90f6bf3aah - DQ 3ff899c0f601899ch - DQ 3ff886e5f0abb04ah - DQ 3ff87427bcc092b9h - DQ 3ff8618618618618h - DQ 3ff84f00c2780614h - DQ 3ff83c977ab2beddh - DQ 3ff82a4a0182a4a0h - DQ 3ff8181818181818h - DQ 3ff8060180601806h - DQ 3ff7f405fd017f40h - DQ 3ff7e225515a4f1dh - DQ 3ff7d05f417d05f4h - DQ 3ff7beb3922e017ch - DQ 3ff7ad2208e0ecc3h - DQ 3ff79baa6bb6398bh - DQ 3ff78a4c8178a4c8h - DQ 3ff77908119ac60dh - DQ 3ff767dce434a9b1h - DQ 3ff756cac201756dh - DQ 3ff745d1745d1746h - DQ 3ff734f0c541fe8dh - DQ 3ff724287f46debch - DQ 3ff713786d9c7c09h - DQ 3ff702e05c0b8170h - DQ 3ff6f26016f26017h - DQ 3ff6e1f76b4337c7h - DQ 3ff6d1a62681c861h - DQ 3ff6c16c16c16c17h - DQ 3ff6b1490aa31a3dh - DQ 3ff6a13cd1537290h - DQ 3ff691473a88d0c0h - DQ 3ff6816816816817h - DQ 3ff6719f3601671ah - DQ 3ff661ec6a5122f9h - DQ 3ff6524f853b4aa3h - DQ 3ff642c8590b2164h - DQ 3ff63356b88ac0deh - DQ 3ff623fa77016240h - DQ 3ff614b36831ae94h - DQ 3ff6058160581606h - DQ 3ff5f66434292dfch - DQ 3ff5e75bb8d015e7h - DQ 3ff5d867c3ece2a5h - DQ 3ff5c9882b931057h - DQ 3ff5babcc647fa91h - DQ 3ff5ac056b015ac0h - DQ 3ff59d61f123ccaah - DQ 3ff58ed2308158edh - DQ 3ff5805601580560h - DQ 3ff571ed3c506b3ah - DQ 3ff56397ba7c52e2h - DQ 3ff5555555555555h - DQ 3ff54725e6bb82feh - DQ 3ff5390948f40febh - DQ 3ff52aff56a8054bh - DQ 3ff51d07eae2f815h - DQ 3ff50f22e111c4c5h - DQ 3ff5015015015015h - DQ 3ff4f38f62dd4c9bh - DQ 3ff4e5e0a72f0539h - DQ 3ff4d843bedc2c4ch - DQ 3ff4cab88725af6eh - DQ 3ff4bd3edda68fe1h - DQ 3ff4afd6a052bf5bh - DQ 3ff4a27fad76014ah - DQ 3ff49539e3b2d067h - DQ 3ff4880522014880h - DQ 3ff47ae147ae147bh - DQ 3ff46dce34596066h - DQ 3ff460cbc7f5cf9ah - DQ 3ff453d9e2c776cah - DQ 3ff446f86562d9fbh - DQ 3ff43a2730abee4dh - DQ 3ff42d6625d51f87h - DQ 3ff420b5265e5951h - DQ 3ff4141414141414h - DQ 3ff40782d10e6566h - DQ 3ff3fb013fb013fbh - DQ 3ff3ee8f42a5af07h - DQ 3ff3e22cbce4a902h - DQ 3ff3d5d991aa75c6h - DQ 3ff3c995a47babe7h - DQ 3ff3bd60d9232955h - DQ 3ff3b13b13b13b14h - DQ 3ff3a524387ac822h - DQ 3ff3991c2c187f63h - DQ 3ff38d22d366088eh - DQ 3ff3813813813814h - DQ 3ff3755bd1c945eeh - DQ 3ff3698df3de0748h - DQ 3ff35dce5f9f2af8h - DQ 3ff3521cfb2b78c1h - DQ 3ff34679ace01346h - DQ 3ff33ae45b57bcb2h - DQ 3ff32f5ced6a1dfah - DQ 3ff323e34a2b10bfh - DQ 3ff3187758e9ebb6h - DQ 3ff30d190130d190h - DQ 3ff301c82ac40260h - DQ 3ff2f684bda12f68h - DQ 3ff2eb4ea1fed14bh - DQ 3ff2e025c04b8097h - DQ 3ff2d50a012d50a0h - DQ 3ff2c9fb4d812ca0h - DQ 3ff2bef98e5a3711h - DQ 3ff2b404ad012b40h - DQ 3ff2a91c92f3c105h - DQ 3ff29e4129e4129eh - DQ 3ff293725bb804a5h - DQ 3ff288b01288b013h - DQ 3ff27dfa38a1ce4dh - DQ 3ff27350b8812735h - DQ 3ff268b37cd60127h - DQ 3ff25e22708092f1h - DQ 3ff2539d7e9177b2h - DQ 3ff2492492492492h - DQ 3ff23eb79717605bh - DQ 3ff23456789abcdfh - DQ 3ff22a0122a0122ah - DQ 3ff21fb78121fb78h - DQ 3ff21579804855e6h - DQ 3ff20b470c67c0d9h - DQ 3ff2012012012012h - DQ 3ff1f7047dc11f70h - DQ 3ff1ecf43c7fb84ch - DQ 3ff1e2ef3b3fb874h - DQ 3ff1d8f5672e4abdh - DQ 3ff1cf06ada2811dh - DQ 3ff1c522fc1ce059h - DQ 3ff1bb4a4046ed29h - DQ 3ff1b17c67f2bae3h - DQ 3ff1a7b9611a7b96h - DQ 3ff19e0119e0119eh - DQ 3ff19453808ca29ch - DQ 3ff18ab083902bdbh - DQ 3ff1811811811812h - DQ 3ff1778a191bd684h - DQ 3ff16e0689427379h - DQ 3ff1648d50fc3201h - DQ 3ff15b1e5f75270dh - DQ 3ff151b9a3fdd5c9h - DQ 3ff1485f0e0acd3bh - DQ 3ff13f0e8d344724h - DQ 3ff135c81135c811h - DQ 3ff12c8b89edc0ach - DQ 3ff12358e75d3033h - DQ 3ff11a3019a74826h - DQ 3ff1111111111111h - DQ 3ff107fbbe011080h - DQ 3ff0fef010fef011h - DQ 3ff0f5edfab325a2h - DQ 3ff0ecf56be69c90h - DQ 3ff0e40655826011h - DQ 3ff0db20a88f4696h - DQ 3ff0d24456359e3ah - DQ 3ff0c9714fbcda3bh - DQ 3ff0c0a7868b4171h - DQ 3ff0b7e6ec259dc8h - DQ 3ff0af2f722eecb5h - DQ 3ff0a6810a6810a7h - DQ 3ff09ddba6af8360h - DQ 3ff0953f39010954h - DQ 3ff08cabb37565e2h - DQ 3ff0842108421084h - DQ 3ff07b9f29b8eae2h - DQ 3ff073260a47f7c6h - DQ 3ff06ab59c7912fbh - DQ 3ff0624dd2f1a9fch - DQ 3ff059eea0727586h - DQ 3ff05197f7d73404h - DQ 3ff04949cc1664c5h - DQ 3ff0410410410410h - DQ 3ff038c6b78247fch - DQ 3ff03091b51f5e1ah - DQ 3ff02864fc7729e9h - DQ 3ff0204081020408h - DQ 3ff0182436517a37h - DQ 3ff0101010101010h - DQ 3ff0080402010080h - DQ 3ff0000000000000h - DQ 0000000000000000h - - -END diff --git a/sdk/lib/crt/math/libm_sse2/log_F_inv_qword_table.c b/sdk/lib/crt/math/libm_sse2/log_F_inv_qword_table.c new file mode 100644 index 00000000000..bf45530fc54 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/log_F_inv_qword_table.c @@ -0,0 +1,294 @@ +/* + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** + ** Defines __log_F_inv_qword + ** Used in log10 and log + ** + */ + +#include <crtdefs.h> + +const unsigned long long _CRT_ALIGN(16) __log_F_inv_qword[] = +{ + 0x4000000000000000ull, + 0x3fffe01fe01fe020ull, + 0x3fffc07f01fc07f0ull, + 0x3fffa11caa01fa12ull, + 0x3fff81f81f81f820ull, + 0x3fff6310aca0dbb5ull, + 0x3fff44659e4a4271ull, + 0x3fff25f644230ab5ull, + 0x3fff07c1f07c1f08ull, + 0x3ffee9c7f8458e02ull, + 0x3ffecc07b301ecc0ull, + 0x3ffeae807aba01ebull, + 0x3ffe9131abf0b767ull, + 0x3ffe741aa59750e4ull, + 0x3ffe573ac901e574ull, + 0x3ffe3a9179dc1a73ull, + 0x3ffe1e1e1e1e1e1eull, + 0x3ffe01e01e01e01eull, + 0x3ffde5d6e3f8868aull, + 0x3ffdca01dca01dcaull, + 0x3ffdae6076b981dbull, + 0x3ffd92f2231e7f8aull, + 0x3ffd77b654b82c34ull, + 0x3ffd5cac807572b2ull, + 0x3ffd41d41d41d41dull, + 0x3ffd272ca3fc5b1aull, + 0x3ffd0cb58f6ec074ull, + 0x3ffcf26e5c44bfc6ull, + 0x3ffcd85689039b0bull, + 0x3ffcbe6d9601cbe7ull, + 0x3ffca4b3055ee191ull, + 0x3ffc8b265afb8a42ull, + 0x3ffc71c71c71c71cull, + 0x3ffc5894d10d4986ull, + 0x3ffc3f8f01c3f8f0ull, + 0x3ffc26b5392ea01cull, + 0x3ffc0e070381c0e0ull, + 0x3ffbf583ee868d8bull, + 0x3ffbdd2b899406f7ull, + 0x3ffbc4fd65883e7bull, + 0x3ffbacf914c1bad0ull, + 0x3ffb951e2b18ff23ull, + 0x3ffb7d6c3dda338bull, + 0x3ffb65e2e3beee05ull, + 0x3ffb4e81b4e81b4full, + 0x3ffb37484ad806ceull, + 0x3ffb2036406c80d9ull, + 0x3ffb094b31d922a4ull, + 0x3ffaf286bca1af28ull, + 0x3ffadbe87f94905eull, + 0x3ffac5701ac5701bull, + 0x3ffaaf1d2f87ebfdull, + 0x3ffa98ef606a63beull, + 0x3ffa82e65130e159ull, + 0x3ffa6d01a6d01a6dull, + 0x3ffa574107688a4aull, + 0x3ffa41a41a41a41aull, + 0x3ffa2c2a87c51ca0ull, + 0x3ffa16d3f97a4b02ull, + 0x3ffa01a01a01a01aull, + 0x3ff9ec8e951033d9ull, + 0x3ff9d79f176b682dull, + 0x3ff9c2d14ee4a102ull, + 0x3ff9ae24ea5510daull, + 0x3ff999999999999aull, + 0x3ff9852f0d8ec0ffull, + 0x3ff970e4f80cb872ull, + 0x3ff95cbb0be377aeull, + 0x3ff948b0fcd6e9e0ull, + 0x3ff934c67f9b2ce6ull, + 0x3ff920fb49d0e229ull, + 0x3ff90d4f120190d5ull, + 0x3ff8f9c18f9c18faull, + 0x3ff8e6527af1373full, + 0x3ff8d3018d3018d3ull, + 0x3ff8bfce8062ff3aull, + 0x3ff8acb90f6bf3aaull, + 0x3ff899c0f601899cull, + 0x3ff886e5f0abb04aull, + 0x3ff87427bcc092b9ull, + 0x3ff8618618618618ull, + 0x3ff84f00c2780614ull, + 0x3ff83c977ab2beddull, + 0x3ff82a4a0182a4a0ull, + 0x3ff8181818181818ull, + 0x3ff8060180601806ull, + 0x3ff7f405fd017f40ull, + 0x3ff7e225515a4f1dull, + 0x3ff7d05f417d05f4ull, + 0x3ff7beb3922e017cull, + 0x3ff7ad2208e0ecc3ull, + 0x3ff79baa6bb6398bull, + 0x3ff78a4c8178a4c8ull, + 0x3ff77908119ac60dull, + 0x3ff767dce434a9b1ull, + 0x3ff756cac201756dull, + 0x3ff745d1745d1746ull, + 0x3ff734f0c541fe8dull, + 0x3ff724287f46debcull, + 0x3ff713786d9c7c09ull, + 0x3ff702e05c0b8170ull, + 0x3ff6f26016f26017ull, + 0x3ff6e1f76b4337c7ull, + 0x3ff6d1a62681c861ull, + 0x3ff6c16c16c16c17ull, + 0x3ff6b1490aa31a3dull, + 0x3ff6a13cd1537290ull, + 0x3ff691473a88d0c0ull, + 0x3ff6816816816817ull, + 0x3ff6719f3601671aull, + 0x3ff661ec6a5122f9ull, + 0x3ff6524f853b4aa3ull, + 0x3ff642c8590b2164ull, + 0x3ff63356b88ac0deull, + 0x3ff623fa77016240ull, + 0x3ff614b36831ae94ull, + 0x3ff6058160581606ull, + 0x3ff5f66434292dfcull, + 0x3ff5e75bb8d015e7ull, + 0x3ff5d867c3ece2a5ull, + 0x3ff5c9882b931057ull, + 0x3ff5babcc647fa91ull, + 0x3ff5ac056b015ac0ull, + 0x3ff59d61f123ccaaull, + 0x3ff58ed2308158edull, + 0x3ff5805601580560ull, + 0x3ff571ed3c506b3aull, + 0x3ff56397ba7c52e2ull, + 0x3ff5555555555555ull, + 0x3ff54725e6bb82feull, + 0x3ff5390948f40febull, + 0x3ff52aff56a8054bull, + 0x3ff51d07eae2f815ull, + 0x3ff50f22e111c4c5ull, + 0x3ff5015015015015ull, + 0x3ff4f38f62dd4c9bull, + 0x3ff4e5e0a72f0539ull, + 0x3ff4d843bedc2c4cull, + 0x3ff4cab88725af6eull, + 0x3ff4bd3edda68fe1ull, + 0x3ff4afd6a052bf5bull, + 0x3ff4a27fad76014aull, + 0x3ff49539e3b2d067ull, + 0x3ff4880522014880ull, + 0x3ff47ae147ae147bull, + 0x3ff46dce34596066ull, + 0x3ff460cbc7f5cf9aull, + 0x3ff453d9e2c776caull, + 0x3ff446f86562d9fbull, + 0x3ff43a2730abee4dull, + 0x3ff42d6625d51f87ull, + 0x3ff420b5265e5951ull, + 0x3ff4141414141414ull, + 0x3ff40782d10e6566ull, + 0x3ff3fb013fb013fbull, + 0x3ff3ee8f42a5af07ull, + 0x3ff3e22cbce4a902ull, + 0x3ff3d5d991aa75c6ull, + 0x3ff3c995a47babe7ull, + 0x3ff3bd60d9232955ull, + 0x3ff3b13b13b13b14ull, + 0x3ff3a524387ac822ull, + 0x3ff3991c2c187f63ull, + 0x3ff38d22d366088eull, + 0x3ff3813813813814ull, + 0x3ff3755bd1c945eeull, + 0x3ff3698df3de0748ull, + 0x3ff35dce5f9f2af8ull, + 0x3ff3521cfb2b78c1ull, + 0x3ff34679ace01346ull, + 0x3ff33ae45b57bcb2ull, + 0x3ff32f5ced6a1dfaull, + 0x3ff323e34a2b10bfull, + 0x3ff3187758e9ebb6ull, + 0x3ff30d190130d190ull, + 0x3ff301c82ac40260ull, + 0x3ff2f684bda12f68ull, + 0x3ff2eb4ea1fed14bull, + 0x3ff2e025c04b8097ull, + 0x3ff2d50a012d50a0ull, + 0x3ff2c9fb4d812ca0ull, + 0x3ff2bef98e5a3711ull, + 0x3ff2b404ad012b40ull, + 0x3ff2a91c92f3c105ull, + 0x3ff29e4129e4129eull, + 0x3ff293725bb804a5ull, + 0x3ff288b01288b013ull, + 0x3ff27dfa38a1ce4dull, + 0x3ff27350b8812735ull, + 0x3ff268b37cd60127ull, + 0x3ff25e22708092f1ull, + 0x3ff2539d7e9177b2ull, + 0x3ff2492492492492ull, + 0x3ff23eb79717605bull, + 0x3ff23456789abcdfull, + 0x3ff22a0122a0122aull, + 0x3ff21fb78121fb78ull, + 0x3ff21579804855e6ull, + 0x3ff20b470c67c0d9ull, + 0x3ff2012012012012ull, + 0x3ff1f7047dc11f70ull, + 0x3ff1ecf43c7fb84cull, + 0x3ff1e2ef3b3fb874ull, + 0x3ff1d8f5672e4abdull, + 0x3ff1cf06ada2811dull, + 0x3ff1c522fc1ce059ull, + 0x3ff1bb4a4046ed29ull, + 0x3ff1b17c67f2bae3ull, + 0x3ff1a7b9611a7b96ull, + 0x3ff19e0119e0119eull, + 0x3ff19453808ca29cull, + 0x3ff18ab083902bdbull, + 0x3ff1811811811812ull, + 0x3ff1778a191bd684ull, + 0x3ff16e0689427379ull, + 0x3ff1648d50fc3201ull, + 0x3ff15b1e5f75270dull, + 0x3ff151b9a3fdd5c9ull, + 0x3ff1485f0e0acd3bull, + 0x3ff13f0e8d344724ull, + 0x3ff135c81135c811ull, + 0x3ff12c8b89edc0acull, + 0x3ff12358e75d3033ull, + 0x3ff11a3019a74826ull, + 0x3ff1111111111111ull, + 0x3ff107fbbe011080ull, + 0x3ff0fef010fef011ull, + 0x3ff0f5edfab325a2ull, + 0x3ff0ecf56be69c90ull, + 0x3ff0e40655826011ull, + 0x3ff0db20a88f4696ull, + 0x3ff0d24456359e3aull, + 0x3ff0c9714fbcda3bull, + 0x3ff0c0a7868b4171ull, + 0x3ff0b7e6ec259dc8ull, + 0x3ff0af2f722eecb5ull, + 0x3ff0a6810a6810a7ull, + 0x3ff09ddba6af8360ull, + 0x3ff0953f39010954ull, + 0x3ff08cabb37565e2ull, + 0x3ff0842108421084ull, + 0x3ff07b9f29b8eae2ull, + 0x3ff073260a47f7c6ull, + 0x3ff06ab59c7912fbull, + 0x3ff0624dd2f1a9fcull, + 0x3ff059eea0727586ull, + 0x3ff05197f7d73404ull, + 0x3ff04949cc1664c5ull, + 0x3ff0410410410410ull, + 0x3ff038c6b78247fcull, + 0x3ff03091b51f5e1aull, + 0x3ff02864fc7729e9ull, + 0x3ff0204081020408ull, + 0x3ff0182436517a37ull, + 0x3ff0101010101010ull, + 0x3ff0080402010080ull, + 0x3ff0000000000000ull, + 0x0000000000000000ull, +}; + diff --git a/sdk/lib/crt/math/libm_sse2/two_to_jby64_head_tail_table.asm b/sdk/lib/crt/math/libm_sse2/two_to_jby64_head_tail_table.asm deleted file mode 100644 index 7b95c6e91b8..00000000000 --- a/sdk/lib/crt/math/libm_sse2/two_to_jby64_head_tail_table.asm +++ /dev/null @@ -1,165 +0,0 @@ -;; -; -; MIT License -; ----------- -; -; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. -; -; Permission is hereby granted, free of charge, to any person obtaining a copy -; of this Software and associated documentaon 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. -; -;; Defines __two_to_jby64_head_table and __two_to_jby64_tail_table tables -;; Used in exp and pow -;; - -.const - -ALIGN 16 -PUBLIC __two_to_jby64_head_table -__two_to_jby64_head_table DQ 3ff0000000000000h - DQ 3ff02c9a30000000h - DQ 3ff059b0d0000000h - DQ 3ff0874510000000h - DQ 3ff0b55860000000h - DQ 3ff0e3ec30000000h - DQ 3ff11301d0000000h - DQ 3ff1429aa0000000h - DQ 3ff172b830000000h - DQ 3ff1a35be0000000h - DQ 3ff1d48730000000h - DQ 3ff2063b80000000h - DQ 3ff2387a60000000h - DQ 3ff26b4560000000h - DQ 3ff29e9df0000000h - DQ 3ff2d285a0000000h - DQ 3ff306fe00000000h - DQ 3ff33c08b0000000h - DQ 3ff371a730000000h - DQ 3ff3a7db30000000h - DQ 3ff3dea640000000h - DQ 3ff4160a20000000h - DQ 3ff44e0860000000h - DQ 3ff486a2b0000000h - DQ 3ff4bfdad0000000h - DQ 3ff4f9b270000000h - DQ 3ff5342b50000000h - DQ 3ff56f4730000000h - DQ 3ff5ab07d0000000h - DQ 3ff5e76f10000000h - DQ 3ff6247eb0000000h - DQ 3ff6623880000000h - DQ 3ff6a09e60000000h - DQ 3ff6dfb230000000h - DQ 3ff71f75e0000000h - DQ 3ff75feb50000000h - DQ 3ff7a11470000000h - DQ 3ff7e2f330000000h - DQ 3ff8258990000000h - DQ 3ff868d990000000h - DQ 3ff8ace540000000h - DQ 3ff8f1ae90000000h - DQ 3ff93737b0000000h - DQ 3ff97d8290000000h - DQ 3ff9c49180000000h - DQ 3ffa0c6670000000h - DQ 3ffa5503b0000000h - DQ 3ffa9e6b50000000h - DQ 3ffae89f90000000h - DQ 3ffb33a2b0000000h - DQ 3ffb7f76f0000000h - DQ 3ffbcc1e90000000h - DQ 3ffc199bd0000000h - DQ 3ffc67f120000000h - DQ 3ffcb720d0000000h - DQ 3ffd072d40000000h - DQ 3ffd5818d0000000h - DQ 3ffda9e600000000h - DQ 3ffdfc9730000000h - DQ 3ffe502ee0000000h - DQ 3ffea4afa0000000h - DQ 3ffefa1be0000000h - DQ 3fff507650000000h - DQ 3fffa7c180000000h - -ALIGN 16 -PUBLIC __two_to_jby64_tail_table -__two_to_jby64_tail_table DQ 0000000000000000h - DQ 3e6cef00c1dcdef9h - DQ 3e48ac2ba1d73e2ah - DQ 3e60eb37901186beh - DQ 3e69f3121ec53172h - DQ 3e469e8d10103a17h - DQ 3df25b50a4ebbf1ah - DQ 3e6d525bbf668203h - DQ 3e68faa2f5b9bef9h - DQ 3e66df96ea796d31h - DQ 3e368b9aa7805b80h - DQ 3e60c519ac771dd6h - DQ 3e6ceac470cd83f5h - DQ 3e5789f37495e99ch - DQ 3e547f7b84b09745h - DQ 3e5b900c2d002475h - DQ 3e64636e2a5bd1abh - DQ 3e4320b7fa64e430h - DQ 3e5ceaa72a9c5154h - DQ 3e53967fdba86f24h - DQ 3e682468446b6824h - DQ 3e3f72e29f84325bh - DQ 3e18624b40c4dbd0h - DQ 3e5704f3404f068eh - DQ 3e54d8a89c750e5eh - DQ 3e5a74b29ab4cf62h - DQ 3e5a753e077c2a0fh - DQ 3e5ad49f699bb2c0h - DQ 3e6a90a852b19260h - DQ 3e56b48521ba6f93h - DQ 3e0d2ac258f87d03h - DQ 3e42a91124893ecfh - DQ 3e59fcef32422cbeh - DQ 3e68ca345de441c5h - DQ 3e61d8bee7ba46e1h - DQ 3e59099f22fdba6ah - DQ 3e4f580c36bea881h - DQ 3e5b3d398841740ah - DQ 3e62999c25159f11h - DQ 3e668925d901c83bh - DQ 3e415506dadd3e2ah - DQ 3e622aee6c57304eh - DQ 3e29b8bc9e8a0387h - DQ 3e6fbc9c9f173d24h - DQ 3e451f8480e3e235h - DQ 3e66bbcac96535b5h - DQ 3e41f12ae45a1224h - DQ 3e55e7f6fd0fac90h - DQ 3e62b5a75abd0e69h - DQ 3e609e2bf5ed7fa1h - DQ 3e47daf237553d84h - DQ 3e12f074891ee83dh - DQ 3e6b0aa538444196h - DQ 3e6cafa29694426fh - DQ 3e69df20d22a0797h - DQ 3e640f12f71a1e45h - DQ 3e69f7490e4bb40bh - DQ 3e4ed9942b84600dh - DQ 3e4bdcdaf5cb4656h - DQ 3e5e2cffd89cf44ch - DQ 3e452486cc2c7b9dh - DQ 3e6cc2b44eee3fa4h - DQ 3e66dc8a80ce9f09h - DQ 3e39e90d82e90a7eh -END diff --git a/sdk/lib/crt/math/libm_sse2/two_to_jby64_head_tail_table.c b/sdk/lib/crt/math/libm_sse2/two_to_jby64_head_tail_table.c new file mode 100644 index 00000000000..61f1ba5e0bc --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/two_to_jby64_head_tail_table.c @@ -0,0 +1,167 @@ +/* + * MIT License + * ----------- + * + * Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this Software and associated documentaon 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. + * + ** + ** Defines __two_to_jby64_head_table and __two_to_jby64_tail_table tables + ** Used in exp and pow + ** + */ + +#include <crtdefs.h> + +const unsigned long long _CRT_ALIGN(16) __two_to_jby64_head_table[] = +{ + 0x3ff0000000000000ull, + 0x3ff02c9a30000000ull, + 0x3ff059b0d0000000ull, + 0x3ff0874510000000ull, ... 339 lines suppressed ...

1 year, 9 months

[reactos] 04/15: [LIBM] Fix build

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=9e8ed3f817898cbee3c6e… commit 9e8ed3f817898cbee3c6e753fd74dd0a9ac949a8 Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Sun Jun 12 14:16:22 2022 +0300 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [LIBM] Fix build --- sdk/lib/crt/math/libm_sse2/_chgsign.c | 2 +- sdk/lib/crt/math/libm_sse2/_copysign.c | 2 +- sdk/lib/crt/math/libm_sse2/_finite.c | 2 +- sdk/lib/crt/math/libm_sse2/acos.c | 7 ++-- sdk/lib/crt/math/libm_sse2/acosf.c | 3 +- sdk/lib/crt/math/libm_sse2/asin.c | 6 ++- sdk/lib/crt/math/libm_sse2/asinf.c | 3 +- sdk/lib/crt/math/libm_sse2/atan.c | 4 +- sdk/lib/crt/math/libm_sse2/atan2.c | 4 +- sdk/lib/crt/math/libm_sse2/atan2f.c | 4 +- sdk/lib/crt/math/libm_sse2/atanf.c | 4 +- sdk/lib/crt/math/libm_sse2/ceil.c | 4 +- sdk/lib/crt/math/libm_sse2/cosh.c | 8 ++-- sdk/lib/crt/math/libm_sse2/coshf.c | 6 ++- sdk/lib/crt/math/libm_sse2/exp2.c | 4 +- sdk/lib/crt/math/libm_sse2/floor.c | 4 +- sdk/lib/crt/math/libm_sse2/fma3_available.c | 12 +++--- sdk/lib/crt/math/libm_sse2/hypot.c | 7 +++- sdk/lib/crt/math/libm_sse2/hypotf.c | 2 +- sdk/lib/crt/math/libm_sse2/libm_inlines.h | 58 +++++++++++++-------------- sdk/lib/crt/math/libm_sse2/libm_util.h | 18 +++------ sdk/lib/crt/math/libm_sse2/logb.c | 4 +- sdk/lib/crt/math/libm_sse2/modf.c | 4 +- sdk/lib/crt/math/libm_sse2/remainder.c | 12 +++--- sdk/lib/crt/math/libm_sse2/remainder_piby2.c | 10 ++--- sdk/lib/crt/math/libm_sse2/remainder_piby2f.c | 10 ++--- sdk/lib/crt/math/libm_sse2/remainderf.c | 6 +-- sdk/lib/crt/math/libm_sse2/simd.h | 6 +-- sdk/lib/crt/math/libm_sse2/sinh.c | 6 ++- sdk/lib/crt/math/libm_sse2/sinhf.c | 5 ++- sdk/lib/crt/math/libm_sse2/sqrt.c | 2 +- sdk/lib/crt/math/libm_sse2/tan.c | 8 ++-- sdk/lib/crt/math/libm_sse2/tanf.c | 6 ++- sdk/lib/crt/math/libm_sse2/tanh.c | 6 ++- sdk/lib/crt/math/libm_sse2/tanhf.c | 2 + 35 files changed, 139 insertions(+), 112 deletions(-) diff --git a/sdk/lib/crt/math/libm_sse2/_chgsign.c b/sdk/lib/crt/math/libm_sse2/_chgsign.c index f22ce58a743..4ecafd8ba8f 100644 --- a/sdk/lib/crt/math/libm_sse2/_chgsign.c +++ b/sdk/lib/crt/math/libm_sse2/_chgsign.c @@ -32,7 +32,7 @@ double FN_PROTOTYPE(_chgsign)(double x) /* Returns x with its sign reversed. NaNs are not considered special; their sign bits are handled the same as for any other number */ - unsigned long u; + unsigned long long u; GET_BITS_DP64(x, u); u ^= SIGNBIT_DP64; PUT_BITS_DP64(u, x); diff --git a/sdk/lib/crt/math/libm_sse2/_copysign.c b/sdk/lib/crt/math/libm_sse2/_copysign.c index c3944276567..b8c9aeabf0e 100644 --- a/sdk/lib/crt/math/libm_sse2/_copysign.c +++ b/sdk/lib/crt/math/libm_sse2/_copysign.c @@ -34,7 +34,7 @@ THE SOFTWARE. double FN_PROTOTYPE(_copysign)(double x, double y) { - unsigned long ux, uy; + unsigned long long ux, uy; GET_BITS_DP64(x, ux); GET_BITS_DP64(y, uy); if ((ux ^ uy) & SIGNBIT_DP64) diff --git a/sdk/lib/crt/math/libm_sse2/_finite.c b/sdk/lib/crt/math/libm_sse2/_finite.c index c3ca86f4b05..243ab12ae4e 100644 --- a/sdk/lib/crt/math/libm_sse2/_finite.c +++ b/sdk/lib/crt/math/libm_sse2/_finite.c @@ -33,7 +33,7 @@ int FN_PROTOTYPE(_finite)(double x) { - unsigned long ux; + unsigned long long ux; GET_BITS_DP64(x, ux); return (int)(((ux & ~SIGNBIT_DP64) - PINFBITPATT_DP64) >> 63); } diff --git a/sdk/lib/crt/math/libm_sse2/acos.c b/sdk/lib/crt/math/libm_sse2/acos.c index cb46803e536..2e5a5f55033 100644 --- a/sdk/lib/crt/math/libm_sse2/acos.c +++ b/sdk/lib/crt/math/libm_sse2/acos.c @@ -37,8 +37,9 @@ THE SOFTWARE. #include "libm_errno.h" - +#ifdef _MSC_VER #pragma function(acos) +#endif double FN_PROTOTYPE(acos)(double x) { @@ -69,7 +70,7 @@ double FN_PROTOTYPE(acos)(double x) double u, y, s=0.0, r; int xexp, xnan, transform=0; - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; GET_BITS_DP64(x, ux); aux = ux & ~SIGNBIT_DP64; xneg = (ux & SIGNBIT_DP64); @@ -133,7 +134,7 @@ double FN_PROTOTYPE(acos)(double x) else { double c, s1; - unsigned long us; + unsigned long long us; GET_BITS_DP64(s, us); PUT_BITS_DP64(0xffffffff00000000 & us, s1); c = (r-s1*s1)/(s+s1); diff --git a/sdk/lib/crt/math/libm_sse2/acosf.c b/sdk/lib/crt/math/libm_sse2/acosf.c index 5422177b317..f39f5f74ab3 100644 --- a/sdk/lib/crt/math/libm_sse2/acosf.c +++ b/sdk/lib/crt/math/libm_sse2/acosf.c @@ -37,11 +37,12 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(acosf) - +#endif float FN_PROTOTYPE(acosf)(float x) { diff --git a/sdk/lib/crt/math/libm_sse2/asin.c b/sdk/lib/crt/math/libm_sse2/asin.c index 31e652b73c6..d80448ec777 100644 --- a/sdk/lib/crt/math/libm_sse2/asin.c +++ b/sdk/lib/crt/math/libm_sse2/asin.c @@ -37,7 +37,9 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER #pragma function(asin) +#endif double FN_PROTOTYPE(asin)(double x) { @@ -65,7 +67,7 @@ double FN_PROTOTYPE(asin)(double x) double u, v, y, s=0.0, r; int xexp, xnan, transform=0; - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; GET_BITS_DP64(x, ux); aux = ux & ~SIGNBIT_DP64; xneg = (ux & SIGNBIT_DP64); @@ -127,7 +129,7 @@ double FN_PROTOTYPE(asin)(double x) { /* Reconstruct asin carefully in transformed region */ { double c, s1, p, q; - unsigned long us; + unsigned long long us; GET_BITS_DP64(s, us); PUT_BITS_DP64(0xffffffff00000000 & us, s1); c = (r-s1*s1)/(s+s1); diff --git a/sdk/lib/crt/math/libm_sse2/asinf.c b/sdk/lib/crt/math/libm_sse2/asinf.c index 89dba1059ff..2dc16bc3984 100644 --- a/sdk/lib/crt/math/libm_sse2/asinf.c +++ b/sdk/lib/crt/math/libm_sse2/asinf.c @@ -37,11 +37,12 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(asinf) - +#endif float FN_PROTOTYPE(asinf)(float x) { diff --git a/sdk/lib/crt/math/libm_sse2/atan.c b/sdk/lib/crt/math/libm_sse2/atan.c index c28e0672779..f6c4e38dfc6 100644 --- a/sdk/lib/crt/math/libm_sse2/atan.c +++ b/sdk/lib/crt/math/libm_sse2/atan.c @@ -37,7 +37,9 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER #pragma function(atan) +#endif double FN_PROTOTYPE(atan)(double x) { @@ -49,7 +51,7 @@ double FN_PROTOTYPE(atan)(double x) /* Find properties of argument x. */ - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; GET_BITS_DP64(x, ux); aux = ux & ~SIGNBIT_DP64; xneg = (ux != aux); diff --git a/sdk/lib/crt/math/libm_sse2/atan2.c b/sdk/lib/crt/math/libm_sse2/atan2.c index fb9d1e8482f..71db395cf31 100644 --- a/sdk/lib/crt/math/libm_sse2/atan2.c +++ b/sdk/lib/crt/math/libm_sse2/atan2.c @@ -45,7 +45,9 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER #pragma function(atan2) +#endif double FN_PROTOTYPE(atan2)(double y, double x) { @@ -558,7 +560,7 @@ double FN_PROTOTYPE(atan2)(double y, double x) /* Find properties of arguments x and y. */ - unsigned long ux, ui, aux, xneg, uy, auy, yneg; + unsigned long long ux, ui, aux, xneg, uy, auy, yneg; GET_BITS_DP64(x, ux); GET_BITS_DP64(y, uy); diff --git a/sdk/lib/crt/math/libm_sse2/atan2f.c b/sdk/lib/crt/math/libm_sse2/atan2f.c index 42d54cda2d5..1426c19e8a1 100644 --- a/sdk/lib/crt/math/libm_sse2/atan2f.c +++ b/sdk/lib/crt/math/libm_sse2/atan2f.c @@ -41,10 +41,12 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(atan2f) +#endif float FN_PROTOTYPE(atan2f)(float fy, float fx) { @@ -310,7 +312,7 @@ float FN_PROTOTYPE(atan2f)(float fy, float fx) /* Find properties of arguments x and y. */ - unsigned long ux, aux, xneg, uy, auy, yneg; + unsigned long long ux, aux, xneg, uy, auy, yneg; GET_BITS_DP64(x, ux); GET_BITS_DP64(y, uy); diff --git a/sdk/lib/crt/math/libm_sse2/atanf.c b/sdk/lib/crt/math/libm_sse2/atanf.c index 08c4eb7ff43..1baff25d8b8 100644 --- a/sdk/lib/crt/math/libm_sse2/atanf.c +++ b/sdk/lib/crt/math/libm_sse2/atanf.c @@ -37,10 +37,12 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(atanf) +#endif float FN_PROTOTYPE(atanf)(float fx) { @@ -56,7 +58,7 @@ float FN_PROTOTYPE(atanf)(float fx) /* Find properties of argument fx. */ - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; GET_BITS_DP64(x, ux); aux = ux & ~SIGNBIT_DP64; diff --git a/sdk/lib/crt/math/libm_sse2/ceil.c b/sdk/lib/crt/math/libm_sse2/ceil.c index cb0f155e1d8..7a549a8931a 100644 --- a/sdk/lib/crt/math/libm_sse2/ceil.c +++ b/sdk/lib/crt/math/libm_sse2/ceil.c @@ -40,8 +40,8 @@ THE SOFTWARE. double FN_PROTOTYPE(ceil)(double x) { double r; - long rexp, xneg; - unsigned long ux, ax, ur, mask; + long long rexp, xneg; + unsigned long long ux, ax, ur, mask; GET_BITS_DP64(x, ux); ax = ux & (~SIGNBIT_DP64); diff --git a/sdk/lib/crt/math/libm_sse2/cosh.c b/sdk/lib/crt/math/libm_sse2/cosh.c index 9eb06d0c261..69c0051481a 100644 --- a/sdk/lib/crt/math/libm_sse2/cosh.c +++ b/sdk/lib/crt/math/libm_sse2/cosh.c @@ -41,8 +41,10 @@ THE SOFTWARE. #undef USE_VAL_WITH_FLAGS #undef USE_HANDLE_ERROR - +#ifdef _MSC_VER #pragma function(cosh) +#endif + double cosh(double x) { /* @@ -230,10 +232,10 @@ double cosh(double x) 3.64177136406482197344e+06, /* 0x414bc8d5ae99ad14 */ 7.63580561355670914054e+06}; /* 0x415d20d76744835c */ - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; double y, z, z1, z2; int m; - + /* Special cases */ GET_BITS_DP64(x, ux); diff --git a/sdk/lib/crt/math/libm_sse2/coshf.c b/sdk/lib/crt/math/libm_sse2/coshf.c index 6e7ad089c37..ceafca9e6f3 100644 --- a/sdk/lib/crt/math/libm_sse2/coshf.c +++ b/sdk/lib/crt/math/libm_sse2/coshf.c @@ -41,10 +41,12 @@ THE SOFTWARE. #undef USE_VALF_WITH_FLAGS #undef USE_HANDLE_ERRORF +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(coshf) +#endif float coshf(float fx) { @@ -154,7 +156,7 @@ float coshf(float fx) 7.93006726156715250000e+14, /* 0x430689e221bc8d5a */ 2.15561577355759750000e+15}; /* 0x431ea215a1d20d76 */ - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; unsigned int uhx; double x = fx, y, z, z1, z2; int m; @@ -169,6 +171,7 @@ float coshf(float fx) if (LAMBDA_DP64 + x > 1.0) return valf_with_flags((float)1.0, AMD_F_INEXACT); /* with inexact */ } else if (aux >= PINFBITPATT_DP64) /* |x| is NaN or Inf */ + { if (aux > PINFBITPATT_DP64) /* x is NaN */ { GET_BITS_SP32(fx, uhx); @@ -177,6 +180,7 @@ float coshf(float fx) } else /* x is infinity */ return infinityf_with_flags(0); + } xneg = (aux != ux); y = x; diff --git a/sdk/lib/crt/math/libm_sse2/exp2.c b/sdk/lib/crt/math/libm_sse2/exp2.c index 1061b5bc85d..470be6f4bf8 100644 --- a/sdk/lib/crt/math/libm_sse2/exp2.c +++ b/sdk/lib/crt/math/libm_sse2/exp2.c @@ -58,7 +58,7 @@ double FN_PROTOTYPE(_exp2)(double x) double y, z1, z2, z, hx, tx, y1, y2; int m; - unsigned long ux, ax; + unsigned long long ux, ax; /* Computation of exp2(x). @@ -121,7 +121,7 @@ double FN_PROTOTYPE(_exp2)(double x) else { /* Split x into hx (head) and tx (tail). */ - unsigned long u; + unsigned long long u; hx = x; GET_BITS_DP64(hx, u); u &= 0xfffffffff8000000; diff --git a/sdk/lib/crt/math/libm_sse2/floor.c b/sdk/lib/crt/math/libm_sse2/floor.c index cf8e18f8576..e2237a9ede7 100644 --- a/sdk/lib/crt/math/libm_sse2/floor.c +++ b/sdk/lib/crt/math/libm_sse2/floor.c @@ -37,10 +37,10 @@ THE SOFTWARE. double FN_PROTOTYPE(floor)(double x) { double r; - long rexp, xneg; + long long rexp, xneg; - unsigned long ux, ax, ur, mask; + unsigned long long ux, ax, ur, mask; GET_BITS_DP64(x, ux); ax = ux & (~SIGNBIT_DP64); diff --git a/sdk/lib/crt/math/libm_sse2/fma3_available.c b/sdk/lib/crt/math/libm_sse2/fma3_available.c index 123cba72194..24e99837fba 100644 --- a/sdk/lib/crt/math/libm_sse2/fma3_available.c +++ b/sdk/lib/crt/math/libm_sse2/fma3_available.c @@ -26,16 +26,18 @@ THE SOFTWARE. #ifdef TEST_STANDALONE #include <stdio.h> +#ifdef _MSC_VER #pragma section (".CRT$XIC",long,read) -typedef void (__cdecl *_PIFV)(void); +#define _CRTALLOC(x) __declspec(allocate(x)) +#endif /* _MSC_VER */ #else +#include <intrin.h> #include <sect_attribs.h> -#include <windows.h> -#include <cruntime.h> -#include <internal.h> +#undef _CRTALLOC +#define _CRTALLOC(x) #endif -#define _CRTALLOC(x) __declspec(allocate(x)) +typedef int (__cdecl *_PIFV)(void); // FIXME: include process.h? int __fma3_is_available = 0; int __use_fma3_lib = 0; diff --git a/sdk/lib/crt/math/libm_sse2/hypot.c b/sdk/lib/crt/math/libm_sse2/hypot.c index dabaae103a7..a74afefdb06 100644 --- a/sdk/lib/crt/math/libm_sse2/hypot.c +++ b/sdk/lib/crt/math/libm_sse2/hypot.c @@ -39,6 +39,9 @@ THE SOFTWARE. #include "libm_errno.h" +#if (_MSC_VER >= 1920) // VS 2019+ / Compiler version 14.20 +#pragma function(_hypot) +#endif double FN_PROTOTYPE(_hypot)(double x, double y) { @@ -49,10 +52,10 @@ double FN_PROTOTYPE(_hypot)(double x, double y) #ifdef FAST_BUT_GREATER_THAN_ONE_ULP double r, retval; - unsigned long xexp, yexp, ux, uy; + unsigned long long xexp, yexp, ux, uy; #else double u, r, retval, hx, tx, x2, hy, ty, y2, hs, ts; - unsigned long xexp, yexp, ux, uy, ut; + unsigned long long xexp, yexp, ux, uy, ut; #endif int dexp, expadjust; diff --git a/sdk/lib/crt/math/libm_sse2/hypotf.c b/sdk/lib/crt/math/libm_sse2/hypotf.c index 72864564bf7..6f1ddc161e4 100644 --- a/sdk/lib/crt/math/libm_sse2/hypotf.c +++ b/sdk/lib/crt/math/libm_sse2/hypotf.c @@ -55,7 +55,7 @@ float FN_PROTOTYPE(_hypotf)(float x, float y) const double large = 3.40282346638528859812e+38; /* 0x47efffffe0000000 */ - unsigned long ux, uy, avx, avy; + unsigned long long ux, uy, avx, avy; GET_BITS_DP64(x, avx); avx &= ~SIGNBIT_DP64; diff --git a/sdk/lib/crt/math/libm_sse2/libm_inlines.h b/sdk/lib/crt/math/libm_sse2/libm_inlines.h index 5937701be6f..f7b9cc5daeb 100644 --- a/sdk/lib/crt/math/libm_sse2/libm_inlines.h +++ b/sdk/lib/crt/math/libm_sse2/libm_inlines.h @@ -46,7 +46,7 @@ are not checked */ static inline void splitDouble(double x, int *e, double *m) { - unsigned long ux, uy; + unsigned long long ux, uy; GET_BITS_DP64(x, ux); uy = ux; ux &= EXPBITS_DP64; @@ -66,7 +66,7 @@ static inline void splitDouble(double x, int *e, double *m) assumption, e will be even on exit. */ static inline void splitDouble_2(double x, int *e, double *m) { - unsigned long ux, vx; + unsigned long long ux, vx; GET_BITS_DP64(x, ux); vx = ux; ux &= EXPBITS_DP64; @@ -117,7 +117,7 @@ static inline double scaleDouble_1(double x, int n) { double t; /* Construct the number t = 2.0**n */ - PUT_BITS_DP64(((long)n + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t); + PUT_BITS_DP64(((long long)n + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t); return x*t; } #endif /* USE_SCALEDOUBLE_1 */ @@ -133,8 +133,8 @@ static inline double scaleDouble_2(double x, int n) n1 = n / 2; n2 = n - n1; /* Construct the numbers t1 = 2.0**n1 and t2 = 2.0**n2 */ - PUT_BITS_DP64(((long)n1 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t1); - PUT_BITS_DP64(((long)n2 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t2); + PUT_BITS_DP64(((long long)n1 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t1); + PUT_BITS_DP64(((long long)n2 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t2); return (x*t1)*t2; } #endif /* USE_SCALEDOUBLE_2 */ @@ -151,9 +151,9 @@ static inline double scaleDouble_3(double x, int n) n2 = (n - n1) / 2; n3 = n - n1 - n2; /* Construct the numbers t1 = 2.0**n1, t2 = 2.0**n2 and t3 = 2.0**n3 */ - PUT_BITS_DP64(((long)n1 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t1); - PUT_BITS_DP64(((long)n2 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t2); - PUT_BITS_DP64(((long)n3 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t3); + PUT_BITS_DP64(((long long)n1 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t1); + PUT_BITS_DP64(((long long)n2 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t2); + PUT_BITS_DP64(((long long)n3 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, t3); return ((x*t1)*t2)*t3; } #endif /* USE_SCALEDOUBLE_3 */ @@ -393,7 +393,7 @@ static inline double infinity_with_flags(int flags) { double z; raise_fpsw_flags(flags); - PUT_BITS_DP64((unsigned long)(BIASEDEMAX_DP64 + 1) << EXPSHIFTBITS_DP64, z); + PUT_BITS_DP64((unsigned long long)(BIASEDEMAX_DP64 + 1) << EXPSHIFTBITS_DP64, z); return z; } #endif /* USE_INFINITY_WITH_FLAGS */ @@ -419,7 +419,7 @@ static inline float infinityf_with_flags(int flags) double _handle_error( char *fname, int opcode, - unsigned long value, + unsigned long long value, int type, int flags, int error, @@ -430,7 +430,7 @@ double _handle_error( float _handle_errorf( char *fname, int opcode, - unsigned long value, + unsigned long long value, int type, int flags, int error, @@ -744,9 +744,9 @@ static inline void splitexpf(float x, float logbase, /* Scales up a double (normal or denormal) whose bit pattern is given as ux by 2**1024. There are no checks that the input number is scalable by that amount. */ -static inline void scaleUpDouble1024(unsigned long ux, unsigned long *ur) +static inline void scaleUpDouble1024(unsigned long long ux, unsigned long long *ur) { - unsigned long uy; + unsigned long long uy; double y; if ((ux & EXPBITS_DP64) == 0) @@ -773,17 +773,17 @@ static inline void scaleUpDouble1024(unsigned long ux, unsigned long *ur) #if defined(USE_SCALEDOWNDOUBLE) /* Scales down a double whose bit pattern is given as ux by 2**k. There are no checks that the input number is scalable by that amount. */ -static inline void scaleDownDouble(unsigned long ux, int k, - unsigned long *ur) +static inline void scaleDownDouble(unsigned long long ux, int k, + unsigned long long *ur) { - unsigned long uy, uk, ax, xsign; + unsigned long long uy, uk, ax, xsign; int n, shift; xsign = ux & SIGNBIT_DP64; ax = ux & ~SIGNBIT_DP64; n = (int)((ax & EXPBITS_DP64) >> EXPSHIFTBITS_DP64) - k; if (n > 0) { - uk = (unsigned long)n << EXPSHIFTBITS_DP64; + uk = (unsigned long long)n << EXPSHIFTBITS_DP64; uy = (ax & ~EXPBITS_DP64) | uk; } else @@ -898,7 +898,7 @@ static inline double sqrt_amd_inline(double x) = 2^(e/2) * [ sqrt(c) + sqrt(c)*q ] */ - unsigned long ux, ax, u; + unsigned long long ux, ax, u; double r1, r2, c, y, p, q, r, twop, z, rtc, rtc_lead, rtc_trail; int e, denorm = 0, index; @@ -1213,13 +1213,13 @@ static inline double sqrt_amd_inline(double x) if (denorm) { /* Scale by 2**(e-30) */ - PUT_BITS_DP64(((long)(e - 30) + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, r); + PUT_BITS_DP64(((long long)(e - 30) + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, r); z *= r; } else { /* Scale by 2**e */ - PUT_BITS_DP64(((long)e + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, r); + PUT_BITS_DP64(((long long)e + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, r); z *= r; } @@ -1586,7 +1586,7 @@ static const float rt_jby32_trail_table_float[97] = { #endif /* SQRTF_AMD_INLINE */ #ifdef USE_LOG_KERNEL_AMD -static inline void log_kernel_amd64(double x, unsigned long ux, int *xexp, double *r1, double *r2) +static inline void log_kernel_amd64(double x, unsigned long long ux, int *xexp, double *r1, double *r2) { int expadjust; @@ -1755,7 +1755,7 @@ static inline void log_kernel_amd64(double x, unsigned long ux, int *xexp, doubl cb_2 = 1.24999999978138668903e-02, /* 0x3f89999999865ede */ cb_3 = 2.23219810758559851206e-03; /* 0x3f6249423bd94741 */ - static const unsigned long + static const unsigned long long log_thresh1 = 0x3fee0faa00000000, log_thresh2 = 0x3ff1082c00000000; @@ -1885,7 +1885,7 @@ static inline void log_kernel_amd64(double x, unsigned long ux, int *xexp, doubl #ifdef DEBUGGING_PRINT #include <stdio.h> -char *d2b(long d, int bitsper, int point) +char *d2b(long long d, int bitsper, int point) { static char buff[200]; int i, j; @@ -1915,7 +1915,7 @@ char *d2b(long d, int bitsper, int point) extra precision, and return the result in r. Return value "region" tells how many lots of pi/2 were subtracted from x to put it in the range [-pi/4,pi/4], mod 4. */ -static inline void __remainder_piby2f_inline(unsigned long ux, double *r, int *region) +static inline void __remainder_piby2f_inline(unsigned long long ux, double *r, int *region) { /* This method simulates multi-precision floating-point @@ -1925,13 +1925,13 @@ static inline void __remainder_piby2f_inline(unsigned long ux, double *r, int *r #else #define bitsper 36 #endif - unsigned long res[10]; - unsigned long u, carry, mask, mant, nextbits; + unsigned long long res[10]; + unsigned long long u, carry, mask, mant, nextbits; int first, last, i, rexp, xexp, resexp, ltb, determ, bc; double dx; static const double piby2 = 1.57079632679489655800e+00; /* 0x3ff921fb54442d18 */ - static unsigned long pibits[] = + static unsigned long long pibits[] = { 0LL, 5215LL, 13000023176LL, 11362338026LL, 67174558139LL, @@ -1943,7 +1943,7 @@ static inline void __remainder_piby2f_inline(unsigned long ux, double *r, int *r ux = ((ux & MANTBITS_DP64) | IMPBIT_DP64) >> 29; - /* Now ux is the mantissa bit pattern of x as a long integer */ + /* Now ux is the mantissa bit pattern of x as a long long integer */ mask = 1; mask = (mask << bitsper) - 1; @@ -2073,7 +2073,7 @@ static inline void __remainder_piby2f_inline(unsigned long ux, double *r, int *r #endif /* Put the result exponent rexp onto the mantissa pattern */ - u = ((unsigned long)rexp + EXPBIAS_DP64) << EXPSHIFTBITS_DP64; + u = ((unsigned long long)rexp + EXPBIAS_DP64) << EXPSHIFTBITS_DP64; ux = (mant & MANTBITS_DP64) | u; if (determ) /* If we negated the mantissa we negate x too */ diff --git a/sdk/lib/crt/math/libm_sse2/libm_util.h b/sdk/lib/crt/math/libm_sse2/libm_util.h index e62d32d155f..0dde14a3637 100644 --- a/sdk/lib/crt/math/libm_sse2/libm_util.h +++ b/sdk/lib/crt/math/libm_sse2/libm_util.h @@ -27,17 +27,9 @@ #define LIBM_UTIL_AMD_H_INCLUDED 1 #define inline __inline -#undef long -#define long __int64 -#include "emmintrin.h" -#include "float.h" - - - -/* Compile-time verification that type long is the same size - as type double (i.e. we are really on a 64-bit machine) */ -void check_long_against_double_size(int machine_is_64_bit[(sizeof(long) == sizeof(double))?1:-1]); +#include <emmintrin.h> +#include <float.h> /* Definitions for double functions on 64 bit machines */ @@ -98,7 +90,7 @@ void check_long_against_double_size(int machine_is_64_bit[(sizeof(long) == sizeo #define CLASS_POSITIVE_INFINITY 10 #define OLD_BITS_SP32(x) (*((unsigned int *)&x)) -#define OLD_BITS_DP64(x) (*((unsigned long *)&x)) +#define OLD_BITS_DP64(x) (*((unsigned long long *)&x)) /* Alternatives to the above functions which don't have problems when using high optimization levels on gcc */ @@ -117,13 +109,13 @@ void check_long_against_double_size(int machine_is_64_bit[(sizeof(long) == sizeo #define GET_BITS_DP64(x, ux) \ { \ - volatile union {double d; unsigned long i;} _bitsy; \ + volatile union {double d; unsigned long long i;} _bitsy; \ _bitsy.d = (x); \ ux = _bitsy.i; \ } #define PUT_BITS_DP64(ux, x) \ { \ - volatile union {double d; unsigned long i;} _bitsy; \ + volatile union {double d; unsigned long long i;} _bitsy; \ _bitsy.i = (ux); \ x = _bitsy.d; \ } diff --git a/sdk/lib/crt/math/libm_sse2/logb.c b/sdk/lib/crt/math/libm_sse2/logb.c index f8680e43d08..3fc70e9be5b 100644 --- a/sdk/lib/crt/math/libm_sse2/logb.c +++ b/sdk/lib/crt/math/libm_sse2/logb.c @@ -38,8 +38,8 @@ THE SOFTWARE. double _logb(double x) { - unsigned long ux; - long u; + unsigned long long ux; + long long u; GET_BITS_DP64(x, ux); u = ((ux & EXPBITS_DP64) >> EXPSHIFTBITS_DP64) - EXPBIAS_DP64; if ((ux & ~SIGNBIT_DP64) == 0) diff --git a/sdk/lib/crt/math/libm_sse2/modf.c b/sdk/lib/crt/math/libm_sse2/modf.c index 0b0900cf66e..2583b9bc1ba 100644 --- a/sdk/lib/crt/math/libm_sse2/modf.c +++ b/sdk/lib/crt/math/libm_sse2/modf.c @@ -33,8 +33,8 @@ double modf(double x, double *iptr) each with the same sign as x. */ - long xexp; - unsigned long ux, ax, mask; + long long xexp; + unsigned long long ux, ax, mask; GET_BITS_DP64(x, ux); ax = ux & (~SIGNBIT_DP64); diff --git a/sdk/lib/crt/math/libm_sse2/remainder.c b/sdk/lib/crt/math/libm_sse2/remainder.c index 67a4d0a24d4..8de74d7f476 100644 --- a/sdk/lib/crt/math/libm_sse2/remainder.c +++ b/sdk/lib/crt/math/libm_sse2/remainder.c @@ -52,7 +52,7 @@ static inline void dekker_mul12(double x, double y, { double hx, tx, hy, ty; /* Split x into hx (head) and tx (tail). Do the same for y. */ - unsigned long u; + unsigned long long u; GET_BITS_DP64(x, u); u &= 0xfffffffff8000000; PUT_BITS_DP64(u, hx); @@ -79,7 +79,7 @@ double remainder(double x, double y) { double dx, dy, scale, w, t, v, c, cc; int i, ntimes, xexp, yexp; - unsigned long u, ux, uy, ax, ay, todd; + unsigned long long u, ux, uy, ax, ay, todd; unsigned int sw; dx = x; @@ -227,7 +227,7 @@ double remainder(double x, double y) w = scaleDouble_3(dy, ntimes * 52); /* Set scale = 2^(-52) */ - PUT_BITS_DP64((unsigned long)(-52 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, + PUT_BITS_DP64((unsigned long long)(-52 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, scale); } @@ -252,7 +252,7 @@ double remainder(double x, double y) it loses the last (106th) bit of its quad precision result. */ /* Set dx = dx - w * t, where t is equal to trunc(dx/w). */ - t = (double)(long)(dx / w); + t = (double)(long long)(dx / w); /* At this point, t may be one too large due to rounding of dx/w */ @@ -277,8 +277,8 @@ double remainder(double x, double y) /* One more time */ /* Variable todd says whether the integer t is odd or not */ - t = (double)(long)(dx / w); - todd = ((long)(dx / w)) & 1; + t = (double)(long long)(dx / w); + todd = ((long long)(dx / w)) & 1; dekker_mul12(w, t, &c, &cc); v = dx - c; dx = v + (((dx - v) - c) - cc); diff --git a/sdk/lib/crt/math/libm_sse2/remainder_piby2.c b/sdk/lib/crt/math/libm_sse2/remainder_piby2.c index 412bcb26df6..13fdd3186d7 100644 --- a/sdk/lib/crt/math/libm_sse2/remainder_piby2.c +++ b/sdk/lib/crt/math/libm_sse2/remainder_piby2.c @@ -42,11 +42,11 @@ void __remainder_piby2(double x, double *r, double *rr, int *region) piby2_part2 = 1.58932547122958567343e-08, /* 0x3e5110b460000000 */ piby2_part3 = 6.12323399573676480327e-17; /* 0x3c91a62633145c06 */ const int bitsper = 10; - unsigned long res[500]; - unsigned long ux, u, carry, mask, mant, highbitsrr; + unsigned long long res[500]; + unsigned long long ux, u, carry, mask, mant, highbitsrr; int first, last, i, rexp, xexp, resexp, ltb, determ; double xx, t; - static unsigned long pibits[] = + static unsigned long long pibits[] = { 0, 0, 0, 0, 0, 0, 162, 998, 54, 915, 580, 84, 671, 777, 855, 839, @@ -204,7 +204,7 @@ void __remainder_piby2(double x, double *r, double *rr, int *region) /* Put the result exponent rexp onto the mantissa pattern */ - u = ((unsigned long)rexp + EXPBIAS_DP64) << EXPSHIFTBITS_DP64; + u = ((unsigned long long)rexp + EXPBIAS_DP64) << EXPSHIFTBITS_DP64; ux = (mant & MANTBITS_DP64) | u; if (determ) /* If we negated the mantissa we negate x too */ @@ -213,7 +213,7 @@ void __remainder_piby2(double x, double *r, double *rr, int *region) /* Create the bit pattern for rr */ highbitsrr >>= 12; /* Note this is shifted one place too far */ - u = ((unsigned long)rexp + EXPBIAS_DP64 - 53) << EXPSHIFTBITS_DP64; + u = ((unsigned long long)rexp + EXPBIAS_DP64 - 53) << EXPSHIFTBITS_DP64; PUT_BITS_DP64(u, t); u |= highbitsrr; PUT_BITS_DP64(u, xx); diff --git a/sdk/lib/crt/math/libm_sse2/remainder_piby2f.c b/sdk/lib/crt/math/libm_sse2/remainder_piby2f.c index 71e97e8b1f5..a7a721e2609 100644 --- a/sdk/lib/crt/math/libm_sse2/remainder_piby2f.c +++ b/sdk/lib/crt/math/libm_sse2/remainder_piby2f.c @@ -32,20 +32,20 @@ THE SOFTWARE. extra precision, and return the result in r. Return value "region" tells how many lots of pi/2 were subtracted from x to put it in the range [-pi/4,pi/4], mod 4. */ -void __remainder_piby2f(unsigned long ux, double *r, int *region) +void __remainder_piby2f(unsigned long long ux, double *r, int *region) { /* This method simulates multi-precision floating-point arithmetic and is accurate for all 1 <= x < infinity */ #define bitsper 36 - unsigned long res[10]; - unsigned long u, carry, mask, mant, nextbits; + unsigned long long res[10]; + unsigned long long u, carry, mask, mant, nextbits; int first, last, i, rexp, xexp, resexp, ltb, determ, bc; double dx; static const double piby2 = 1.57079632679489655800e+00; /* 0x3ff921fb54442d18 */ - static unsigned long pibits[] = + static unsigned long long pibits[] = { 0LL, 5215LL, 13000023176LL, 11362338026LL, 67174558139LL, @@ -156,7 +156,7 @@ void __remainder_piby2f(unsigned long ux, double *r, int *region) /* Put the result exponent rexp onto the mantissa pattern */ - u = ((unsigned long)rexp + EXPBIAS_DP64) << EXPSHIFTBITS_DP64; + u = ((unsigned long long)rexp + EXPBIAS_DP64) << EXPSHIFTBITS_DP64; ux = (mant & MANTBITS_DP64) | u; if (determ) /* If we negated the mantissa we negate x too */ diff --git a/sdk/lib/crt/math/libm_sse2/remainderf.c b/sdk/lib/crt/math/libm_sse2/remainderf.c index 1b389b0d8e4..549fc9439c4 100644 --- a/sdk/lib/crt/math/libm_sse2/remainderf.c +++ b/sdk/lib/crt/math/libm_sse2/remainderf.c @@ -64,7 +64,7 @@ float remainderf(float x, float y) { double dx, dy, scale, w, t; int i, ntimes, xexp, yexp; - unsigned long ux, uy, ax, ay; + unsigned long long ux, uy, ax, ay; unsigned int sw; @@ -190,11 +190,11 @@ float remainderf(float x, float y) ntimes = (xexp - yexp) / 24; /* Set w = y * 2^(24*ntimes) */ - PUT_BITS_DP64((unsigned long)(ntimes * 24 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, + PUT_BITS_DP64((unsigned long long)(ntimes * 24 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, scale); w = scale * dy; /* Set scale = 2^(-24) */ - PUT_BITS_DP64((unsigned long)(-24 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, + PUT_BITS_DP64((unsigned long long)(-24 + EXPBIAS_DP64) << EXPSHIFTBITS_DP64, scale); } diff --git a/sdk/lib/crt/math/libm_sse2/simd.h b/sdk/lib/crt/math/libm_sse2/simd.h index c5f93ff610f..0049bff9084 100644 --- a/sdk/lib/crt/math/libm_sse2/simd.h +++ b/sdk/lib/crt/math/libm_sse2/simd.h @@ -66,7 +66,7 @@ typedef UINT_PTR AWORD; // x86-64 safe typedef union { float f; - unsigned long l; + unsigned long long l; } LFLOAT; //typedef struct @@ -78,7 +78,7 @@ typedef unsigned _int64 QWORD; typedef union { double f; - unsigned long l[2]; + unsigned long long l[2]; } LDOUBLE; typedef __declspec(align(16)) struct @@ -313,7 +313,7 @@ typedef struct { unsigned char opcode; unsigned char rmbyte; union { - unsigned long offset; // this will need work for x86-64 + unsigned long long offset; // this will need work for x86-64 unsigned char imm8; } data; diff --git a/sdk/lib/crt/math/libm_sse2/sinh.c b/sdk/lib/crt/math/libm_sse2/sinh.c index 5b628dfbc19..f01b10c4ab7 100644 --- a/sdk/lib/crt/math/libm_sse2/sinh.c +++ b/sdk/lib/crt/math/libm_sse2/sinh.c @@ -43,8 +43,10 @@ THE SOFTWARE. #include "libm_errno.h" - +#ifdef _MSC_VER #pragma function(sinh) +#endif + double sinh(double x) { /* @@ -229,7 +231,7 @@ double sinh(double x) 3.64177136406482197344e+06, /* 0x414bc8d5ae99ad14 */ 7.63580561355670914054e+06}; /* 0x415d20d76744835c */ - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; double y, z, z1, z2; int m; diff --git a/sdk/lib/crt/math/libm_sse2/sinhf.c b/sdk/lib/crt/math/libm_sse2/sinhf.c index ea6f6761d8f..746aafe6339 100644 --- a/sdk/lib/crt/math/libm_sse2/sinhf.c +++ b/sdk/lib/crt/math/libm_sse2/sinhf.c @@ -41,11 +41,12 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(sinhf) - +#endif float sinhf(float fx) { @@ -153,7 +154,7 @@ float sinhf(float fx) 7.93006726156715250000e+14, /* 0x430689e221bc8d5a */ 2.15561577355759750000e+15}; /* 0x431ea215a1d20d76 */ - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; double x = fx, y, z, z1, z2; int m; diff --git a/sdk/lib/crt/math/libm_sse2/sqrt.c b/sdk/lib/crt/math/libm_sse2/sqrt.c index ddadadaedc8..d2bd8963e46 100644 --- a/sdk/lib/crt/math/libm_sse2/sqrt.c +++ b/sdk/lib/crt/math/libm_sse2/sqrt.c @@ -49,7 +49,7 @@ double sqrt(double x) return sqrt_amd_inline(x); #else double r; - unsigned long ux; + unsigned long long ux; GET_BITS_DP64(x, ux); /* Check for special cases for Microsoft error handling */ diff --git a/sdk/lib/crt/math/libm_sse2/tan.c b/sdk/lib/crt/math/libm_sse2/tan.c index 0a86a2ef606..fdf1834d910 100644 --- a/sdk/lib/crt/math/libm_sse2/tan.c +++ b/sdk/lib/crt/math/libm_sse2/tan.c @@ -98,7 +98,7 @@ static inline double tan_piby4(double x, double xx, int recip) { /* Compute -1.0/(t1 + t2) accurately */ double trec, trec_top, z1, z2, t; - unsigned long u; + unsigned long long u; t = t1 + t2; GET_BITS_DP64(t, u); u &= 0xffffffff00000000; @@ -115,14 +115,16 @@ static inline double tan_piby4(double x, double xx, int recip) return t1 + t2; } +#ifdef _MSC_VER #pragma function(tan) +#endif double tan(double x) { double r, rr; int region, xneg; - unsigned long ux, ax; + unsigned long long ux, ax; GET_BITS_DP64(x, ux); ax = (ux & ~SIGNBIT_DP64); if (ax <= 0x3fe921fb54442d18) /* abs(x) <= pi/4 */ @@ -183,7 +185,7 @@ double tan(double x) piby2_3tail = 8.47842766036889956997e-32; /* 0x397b839a252049c1 */ double t, rhead, rtail; int npi2; - unsigned long uy, xexp, expdiff; + unsigned long long uy, xexp, expdiff; xexp = ax >> EXPSHIFTBITS_DP64; /* How many pi/2 is x a multiple of? */ if (ax <= 0x400f6a7a2955385e) /* 5pi/4 */ diff --git a/sdk/lib/crt/math/libm_sse2/tanf.c b/sdk/lib/crt/math/libm_sse2/tanf.c index 8a86a2d2b73..49808d34aff 100644 --- a/sdk/lib/crt/math/libm_sse2/tanf.c +++ b/sdk/lib/crt/math/libm_sse2/tanf.c @@ -39,10 +39,12 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(tanf) +#endif /* tan(x) approximation valid on the interval [-pi/4,pi/4]. If recip is true return -1/tan(x) instead. */ @@ -72,7 +74,7 @@ float tanf(float x) double r, dx; int region, xneg; - unsigned long ux, ax; + unsigned long long ux, ax; dx = x; @@ -135,7 +137,7 @@ float tanf(float x) piby2_3tail = 8.47842766036889956997e-32; /* 0x397b839a252049c1 */ double t, rhead, rtail; int npi2; - unsigned long uy, xexp, expdiff; + unsigned long long uy, xexp, expdiff; xexp = ax >> EXPSHIFTBITS_DP64; /* How many pi/2 is dx a multiple of? */ if (ax <= 0x400f6a7a2955385e) /* 5pi/4 */ diff --git a/sdk/lib/crt/math/libm_sse2/tanh.c b/sdk/lib/crt/math/libm_sse2/tanh.c index 49385275c26..14ddc17869c 100644 --- a/sdk/lib/crt/math/libm_sse2/tanh.c +++ b/sdk/lib/crt/math/libm_sse2/tanh.c @@ -39,8 +39,10 @@ THE SOFTWARE. #include "libm_errno.h" - +#ifdef _MSC_VER #pragma function(tanh) +#endif + double tanh(double x) { /* @@ -57,7 +59,7 @@ double tanh(double x) log2_by_32_tail = 5.68948749532545630390e-11, /* 0x3dcf473de6af278e */ large_threshold = 20.0; /* 0x4034000000000000 */ - unsigned long ux, aux, xneg; + unsigned long long ux, aux, xneg; double y, z, p, z1, z2; int m; diff --git a/sdk/lib/crt/math/libm_sse2/tanhf.c b/sdk/lib/crt/math/libm_sse2/tanhf.c index ab0ddc70a4a..d481019e916 100644 --- a/sdk/lib/crt/math/libm_sse2/tanhf.c +++ b/sdk/lib/crt/math/libm_sse2/tanhf.c @@ -39,10 +39,12 @@ THE SOFTWARE. #include "libm_errno.h" +#ifdef _MSC_VER // Disable "C4163: not available as intrinsic function" warning that older // compilers may issue here. #pragma warning(disable:4163) #pragma function(tanhf) +#endif float tanhf(float x) {

1 year, 9 months

[reactos] 03/15: [LIBM] Import win-libm from AMD

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=4afb647c786414cb5cd5a… commit 4afb647c786414cb5cd5ae2877b60cc0d81f1001 Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Sun Jun 12 12:02:01 2022 +0200 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [LIBM] Import win-libm from AMD Source: https://github.com/amd/win-libm --- sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm | 54 + sdk/lib/crt/math/libm_sse2/Lsincos_array.asm | 62 + sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm | 48 + sdk/lib/crt/math/libm_sse2/_chgsign.c | 41 + sdk/lib/crt/math/libm_sse2/_chgsignf.c | 40 + sdk/lib/crt/math/libm_sse2/_copysign.c | 44 + sdk/lib/crt/math/libm_sse2/_copysignf.c | 42 + sdk/lib/crt/math/libm_sse2/_finite.c | 39 + sdk/lib/crt/math/libm_sse2/_finitef.c | 40 + sdk/lib/crt/math/libm_sse2/acos.c | 145 ++ sdk/lib/crt/math/libm_sse2/acosf.c | 146 ++ sdk/lib/crt/math/libm_sse2/asin.c | 153 ++ sdk/lib/crt/math/libm_sse2/asinf.c | 151 ++ sdk/lib/crt/math/libm_sse2/atan.c | 132 ++ sdk/lib/crt/math/libm_sse2/atan2.c | 750 ++++++ sdk/lib/crt/math/libm_sse2/atan2f.c | 469 ++++ sdk/lib/crt/math/libm_sse2/atanf.c | 135 ++ sdk/lib/crt/math/libm_sse2/cabs.c | 34 + sdk/lib/crt/math/libm_sse2/cabsf.c | 35 + sdk/lib/crt/math/libm_sse2/ceil.c | 88 + sdk/lib/crt/math/libm_sse2/ceilf.c | 86 + sdk/lib/crt/math/libm_sse2/cos.asm | 533 +++++ sdk/lib/crt/math/libm_sse2/cosf.asm | 525 +++++ sdk/lib/crt/math/libm_sse2/cosh.c | 344 +++ sdk/lib/crt/math/libm_sse2/coshf.c | 247 ++ sdk/lib/crt/math/libm_sse2/exp.asm | 439 ++++ sdk/lib/crt/math/libm_sse2/exp2.c | 162 ++ sdk/lib/crt/math/libm_sse2/exp_special.c | 101 + sdk/lib/crt/math/libm_sse2/expf.asm | 303 +++ sdk/lib/crt/math/libm_sse2/floor.c | 85 + sdk/lib/crt/math/libm_sse2/floorf.c | 83 + sdk/lib/crt/math/libm_sse2/fm.inc | 39 + sdk/lib/crt/math/libm_sse2/fma3_available.c | 66 + sdk/lib/crt/math/libm_sse2/fmod.asm | 160 ++ sdk/lib/crt/math/libm_sse2/fmodf.asm | 160 ++ sdk/lib/crt/math/libm_sse2/hypot.c | 198 ++ sdk/lib/crt/math/libm_sse2/hypotf.c | 99 + sdk/lib/crt/math/libm_sse2/libm.h | 49 + sdk/lib/crt/math/libm_sse2/libm_errno.h | 35 + sdk/lib/crt/math/libm_sse2/libm_inlines.h | 2101 +++++++++++++++++ sdk/lib/crt/math/libm_sse2/libm_new.h | 122 + sdk/lib/crt/math/libm_sse2/libm_util.h | 150 ++ sdk/lib/crt/math/libm_sse2/log.asm | 557 +++++ sdk/lib/crt/math/libm_sse2/log10.asm | 565 +++++ .../math/libm_sse2/log10_128_lead_tail_table.asm | 297 +++ .../math/libm_sse2/log10_256_lead_tail_table.asm | 552 +++++ .../crt/math/libm_sse2/log_128_lead_tail_table.asm | 294 +++ .../crt/math/libm_sse2/log_256_lead_tail_table.asm | 554 +++++ .../crt/math/libm_sse2/log_F_inv_dword_table.asm | 164 ++ .../crt/math/libm_sse2/log_F_inv_qword_table.asm | 294 +++ sdk/lib/crt/math/libm_sse2/log_special.c | 133 ++ sdk/lib/crt/math/libm_sse2/logb.c | 84 + sdk/lib/crt/math/libm_sse2/logbf.c | 82 + sdk/lib/crt/math/libm_sse2/logf.asm | 451 ++++ sdk/lib/crt/math/libm_sse2/modf.c | 76 + sdk/lib/crt/math/libm_sse2/modff.c | 70 + sdk/lib/crt/math/libm_sse2/pow.asm | 2411 ++++++++++++++++++++ sdk/lib/crt/math/libm_sse2/pow_special.c | 130 ++ sdk/lib/crt/math/libm_sse2/remainder.c | 319 +++ sdk/lib/crt/math/libm_sse2/remainder_piby2.c | 251 ++ .../crt/math/libm_sse2/remainder_piby2_forAsm.asm | 415 ++++ .../crt/math/libm_sse2/remainder_piby2_forFMA3.asm | 283 +++ sdk/lib/crt/math/libm_sse2/remainder_piby2f.c | 173 ++ .../crt/math/libm_sse2/remainder_piby2f_forAsm.asm | 180 ++ .../crt/math/libm_sse2/remainder_piby2f_forC.asm | 341 +++ sdk/lib/crt/math/libm_sse2/remainderf.c | 247 ++ sdk/lib/crt/math/libm_sse2/simd.h | 369 +++ sdk/lib/crt/math/libm_sse2/sin.asm | 511 +++++ sdk/lib/crt/math/libm_sse2/sincos_special.c | 130 ++ sdk/lib/crt/math/libm_sse2/sinf.asm | 664 ++++++ sdk/lib/crt/math/libm_sse2/sinh.c | 340 +++ sdk/lib/crt/math/libm_sse2/sinhf.c | 256 +++ sdk/lib/crt/math/libm_sse2/sqrt.c | 88 + sdk/lib/crt/math/libm_sse2/sqrtf.c | 91 + sdk/lib/crt/math/libm_sse2/tan.asm | 762 +++++++ sdk/lib/crt/math/libm_sse2/tan.c | 242 ++ sdk/lib/crt/math/libm_sse2/tanf.asm | 551 +++++ sdk/lib/crt/math/libm_sse2/tanf.c | 193 ++ sdk/lib/crt/math/libm_sse2/tanh.c | 137 ++ sdk/lib/crt/math/libm_sse2/tanhf.c | 136 ++ .../libm_sse2/two_to_jby64_head_tail_table.asm | 165 ++ sdk/lib/crt/math/libm_sse2/two_to_jby64_table.asm | 99 + 82 files changed, 22392 insertions(+) diff --git a/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm b/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm new file mode 100644 index 00000000000..b267015fb75 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/L2_by_pi_bits.asm @@ -0,0 +1,54 @@ +; +; MIT License +; ----------- +; +; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. +; +; Permission is hereby granted, free of charge, to any person obtaining a copy +; of this Software and associated documentaon 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. +; +;; +;; Defines __L_2_by_pi_bits array +;; Used in trigonometric argument reduction +;; + +.const + +ALIGN 16 +PUBLIC __L_2_by_pi_bits +__L_2_by_pi_bits DB 224, 241, 27, 193, 12, 88, 33, 116 + DB 53, 126, 196, 126, 237, 175, 169, 75 + DB 74, 41, 222, 231, 28, 244, 236, 197 + DB 151, 175, 31, 235, 158, 212, 181, 168 + DB 127, 121, 154, 253, 24, 61, 221, 38 + DB 44, 159, 60, 251, 217, 180, 125, 180 + DB 41, 104, 45, 70, 188, 188, 63, 96 + DB 22, 120, 255, 95, 226, 127, 236, 160 + DB 228, 247, 46, 126, 17, 114, 210, 231 + DB 76, 13, 230, 88, 71, 230, 4, 249 + DB 125, 209, 154, 192, 113, 166, 19, 18 + DB 237, 186, 212, 215, 8, 162, 251, 156 + DB 166, 196, 114, 172, 119, 248, 115, 72 + DB 70, 39, 168, 187, 36, 25, 128, 75 + DB 55, 9, 233, 184, 145, 220, 134, 21 + DB 239, 122, 175, 142, 69, 249, 7, 65 + DB 14, 241, 100, 86, 138, 109, 3, 119 + DB 211, 212, 71, 95, 157, 240, 167, 84 + DB 16, 57, 185, 13, 230, 139, 2, 0 + DB 0, 0, 0, 0, 0, 0 +END diff --git a/sdk/lib/crt/math/libm_sse2/Lsincos_array.asm b/sdk/lib/crt/math/libm_sse2/Lsincos_array.asm new file mode 100644 index 00000000000..03f32d08e92 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/Lsincos_array.asm @@ -0,0 +1,62 @@ +;; +; +; MIT License +; ----------- +; +; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. +; +; Permission is hereby granted, free of charge, to any person obtaining a copy +; of this Software and associated documentaon 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. +; +;; Defines __Lcosarray and __Lsinarray arrays. +;; Used in sin.asm and cos.asm +;; + +.const + +ALIGN 16 +PUBLIC __Lcosarray +__Lcosarray DQ 03fa5555555555555h ; 0.0416667 c1 + DQ 0 + DQ 0bf56c16c16c16967h ; -0.00138889 c2 + DQ 0 + DQ 03EFA01A019F4EC91h ; 2.48016e-005 c3 + DQ 0 + DQ 0bE927E4FA17F667Bh ; -2.75573e-007 c4 + DQ 0 + DQ 03E21EEB690382EECh ; 2.08761e-009 c5 + DQ 0 + DQ 0bDA907DB47258AA7h ; -1.13826e-011 c6 + DQ 0 + +ALIGN 16 +PUBLIC __Lsinarray +__Lsinarray DQ 0bfc5555555555555h ; -0.166667 s1 + DQ 0 + DQ 03f81111111110bb3h ; 0.00833333 s2 + DQ 0 + DQ 0bf2a01a019e83e5ch ; -0.000198413 s3 + DQ 0 + DQ 03ec71de3796cde01h ; 2.75573e-006 s4 + DQ 0 + DQ 0be5ae600b42fdfa7h ; -2.50511e-008 s5 + DQ 0 + DQ 03de5e0b2f9a43bb8h ; 1.59181e-010 s6 + DQ 0 + +END diff --git a/sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm b/sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm new file mode 100644 index 00000000000..871b9ce8410 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/Lsincosf_array.asm @@ -0,0 +1,48 @@ +;; +; +; MIT License +; ----------- +; +; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. +; +; Permission is hereby granted, free of charge, to any person obtaining a copy +; of this Software and associated documentaon 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. +; +;; Defines __Lcosarray and __Lsinarray arrays. +;; Used in sin.asm and cos.asm +;; These coefficients are actually from Taylor series. +;; + +.const + +ALIGN 16 +PUBLIC __Lcosfarray +__Lcosfarray DQ 0bfe0000000000000h ; -0.5 c0 + DQ 03fa5555555555555h ; 0.0416667 c1 + DQ 0bf56c16c16c16c16h ; -0.00138889 c2 + DQ 03EFA01A01A01A019h ; 2.48016e-005 c3 + DQ 0be927e4fb7789f5ch ; -2.75573e-007 c4 + +ALIGN 16 +PUBLIC __Lsinfarray +__Lsinfarray DQ 0bfc5555555555555h ; -0.166667 s1 + DQ 03f81111111111111h ; 0.00833333 s2 + DQ 0bf2a01a01a01a01ah ; -0.000198413 s3 + DQ 03ec71de3a556c734h ; 2.75573e-006 s4 + +END diff --git a/sdk/lib/crt/math/libm_sse2/_chgsign.c b/sdk/lib/crt/math/libm_sse2/_chgsign.c new file mode 100644 index 00000000000..f22ce58a743 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/_chgsign.c @@ -0,0 +1,41 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +double FN_PROTOTYPE(_chgsign)(double x) +{ + /* Returns x with its sign reversed. + NaNs are not considered special; their sign bits are handled + the same as for any other number */ + unsigned long u; + GET_BITS_DP64(x, u); + u ^= SIGNBIT_DP64; + PUT_BITS_DP64(u, x); + return x; +} + diff --git a/sdk/lib/crt/math/libm_sse2/_chgsignf.c b/sdk/lib/crt/math/libm_sse2/_chgsignf.c new file mode 100644 index 00000000000..1996aa5af96 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/_chgsignf.c @@ -0,0 +1,40 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +float FN_PROTOTYPE(_chgsignf)(float x) +{ + /* Returns x with its sign reversed. + NaNs are not considered special; their sign bits are handled + the same as for any other number */ + unsigned int u; + GET_BITS_SP32(x, u); + u ^= SIGNBIT_SP32; + PUT_BITS_SP32(u, x); + return x; +} diff --git a/sdk/lib/crt/math/libm_sse2/_copysign.c b/sdk/lib/crt/math/libm_sse2/_copysign.c new file mode 100644 index 00000000000..c3944276567 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/_copysign.c @@ -0,0 +1,44 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +/* Returns the absolute value of x with the sign of y. + NaNs are not considered special; their sign bits are handled + the same as for any other number. */ + +double FN_PROTOTYPE(_copysign)(double x, double y) +{ + + unsigned long ux, uy; + GET_BITS_DP64(x, ux); + GET_BITS_DP64(y, uy); + if ((ux ^ uy) & SIGNBIT_DP64) + PUT_BITS_DP64(ux ^ SIGNBIT_DP64, x); + return x; + +} diff --git a/sdk/lib/crt/math/libm_sse2/_copysignf.c b/sdk/lib/crt/math/libm_sse2/_copysignf.c new file mode 100644 index 00000000000..874f00ca0c0 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/_copysignf.c @@ -0,0 +1,42 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + + /* Returns the absolute value of x with the sign of y. + NaNs are not considered special; their sign bits are handled + the same as for any other number. */ + +float FN_PROTOTYPE(_copysignf)(float x, float y) +{ + unsigned int ux, uy; + GET_BITS_SP32(x, ux); + GET_BITS_SP32(y, uy); + if ((ux ^ uy) & SIGNBIT_SP32) + PUT_BITS_SP32(ux ^ SIGNBIT_SP32, x); + return x; +} diff --git a/sdk/lib/crt/math/libm_sse2/_finite.c b/sdk/lib/crt/math/libm_sse2/_finite.c new file mode 100644 index 00000000000..c3ca86f4b05 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/_finite.c @@ -0,0 +1,39 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +/* Returns 0 if x is infinite or NaN, otherwise returns 1 */ + +int FN_PROTOTYPE(_finite)(double x) +{ + + + unsigned long ux; + GET_BITS_DP64(x, ux); + return (int)(((ux & ~SIGNBIT_DP64) - PINFBITPATT_DP64) >> 63); +} diff --git a/sdk/lib/crt/math/libm_sse2/_finitef.c b/sdk/lib/crt/math/libm_sse2/_finitef.c new file mode 100644 index 00000000000..3fbfbc7c2e6 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/_finitef.c @@ -0,0 +1,40 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +/* Returns 0 if x is infinite or NaN, otherwise returns 1 */ + +int FN_PROTOTYPE(_finitef)(float x) +{ + + + unsigned int ux; + GET_BITS_SP32(x, ux); + return (int)(((ux & ~SIGNBIT_SP32) - PINFBITPATT_SP32) >> 31); + +} diff --git a/sdk/lib/crt/math/libm_sse2/acos.c b/sdk/lib/crt/math/libm_sse2/acos.c new file mode 100644 index 00000000000..cb46803e536 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/acos.c @@ -0,0 +1,145 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VAL_WITH_FLAGS +#define USE_NAN_WITH_FLAGS +#define USE_HANDLE_ERROR +#include "libm_inlines.h" +#undef USE_NAN_WITH_FLAGS +#undef USE_VAL_WITH_FLAGS +#undef USE_HANDLE_ERROR + +#include "libm_errno.h" + + +#pragma function(acos) + +double FN_PROTOTYPE(acos)(double x) +{ + /* Computes arccos(x). + The argument is first reduced by noting that arccos(x) + is invalid for abs(x) > 1. For denormal and small + arguments arccos(x) = pi/2 to machine accuracy. + Remaining argument ranges are handled as follows. + For abs(x) <= 0.5 use + arccos(x) = pi/2 - arcsin(x) + = pi/2 - (x + x^3*R(x^2)) + where R(x^2) is a rational minimax approximation to + (arcsin(x) - x)/x^3. + For abs(x) > 0.5 exploit the identity: + arccos(x) = pi - 2*arcsin(sqrt(1-x)/2) + together with the above rational approximation, and + reconstruct the terms carefully. + */ + + /* Some constants and split constants. */ + + static const double + pi = 3.1415926535897933e+00, /* 0x400921fb54442d18 */ + piby2 = 1.5707963267948965580e+00, /* 0x3ff921fb54442d18 */ + piby2_head = 1.5707963267948965580e+00, /* 0x3ff921fb54442d18 */ + piby2_tail = 6.12323399573676603587e-17; /* 0x3c91a62633145c07 */ + + double u, y, s=0.0, r; + int xexp, xnan, transform=0; + + unsigned long ux, aux, xneg; + GET_BITS_DP64(x, ux); + aux = ux & ~SIGNBIT_DP64; + xneg = (ux & SIGNBIT_DP64); + xnan = (aux > PINFBITPATT_DP64); + xexp = (int)((ux & EXPBITS_DP64) >> EXPSHIFTBITS_DP64) - EXPBIAS_DP64; + + /* Special cases */ + + if (xnan) + { + return _handle_error("acos", OP_ACOS, ux|0x0008000000000000, _DOMAIN, + 0, EDOM, x, 0.0, 1); + } + else if (xexp < -56) + { /* y small enough that arccos(x) = pi/2 */ + return val_with_flags(piby2, AMD_F_INEXACT); + } + else if (xexp >= 0) + { /* abs(x) >= 1.0 */ + if (x == 1.0) + return 0.0; + else if (x == -1.0) + return val_with_flags(pi, AMD_F_INEXACT); + else + return _handle_error("acos", OP_ACOS, INDEFBITPATT_DP64, _DOMAIN, + AMD_F_INVALID, EDOM, x, 0.0, 1); + } + + if (xneg) y = -x; + else y = x; + + transform = (xexp >= -1); /* abs(x) >= 0.5 */ + + if (transform) + { /* Transform y into the range [0,0.5) */ + r = 0.5*(1.0 - y); + /* VC++ intrinsic call */ + _mm_store_sd(&s, _mm_sqrt_sd(_mm_setzero_pd(), _mm_load_sd(&r))); + y = s; + } + else + r = y*y; + + /* Use a rational approximation for [0.0, 0.5] */ + + u = r*(0.227485835556935010735943483075 + + (-0.445017216867635649900123110649 + + (0.275558175256937652532686256258 + + (-0.0549989809235685841612020091328 + + (0.00109242697235074662306043804220 + + 0.0000482901920344786991880522822991*r)*r)*r)*r)*r)/ + (1.36491501334161032038194214209 + + (-3.28431505720958658909889444194 + + (2.76568859157270989520376345954 + + (-0.943639137032492685763471240072 + + 0.105869422087204370341222318533*r)*r)*r)*r); + + if (transform) + { /* Reconstruct acos carefully in transformed region */ + if (xneg) return pi - 2.0*(s+(y*u - piby2_tail)); + else + { + double c, s1; + unsigned long us; + GET_BITS_DP64(s, us); + PUT_BITS_DP64(0xffffffff00000000 & us, s1); + c = (r-s1*s1)/(s+s1); + return 2.0*s1 + (2.0*c+2.0*y*u); + } + } + else + return piby2_head - (x - (piby2_tail - x*u)); +} diff --git a/sdk/lib/crt/math/libm_sse2/acosf.c b/sdk/lib/crt/math/libm_sse2/acosf.c new file mode 100644 index 00000000000..5422177b317 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/acosf.c @@ -0,0 +1,146 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VALF_WITH_FLAGS +#define USE_NANF_WITH_FLAGS +#define USE_HANDLE_ERRORF +#include "libm_inlines.h" +#undef USE_NANF_WITH_FLAGS +#undef USE_VALF_WITH_FLAGS +#undef USE_HANDLE_ERRORF + +#include "libm_errno.h" + +// Disable "C4163: not available as intrinsic function" warning that older +// compilers may issue here. +#pragma warning(disable:4163) +#pragma function(acosf) + + +float FN_PROTOTYPE(acosf)(float x) +{ + /* Computes arccos(x). + The argument is first reduced by noting that arccos(x) + is invalid for abs(x) > 1. For denormal and small + arguments arccos(x) = pi/2 to machine accuracy. + Remaining argument ranges are handled as follows. + For abs(x) <= 0.5 use + arccos(x) = pi/2 - arcsin(x) + = pi/2 - (x + x^3*R(x^2)) + where R(x^2) is a rational minimax approximation to + (arcsin(x) - x)/x^3. + For abs(x) > 0.5 exploit the identity: + arccos(x) = pi - 2*arcsin(sqrt(1-x)/2) + together with the above rational approximation, and + reconstruct the terms carefully. + */ + + /* Some constants and split constants. */ + + static const float + piby2 = 1.5707963705e+00F; /* 0x3fc90fdb */ + static const double + pi = 3.1415926535897933e+00, /* 0x400921fb54442d18 */ + piby2_head = 1.5707963267948965580e+00, /* 0x3ff921fb54442d18 */ + piby2_tail = 6.12323399573676603587e-17; /* 0x3c91a62633145c07 */ + + float u, y, s = 0.0F, r; + int xexp, xnan, transform = 0; + + unsigned int ux, aux, xneg; + + GET_BITS_SP32(x, ux); + aux = ux & ~SIGNBIT_SP32; + xneg = (ux & SIGNBIT_SP32); + xnan = (aux > PINFBITPATT_SP32); + xexp = (int)((ux & EXPBITS_SP32) >> EXPSHIFTBITS_SP32) - EXPBIAS_SP32; + + /* Special cases */ + + if (xnan) + { + return _handle_errorf("acosf", OP_ACOS, ux|0x00400000, _DOMAIN, 0, + EDOM, x, 0.0F, 1); + } + else if (xexp < -26) + /* y small enough that arccos(x) = pi/2 */ + return valf_with_flags(piby2, AMD_F_INEXACT); + else if (xexp >= 0) + { /* abs(x) >= 1.0 */ + if (x == 1.0F) + return 0.0F; + else if (x == -1.0F) + return valf_with_flags((float)pi, AMD_F_INEXACT); + else + return _handle_errorf("acosf", OP_ACOS, INDEFBITPATT_SP32, _DOMAIN, + AMD_F_INVALID, EDOM, x, 0.0F, 1); + } + + if (xneg) y = -x; + else y = x; + + transform = (xexp >= -1); /* abs(x) >= 0.5 */ + + if (transform) + { /* Transform y into the range [0,0.5) */ + r = 0.5F*(1.0F - y); + /* VC++ intrinsic call */ + _mm_store_ss(&s, _mm_sqrt_ss(_mm_load_ss(&r))); + y = s; + } + else + r = y*y; + + /* Use a rational approximation for [0.0, 0.5] */ + + u=r*(0.184161606965100694821398249421F + + (-0.0565298683201845211985026327361F + + (-0.0133819288943925804214011424456F - + 0.00396137437848476485201154797087F*r)*r)*r)/ + (1.10496961524520294485512696706F - + 0.836411276854206731913362287293F*r); + + if (transform) + { + /* Reconstruct acos carefully in transformed region */ + if (xneg) + return (float)(pi - 2.0*(s+(y*u - piby2_tail))); + else + { + float c, s1; + unsigned int us; + GET_BITS_SP32(s, us); + PUT_BITS_SP32(0xffff0000 & us, s1); + c = (r-s1*s1)/(s+s1); + return 2.0F*s1 + (2.0F*c+2.0F*y*u); + } + } + else + return (float)(piby2_head - (x - (piby2_tail - x*u))); +} diff --git a/sdk/lib/crt/math/libm_sse2/asin.c b/sdk/lib/crt/math/libm_sse2/asin.c new file mode 100644 index 00000000000..31e652b73c6 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/asin.c @@ -0,0 +1,153 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VAL_WITH_FLAGS +#define USE_NAN_WITH_FLAGS +#define USE_HANDLE_ERROR +#include "libm_inlines.h" +#undef USE_NAN_WITH_FLAGS +#undef USE_VAL_WITH_FLAGS +#undef USE_HANDLE_ERROR + +#include "libm_errno.h" + +#pragma function(asin) + +double FN_PROTOTYPE(asin)(double x) +{ + /* Computes arcsin(x). + The argument is first reduced by noting that arcsin(x) + is invalid for abs(x) > 1 and arcsin(-x) = -arcsin(x). + For denormal and small arguments arcsin(x) = x to machine + accuracy. Remaining argument ranges are handled as follows. + For abs(x) <= 0.5 use + arcsin(x) = x + x^3*R(x^2) + where R(x^2) is a rational minimax approximation to + (arcsin(x) - x)/x^3. + For abs(x) > 0.5 exploit the identity: + arcsin(x) = pi/2 - 2*arcsin(sqrt(1-x)/2) + together with the above rational approximation, and + reconstruct the terms carefully. + */ + + /* Some constants and split constants. */ + + static const double + piby2_tail = 6.1232339957367660e-17, /* 0x3c91a62633145c07 */ + hpiby2_head = 7.8539816339744831e-01, /* 0x3fe921fb54442d18 */ + piby2 = 1.5707963267948965e+00; /* 0x3ff921fb54442d18 */ + double u, v, y, s=0.0, r; + int xexp, xnan, transform=0; + + unsigned long ux, aux, xneg; + GET_BITS_DP64(x, ux); + aux = ux & ~SIGNBIT_DP64; + xneg = (ux & SIGNBIT_DP64); + xnan = (aux > PINFBITPATT_DP64); + xexp = (int)((ux & EXPBITS_DP64) >> EXPSHIFTBITS_DP64) - EXPBIAS_DP64; + + /* Special cases */ + + if (xnan) + { + return _handle_error("asin", OP_ASIN, ux|0x0008000000000000, _DOMAIN, + 0, EDOM, x, 0.0, 1); + } + else if (xexp < -28) + { /* y small enough that arcsin(x) = x */ + return val_with_flags(x, AMD_F_INEXACT); + } + else if (xexp >= 0) + { /* abs(x) >= 1.0 */ + if (x == 1.0) + return val_with_flags(piby2, AMD_F_INEXACT); + else if (x == -1.0) + return val_with_flags(-piby2, AMD_F_INEXACT); + else + return _handle_error("asin", OP_ASIN, INDEFBITPATT_DP64, _DOMAIN, + AMD_F_INVALID, EDOM, x, 0.0, 1); + } + + if (xneg) y = -x; + else y = x; + + transform = (xexp >= -1); /* abs(x) >= 0.5 */ + + if (transform) + { /* Transform y into the range [0,0.5) */ + r = 0.5*(1.0 - y); + /* VC++ intrinsic call */ + _mm_store_sd(&s, _mm_sqrt_sd(_mm_setzero_pd(), _mm_load_sd(&r))); + y = s; + } + else + r = y*y; + + /* Use a rational approximation for [0.0, 0.5] */ + + u = r*(0.227485835556935010735943483075 + + (-0.445017216867635649900123110649 + + (0.275558175256937652532686256258 + + (-0.0549989809235685841612020091328 + + (0.00109242697235074662306043804220 + + 0.0000482901920344786991880522822991*r)*r)*r)*r)*r)/ + (1.36491501334161032038194214209 + + (-3.28431505720958658909889444194 + + (2.76568859157270989520376345954 + + (-0.943639137032492685763471240072 + + 0.105869422087204370341222318533*r)*r)*r)*r); + + if (transform) + { /* Reconstruct asin carefully in transformed region */ + { + double c, s1, p, q; + unsigned long us; + GET_BITS_DP64(s, us); + PUT_BITS_DP64(0xffffffff00000000 & us, s1); + c = (r-s1*s1)/(s+s1); + p = 2.0*s*u - (piby2_tail-2.0*c); + q = hpiby2_head - 2.0*s1; + v = hpiby2_head - (p-q); + } + } + else + { + /* Use a temporary variable to prevent VC++ rearranging + y + y*u + into + y * (1 + u) + and getting an incorrectly rounded result */ + double tmp; + tmp = y * u; + v = y + tmp; + } + + if (xneg) return -v; + else return v; +} diff --git a/sdk/lib/crt/math/libm_sse2/asinf.c b/sdk/lib/crt/math/libm_sse2/asinf.c new file mode 100644 index 00000000000..89dba1059ff --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/asinf.c @@ -0,0 +1,151 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VALF_WITH_FLAGS +#define USE_NANF_WITH_FLAGS +#define USE_HANDLE_ERRORF +#include "libm_inlines.h" +#undef USE_NANF_WITH_FLAGS +#undef USE_VALF_WITH_FLAGS +#undef USE_HANDLE_ERRORF + +#include "libm_errno.h" + +// Disable "C4163: not available as intrinsic function" warning that older +// compilers may issue here. +#pragma warning(disable:4163) +#pragma function(asinf) + + +float FN_PROTOTYPE(asinf)(float x) +{ + /* Computes arcsin(x). + The argument is first reduced by noting that arcsin(x) + is invalid for abs(x) > 1 and arcsin(-x) = -arcsin(x). + For denormal and small arguments arcsin(x) = x to machine + accuracy. Remaining argument ranges are handled as follows. + For abs(x) <= 0.5 use + arcsin(x) = x + x^3*R(x^2) + where R(x^2) is a rational minimax approximation to + (arcsin(x) - x)/x^3. + For abs(x) > 0.5 exploit the identity: + arcsin(x) = pi/2 - 2*arcsin(sqrt(1-x)/2) + together with the above rational approximation, and + reconstruct the terms carefully. + */ + + /* Some constants and split constants. */ + + static const float + piby2_tail = 7.5497894159e-08F, /* 0x33a22168 */ + hpiby2_head = 7.8539812565e-01F, /* 0x3f490fda */ + piby2 = 1.5707963705e+00F; /* 0x3fc90fdb */ + float u, v, y, s = 0.0F, r; + int xexp, xnan, transform = 0; + + unsigned int ux, aux, xneg; + GET_BITS_SP32(x, ux); + aux = ux & ~SIGNBIT_SP32; + xneg = (ux & SIGNBIT_SP32); + xnan = (aux > PINFBITPATT_SP32); + xexp = (int)((ux & EXPBITS_SP32) >> EXPSHIFTBITS_SP32) - EXPBIAS_SP32; + + /* Special cases */ + + if (xnan) + { + return _handle_errorf("asinf", OP_ASIN, ux|0x00400000, _DOMAIN, 0, + EDOM, x, 0.0F, 1); + } + else if (xexp < -14) + /* y small enough that arcsin(x) = x */ + return valf_with_flags(x, AMD_F_INEXACT); + else if (xexp >= 0) + { + /* abs(x) >= 1.0 */ + if (x == 1.0F) + return valf_with_flags(piby2, AMD_F_INEXACT); + else if (x == -1.0F) + return valf_with_flags(-piby2, AMD_F_INEXACT); + else + return _handle_errorf("asinf", OP_ASIN, INDEFBITPATT_SP32, _DOMAIN, + AMD_F_INVALID, EDOM, x, 0.0F, 1); + } + + if (xneg) y = -x; + else y = x; + + transform = (xexp >= -1); /* abs(x) >= 0.5 */ + + if (transform) + { /* Transform y into the range [0,0.5) */ + r = 0.5F*(1.0F - y); + /* VC++ intrinsic call */ + _mm_store_ss(&s, _mm_sqrt_ss(_mm_load_ss(&r))); + y = s; + } + else + r = y*y; + + /* Use a rational approximation for [0.0, 0.5] */ + + u=r*(0.184161606965100694821398249421F + + (-0.0565298683201845211985026327361F + + (-0.0133819288943925804214011424456F - + 0.00396137437848476485201154797087F*r)*r)*r)/ + (1.10496961524520294485512696706F - + 0.836411276854206731913362287293F*r); + + if (transform) + { + /* Reconstruct asin carefully in transformed region */ + float c, s1, p, q; + unsigned int us; + GET_BITS_SP32(s, us); + PUT_BITS_SP32(0xffff0000 & us, s1); + c = (r-s1*s1)/(s+s1); + p = 2.0F*s*u - (piby2_tail-2.0F*c); + q = hpiby2_head - 2.0F*s1; + v = hpiby2_head - (p-q); + } + else + { + /* Use a temporary variable to prevent VC++ rearranging + y + y*u + into + y * (1 + u) + and getting an incorrectly rounded result */ + float tmp; + tmp = y * u; + v = y + tmp; + } + + if (xneg) return -v; + else return v; +} diff --git a/sdk/lib/crt/math/libm_sse2/atan.c b/sdk/lib/crt/math/libm_sse2/atan.c new file mode 100644 index 00000000000..c28e0672779 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/atan.c @@ -0,0 +1,132 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VAL_WITH_FLAGS +#define USE_NAN_WITH_FLAGS +#define USE_HANDLE_ERROR +#include "libm_inlines.h" +#undef USE_VAL_WITH_FLAGS +#undef USE_NAN_WITH_FLAGS +#undef USE_HANDLE_ERROR + +#include "libm_errno.h" + +#pragma function(atan) + +double FN_PROTOTYPE(atan)(double x) +{ + + /* Some constants and split constants. */ + + static double piby2 = 1.5707963267948966e+00; /* 0x3ff921fb54442d18 */ + double chi, clo, v, s, q, z; + + /* Find properties of argument x. */ + + unsigned long ux, aux, xneg; + GET_BITS_DP64(x, ux); + aux = ux & ~SIGNBIT_DP64; + xneg = (ux != aux); + + if (xneg) v = -x; + else v = x; + + /* Argument reduction to range [-7/16,7/16] */ + + if (aux > 0x4003800000000000) /* v > 39./16. */ + { + + if (aux > PINFBITPATT_DP64) + { + /* x is NaN */ + return _handle_error("atan", OP_ATAN, ux|0x0008000000000000, _DOMAIN, 0, + EDOM, x, 0.0, 1); + } + else if (v > 0x4370000000000000) + { /* abs(x) > 2^56 => arctan(1/x) is + insignificant compared to piby2 */ + if (xneg) + return val_with_flags(-piby2, AMD_F_INEXACT); + else + return val_with_flags(piby2, AMD_F_INEXACT); + } + + x = -1.0/v; + /* (chi + clo) = arctan(infinity) */ + chi = 1.57079632679489655800e+00; /* 0x3ff921fb54442d18 */ + clo = 6.12323399573676480327e-17; /* 0x3c91a62633145c06 */ + } + else if (aux > 0x3ff3000000000000) /* 39./16. > v > 19./16. */ + { + x = (v-1.5)/(1.0+1.5*v); + /* (chi + clo) = arctan(1.5) */ + chi = 9.82793723247329054082e-01; /* 0x3fef730bd281f69b */ + clo = 1.39033110312309953701e-17; /* 0x3c7007887af0cbbc */ + } + else if (aux > 0x3fe6000000000000) /* 19./16. > v > 11./16. */ + { + x = (v-1.0)/(1.0+v); + /* (chi + clo) = arctan(1.) */ + chi = 7.85398163397448278999e-01; /* 0x3fe921fb54442d18 */ + clo = 3.06161699786838240164e-17; /* 0x3c81a62633145c06 */ + } + else if (aux > 0x3fdc000000000000) /* 11./16. > v > 7./16. */ + { + x = (2.0*v-1.0)/(2.0+v); + /* (chi + clo) = arctan(0.5) */ + chi = 4.63647609000806093515e-01; /* 0x3fddac670561bb4f */ + clo = 2.26987774529616809294e-17; /* 0x3c7a2b7f222f65e0 */ + } + else /* v < 7./16. */ + { + x = v; + chi = 0.0; + clo = 0.0; + } + + /* Core approximation: Remez(4,4) on [-7/16,7/16] */ + + s = x*x; + q = x*s* + (0.268297920532545909e0 + + (0.447677206805497472e0 + + (0.220638780716667420e0 + + (0.304455919504853031e-1 + + 0.142316903342317766e-3*s)*s)*s)*s)/ + (0.804893761597637733e0 + + (0.182596787737507063e1 + + (0.141254259931958921e1 + + (0.424602594203847109e0 + + 0.389525873944742195e-1*s)*s)*s)*s); + + z = chi - ((q - clo) - x); + + if (xneg) z = -z; + return z; +} diff --git a/sdk/lib/crt/math/libm_sse2/atan2.c b/sdk/lib/crt/math/libm_sse2/atan2.c new file mode 100644 index 00000000000..fb9d1e8482f --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/atan2.c @@ -0,0 +1,750 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VAL_WITH_FLAGS +#define USE_NAN_WITH_FLAGS +#define USE_SCALEDOUBLE_1 +#define USE_SCALEDOUBLE_2 +#define USE_SCALEUPDOUBLE1024 +#define USE_SCALEDOWNDOUBLE +#define USE_HANDLE_ERROR +#include "libm_inlines.h" +#undef USE_VAL_WITH_FLAGS +#undef USE_NAN_WITH_FLAGS +#undef USE_SCALEDOUBLE_1 +#undef USE_SCALEDOUBLE_2 +#undef USE_SCALEUPDOUBLE1024 +#undef USE_SCALEDOWNDOUBLE +#undef USE_HANDLE_ERROR + +#include "libm_errno.h" + +#pragma function(atan2) + +double FN_PROTOTYPE(atan2)(double y, double x) +{ + /* Arrays atan_jby256_lead and atan_jby256_tail contain + leading and trailing parts respectively of precomputed + values of atan(j/256), for j = 16, 17, ..., 256. + atan_jby256_lead contains the first 21 bits of precision, + and atan_jby256_tail contains a further 53 bits precision. */ + + static const double atan_jby256_lead[ 241] = { + 6.24187886714935302734e-02, /* 0x3faff55b00000000 */ + 6.63088560104370117188e-02, /* 0x3fb0f99e00000000 */ + 7.01969265937805175781e-02, /* 0x3fb1f86d00000000 */ + 7.40829110145568847656e-02, /* 0x3fb2f71900000000 */ + 7.79666304588317871094e-02, /* 0x3fb3f59f00000000 */ + 8.18479657173156738281e-02, /* 0x3fb4f3fd00000000 */ + 8.57268571853637695312e-02, /* 0x3fb5f23200000000 */ + 8.96031260490417480469e-02, /* 0x3fb6f03b00000000 */ + 9.34767723083496093750e-02, /* 0x3fb7ee1800000000 */ + 9.73475575447082519531e-02, /* 0x3fb8ebc500000000 */ + 1.01215422153472900391e-01, /* 0x3fb9e94100000000 */ + 1.05080246925354003906e-01, /* 0x3fbae68a00000000 */ + 1.08941912651062011719e-01, /* 0x3fbbe39e00000000 */ + 1.12800359725952148438e-01, /* 0x3fbce07c00000000 */ + 1.16655409336090087891e-01, /* 0x3fbddd2100000000 */ + 1.20507001876831054688e-01, /* 0x3fbed98c00000000 */ + 1.24354958534240722656e-01, /* 0x3fbfd5ba00000000 */ + 1.28199219703674316406e-01, /* 0x3fc068d500000000 */ + 1.32039666175842285156e-01, /* 0x3fc0e6ad00000000 */ + 1.35876297950744628906e-01, /* 0x3fc1646500000000 */ + 1.39708757400512695312e-01, /* 0x3fc1e1fa00000000 */ + 1.43537282943725585938e-01, /* 0x3fc25f6e00000000 */ + 1.47361397743225097656e-01, /* 0x3fc2dcbd00000000 */ + 1.51181221008300781250e-01, /* 0x3fc359e800000000 */ + 1.54996633529663085938e-01, /* 0x3fc3d6ee00000000 */ + 1.58807516098022460938e-01, /* 0x3fc453ce00000000 */ + 1.62613749504089355469e-01, /* 0x3fc4d08700000000 */ + 1.66415214538574218750e-01, /* 0x3fc54d1800000000 */ + 1.70211911201477050781e-01, /* 0x3fc5c98100000000 */ + 1.74003481864929199219e-01, /* 0x3fc645bf00000000 */ + 1.77790164947509765625e-01, /* 0x3fc6c1d400000000 */ + 1.81571602821350097656e-01, /* 0x3fc73dbd00000000 */ + 1.85347914695739746094e-01, /* 0x3fc7b97b00000000 */ + 1.89118742942810058594e-01, /* 0x3fc8350b00000000 */ + 1.92884206771850585938e-01, /* 0x3fc8b06e00000000 */ + 1.96644186973571777344e-01, /* 0x3fc92ba300000000 */ + 2.00398445129394531250e-01, /* 0x3fc9a6a800000000 */ + 2.04147100448608398438e-01, /* 0x3fca217e00000000 */ + 2.07889914512634277344e-01, /* 0x3fca9c2300000000 */ + 2.11626768112182617188e-01, /* 0x3fcb169600000000 */ + 2.15357661247253417969e-01, /* 0x3fcb90d700000000 */ + 2.19082474708557128906e-01, /* 0x3fcc0ae500000000 */ + 2.22801089286804199219e-01, /* 0x3fcc84bf00000000 */ + 2.26513504981994628906e-01, /* 0x3fccfe6500000000 */ + 2.30219483375549316406e-01, /* 0x3fcd77d500000000 */ + 2.33919143676757812500e-01, /* 0x3fcdf11000000000 */ + 2.37612247467041015625e-01, /* 0x3fce6a1400000000 */ + 2.41298794746398925781e-01, /* 0x3fcee2e100000000 */ + 2.44978547096252441406e-01, /* 0x3fcf5b7500000000 */ + 2.48651623725891113281e-01, /* 0x3fcfd3d100000000 */ + 2.52317905426025390625e-01, /* 0x3fd025fa00000000 */ + 2.55977153778076171875e-01, /* 0x3fd061ee00000000 */ + 2.59629487991333007812e-01, /* 0x3fd09dc500000000 */ + 2.63274669647216796875e-01, /* 0x3fd0d97e00000000 */ + 2.66912937164306640625e-01, /* 0x3fd1151a00000000 */ + 2.70543813705444335938e-01, /* 0x3fd1509700000000 */ + 2.74167299270629882812e-01, /* 0x3fd18bf500000000 */ + 2.77783632278442382812e-01, /* 0x3fd1c73500000000 */ + 2.81392335891723632812e-01, /* 0x3fd2025500000000 */ + 2.84993648529052734375e-01, /* 0x3fd23d5600000000 */ + 2.88587331771850585938e-01, /* 0x3fd2783700000000 */ + 2.92173147201538085938e-01, /* 0x3fd2b2f700000000 */ + 2.95751571655273437500e-01, /* 0x3fd2ed9800000000 */ + 2.99322128295898437500e-01, /* 0x3fd3281800000000 */ + 3.02884817123413085938e-01, /* 0x3fd3627700000000 */ + 3.06439399719238281250e-01, /* 0x3fd39cb400000000 */ + 3.09986352920532226562e-01, /* 0x3fd3d6d100000000 */ + 3.13524961471557617188e-01, /* 0x3fd410cb00000000 */ + 3.17055702209472656250e-01, /* 0x3fd44aa400000000 */ + 3.20578098297119140625e-01, /* 0x3fd4845a00000000 */ + 3.24092388153076171875e-01, /* 0x3fd4bdee00000000 */ + 3.27598333358764648438e-01, /* 0x3fd4f75f00000000 */ + 3.31095933914184570312e-01, /* 0x3fd530ad00000000 */ + 3.34585189819335937500e-01, /* 0x3fd569d800000000 */ + 3.38066101074218750000e-01, /* 0x3fd5a2e000000000 */ + 3.41538190841674804688e-01, /* 0x3fd5dbc300000000 */ + 3.45002174377441406250e-01, /* 0x3fd6148400000000 */ + 3.48457098007202148438e-01, /* 0x3fd64d1f00000000 */ + 3.51903676986694335938e-01, /* 0x3fd6859700000000 */ + 3.55341434478759765625e-01, /* 0x3fd6bdea00000000 */ + 3.58770608901977539062e-01, /* 0x3fd6f61900000000 */ + 3.62190723419189453125e-01, /* 0x3fd72e2200000000 */ + 3.65602254867553710938e-01, /* 0x3fd7660700000000 */ + 3.69004726409912109375e-01, /* 0x3fd79dc600000000 */ + 3.72398376464843750000e-01, /* 0x3fd7d56000000000 */ + 3.75782966613769531250e-01, /* 0x3fd80cd400000000 */ + 3.79158496856689453125e-01, /* 0x3fd8442200000000 */ + 3.82525205612182617188e-01, /* 0x3fd87b4b00000000 */ + 3.85882616043090820312e-01, /* 0x3fd8b24d00000000 */ + 3.89230966567993164062e-01, /* 0x3fd8e92900000000 */ + 3.92570018768310546875e-01, /* 0x3fd91fde00000000 */ + 3.95900011062622070312e-01, /* 0x3fd9566d00000000 */ + 3.99220705032348632812e-01, /* 0x3fd98cd500000000 */ + 4.02532100677490234375e-01, /* 0x3fd9c31600000000 */ + 4.05834197998046875000e-01, /* 0x3fd9f93000000000 */ + 4.09126996994018554688e-01, /* 0x3fda2f2300000000 */ + 4.12410259246826171875e-01, /* 0x3fda64ee00000000 */ + 4.15684223175048828125e-01, /* 0x3fda9a9200000000 */ + 4.18948888778686523438e-01, /* 0x3fdad00f00000000 */ + 4.22204017639160156250e-01, /* 0x3fdb056400000000 */ + 4.25449609756469726562e-01, /* 0x3fdb3a9100000000 */ + 4.28685665130615234375e-01, /* 0x3fdb6f9600000000 */ + 4.31912183761596679688e-01, /* 0x3fdba47300000000 */ + 4.35129165649414062500e-01, /* 0x3fdbd92800000000 */ + 4.38336372375488281250e-01, /* 0x3fdc0db400000000 */ + 4.41534280776977539062e-01, /* 0x3fdc421900000000 */ + 4.44722414016723632812e-01, /* 0x3fdc765500000000 */ + 4.47900772094726562500e-01, /* 0x3fdcaa6800000000 */ + 4.51069593429565429688e-01, /* 0x3fdcde5300000000 */ + 4.54228639602661132812e-01, /* 0x3fdd121500000000 */ + 4.57377910614013671875e-01, /* 0x3fdd45ae00000000 */ + 4.60517644882202148438e-01, /* 0x3fdd791f00000000 */ + 4.63647603988647460938e-01, /* 0x3fddac6700000000 */ + 4.66767549514770507812e-01, /* 0x3fdddf8500000000 */ + 4.69877958297729492188e-01, /* 0x3fde127b00000000 */ + 4.72978591918945312500e-01, /* 0x3fde454800000000 */ + 4.76069211959838867188e-01, /* 0x3fde77eb00000000 */ + 4.79150056838989257812e-01, /* 0x3fdeaa6500000000 */ + 4.82221126556396484375e-01, /* 0x3fdedcb600000000 */ + 4.85282421112060546875e-01, /* 0x3fdf0ede00000000 */ + 4.88333940505981445312e-01, /* 0x3fdf40dd00000000 */ + 4.91375446319580078125e-01, /* 0x3fdf72b200000000 */ + 4.94406938552856445312e-01, /* 0x3fdfa45d00000000 */ + 4.97428894042968750000e-01, /* 0x3fdfd5e000000000 */ + 5.00440597534179687500e-01, /* 0x3fe0039c00000000 */ + 5.03442764282226562500e-01, /* 0x3fe01c3400000000 */ + 5.06434917449951171875e-01, /* 0x3fe034b700000000 */ + 5.09417057037353515625e-01, /* 0x3fe04d2500000000 */ + 5.12389183044433593750e-01, /* 0x3fe0657e00000000 */ + 5.15351772308349609375e-01, /* 0x3fe07dc300000000 */ + 5.18304347991943359375e-01, /* 0x3fe095f300000000 */ + 5.21246910095214843750e-01, /* 0x3fe0ae0e00000000 */ + 5.24179458618164062500e-01, /* 0x3fe0c61400000000 */ + 5.27101993560791015625e-01, /* 0x3fe0de0500000000 */ + 5.30014991760253906250e-01, /* 0x3fe0f5e200000000 */ + 5.32917976379394531250e-01, /* 0x3fe10daa00000000 */ + 5.35810947418212890625e-01, /* 0x3fe1255d00000000 */ + 5.38693904876708984375e-01, /* 0x3fe13cfb00000000 */ + 5.41567325592041015625e-01, /* 0x3fe1548500000000 */ + 5.44430732727050781250e-01, /* 0x3fe16bfa00000000 */ + 5.47284126281738281250e-01, /* 0x3fe1835a00000000 */ + 5.50127506256103515625e-01, /* 0x3fe19aa500000000 */ + 5.52961349487304687500e-01, /* 0x3fe1b1dc00000000 */ + 5.55785179138183593750e-01, /* 0x3fe1c8fe00000000 */ + 5.58598995208740234375e-01, /* 0x3fe1e00b00000000 */ + 5.61403274536132812500e-01, /* 0x3fe1f70400000000 */ + 5.64197540283203125000e-01, /* 0x3fe20de800000000 */ + 5.66981792449951171875e-01, /* 0x3fe224b700000000 */ + 5.69756031036376953125e-01, /* 0x3fe23b7100000000 */ + 5.72520732879638671875e-01, /* 0x3fe2521700000000 */ + 5.75275897979736328125e-01, /* 0x3fe268a900000000 */ + 5.78021049499511718750e-01, /* 0x3fe27f2600000000 */ + 5.80756187438964843750e-01, /* 0x3fe2958e00000000 */ + 5.83481788635253906250e-01, /* 0x3fe2abe200000000 */ + 5.86197376251220703125e-01, /* 0x3fe2c22100000000 */ + 5.88903427124023437500e-01, /* 0x3fe2d84c00000000 */ + 5.91599464416503906250e-01, /* 0x3fe2ee6200000000 */ + 5.94285964965820312500e-01, /* 0x3fe3046400000000 */ + 5.96962928771972656250e-01, /* 0x3fe31a5200000000 */ + 5.99629878997802734375e-01, /* 0x3fe3302b00000000 */ + 6.02287292480468750000e-01, /* 0x3fe345f000000000 */ + 6.04934692382812500000e-01, /* 0x3fe35ba000000000 */ + 6.07573032379150390625e-01, /* 0x3fe3713d00000000 */ + 6.10201358795166015625e-01, /* 0x3fe386c500000000 */ + 6.12820148468017578125e-01, /* 0x3fe39c3900000000 */ + 6.15428924560546875000e-01, /* 0x3fe3b19800000000 */ + 6.18028640747070312500e-01, /* 0x3fe3c6e400000000 */ + 6.20618820190429687500e-01, /* 0x3fe3dc1c00000000 */ + 6.23198986053466796875e-01, /* 0x3fe3f13f00000000 */ + 6.25770092010498046875e-01, /* 0x3fe4064f00000000 */ + 6.28331184387207031250e-01, /* 0x3fe41b4a00000000 */ + 6.30883216857910156250e-01, /* 0x3fe4303200000000 */ + 6.33425712585449218750e-01, /* 0x3fe4450600000000 */ + 6.35958671569824218750e-01, /* 0x3fe459c600000000 */ + 6.38482093811035156250e-01, /* 0x3fe46e7200000000 */ + 6.40995979309082031250e-01, /* 0x3fe4830a00000000 */ + 6.43500804901123046875e-01, /* 0x3fe4978f00000000 */ + 6.45996093750000000000e-01, /* 0x3fe4ac0000000000 */ + 6.48482322692871093750e-01, /* 0x3fe4c05e00000000 */ + 6.50959014892578125000e-01, /* 0x3fe4d4a800000000 */ + 6.53426170349121093750e-01, /* 0x3fe4e8de00000000 */ + 6.55884265899658203125e-01, /* 0x3fe4fd0100000000 */ + 6.58332824707031250000e-01, /* 0x3fe5111000000000 */ + 6.60772323608398437500e-01, /* 0x3fe5250c00000000 */ + 6.63202762603759765625e-01, /* 0x3fe538f500000000 */ + 6.65623664855957031250e-01, /* 0x3fe54cca00000000 */ + 6.68035984039306640625e-01, /* 0x3fe5608d00000000 */ + 6.70438766479492187500e-01, /* 0x3fe5743c00000000 */ + 6.72832489013671875000e-01, /* 0x3fe587d800000000 */ + 6.75216674804687500000e-01, /* 0x3fe59b6000000000 */ + 6.77592277526855468750e-01, /* 0x3fe5aed600000000 */ + 6.79958820343017578125e-01, /* 0x3fe5c23900000000 */ + 6.82316303253173828125e-01, /* 0x3fe5d58900000000 */ + 6.84664726257324218750e-01, /* 0x3fe5e8c600000000 */ + 6.87004089355468750000e-01, /* 0x3fe5fbf000000000 */ + 6.89334869384765625000e-01, /* 0x3fe60f0800000000 */ + 6.91656589508056640625e-01, /* 0x3fe6220d00000000 */ + 6.93969249725341796875e-01, /* 0x3fe634ff00000000 */ + 6.96272850036621093750e-01, /* 0x3fe647de00000000 */ + 6.98567867279052734375e-01, /* 0x3fe65aab00000000 */ + 7.00854301452636718750e-01, /* 0x3fe66d6600000000 */ + 7.03131675720214843750e-01, /* 0x3fe6800e00000000 */ + 7.05400466918945312500e-01, /* 0x3fe692a400000000 */ + 7.07660198211669921875e-01, /* 0x3fe6a52700000000 */ + 7.09911346435546875000e-01, /* 0x3fe6b79800000000 */ + 7.12153911590576171875e-01, /* 0x3fe6c9f700000000 */ + 7.14387893676757812500e-01, /* 0x3fe6dc4400000000 */ + 7.16613292694091796875e-01, /* 0x3fe6ee7f00000000 */ + 7.18829631805419921875e-01, /* 0x3fe700a700000000 */ + 7.21037864685058593750e-01, /* 0x3fe712be00000000 */ + 7.23237514495849609375e-01, /* 0x3fe724c300000000 */ + 7.25428581237792968750e-01, /* 0x3fe736b600000000 */ + 7.27611064910888671875e-01, /* 0x3fe7489700000000 */ + 7.29785442352294921875e-01, /* 0x3fe75a6700000000 */ + 7.31950759887695312500e-01, /* 0x3fe76c2400000000 */ + 7.34108448028564453125e-01, /* 0x3fe77dd100000000 */ + 7.36257076263427734375e-01, /* 0x3fe78f6b00000000 */ + 7.38397598266601562500e-01, /* 0x3fe7a0f400000000 */ + 7.40530014038085937500e-01, /* 0x3fe7b26c00000000 */ + 7.42654323577880859375e-01, /* 0x3fe7c3d300000000 */ + 7.44770050048828125000e-01, /* 0x3fe7d52800000000 */ + 7.46877670288085937500e-01, /* 0x3fe7e66c00000000 */ + 7.48976707458496093750e-01, /* 0x3fe7f79e00000000 */ + 7.51068115234375000000e-01, /* 0x3fe808c000000000 */ + 7.53150939941406250000e-01, /* 0x3fe819d000000000 */ + 7.55226135253906250000e-01, /* 0x3fe82ad000000000 */ + 7.57292747497558593750e-01, /* 0x3fe83bbe00000000 */ + 7.59351730346679687500e-01, /* 0x3fe84c9c00000000 */ + 7.61402606964111328125e-01, /* 0x3fe85d6900000000 */ + 7.63445377349853515625e-01, /* 0x3fe86e2500000000 */ + 7.65480041503906250000e-01, /* 0x3fe87ed000000000 */ + 7.67507076263427734375e-01, /* 0x3fe88f6b00000000 */ + 7.69526004791259765625e-01, /* 0x3fe89ff500000000 */ + 7.71537303924560546875e-01, /* 0x3fe8b06f00000000 */ + 7.73540973663330078125e-01, /* 0x3fe8c0d900000000 */ + 7.75536537170410156250e-01, /* 0x3fe8d13200000000 */ + 7.77523994445800781250e-01, /* 0x3fe8e17a00000000 */ + 7.79504299163818359375e-01, /* 0x3fe8f1b300000000 */ + 7.81476497650146484375e-01, /* 0x3fe901db00000000 */ + 7.83441066741943359375e-01, /* 0x3fe911f300000000 */ + 7.85398006439208984375e-01}; /* 0x3fe921fb00000000 */ + + static const double atan_jby256_tail[ 241] = { + 2.13244638182005395671e-08, /* 0x3e56e59fbd38db2c */ + 3.89093864761712760656e-08, /* 0x3e64e3aa54dedf96 */ + 4.44780900009437454576e-08, /* 0x3e67e105ab1bda88 */ + 1.15344768460112754160e-08, /* 0x3e48c5254d013fd0 */ + 3.37271051945395312705e-09, /* 0x3e2cf8ab3ad62670 */ + 2.40857608736109859459e-08, /* 0x3e59dca4bec80468 */ + 1.85853810450623807768e-08, /* 0x3e53f4b5ec98a8da */ + 5.14358299969225078306e-08, /* 0x3e6b9d49619d81fe */ + 8.85023985412952486748e-09, /* 0x3e43017887460934 */ + 1.59425154214358432060e-08, /* 0x3e511e3eca0b9944 */ + 1.95139937737755753164e-08, /* 0x3e54f3f73c5a332e */ + 2.64909755273544319715e-08, /* 0x3e5c71c8ae0e00a6 */ + 4.43388037881231070144e-08, /* 0x3e67cde0f86fbdc7 */ + 2.14757072421821274557e-08, /* 0x3e570f328c889c72 */ + 2.61049792670754218852e-08, /* 0x3e5c07ae9b994efe */ + 7.81439350674466302231e-09, /* 0x3e40c8021d7b1698 */ + 3.60125207123751024094e-08, /* 0x3e635585edb8cb22 */ + 6.15276238179343767917e-08, /* 0x3e70842567b30e96 */ + 9.54387964641184285058e-08, /* 0x3e799e811031472e */ + 3.02789566851502754129e-08, /* 0x3e6041821416bcee */ + 1.16888650949870856331e-07, /* 0x3e7f6086e4dc96f4 */ + 1.07580956468653338863e-08, /* 0x3e471a535c5f1b58 */ + 8.33454265379535427653e-08, /* 0x3e765f743fe63ca1 */ + 1.10790279272629526068e-07, /* 0x3e7dbd733472d014 */ + 1.08394277896366207424e-07, /* 0x3e7d18cc4d8b0d1d */ + 9.22176086126841098800e-08, /* 0x3e78c12553c8fb29 */ + 7.90938592199048786990e-08, /* 0x3e753b49e2e8f991 */ + 8.66445407164293125637e-08, /* 0x3e77422ae148c141 */ + 1.40839973537092438671e-08, /* 0x3e4e3ec269df56a8 */ + 1.19070438507307600689e-07, /* 0x3e7ff6754e7e0ac9 */ + 6.40451663051716197071e-08, /* 0x3e7131267b1b5aad */ + 1.08338682076343674522e-07, /* 0x3e7d14fa403a94bc */ + 3.52999550187922736222e-08, /* 0x3e62f396c089a3d8 */ + 1.05983273930043077202e-07, /* 0x3e7c731d78fa95bb */ + 1.05486124078259553339e-07, /* 0x3e7c50f385177399 */ + 5.82167732281776477773e-08, /* 0x3e6f41409c6f2c20 */ + 1.08696483983403942633e-07, /* 0x3e7d2d90c4c39ec0 */ + 4.47335086122377542835e-08, /* 0x3e680420696f2106 */ + 1.26896287162615723528e-08, /* 0x3e4b40327943a2e8 */ + 4.06534471589151404531e-08, /* 0x3e65d35e02f3d2a2 */ + 3.84504846300557026690e-08, /* 0x3e64a498288117b0 */ + 3.60715006404807269080e-08, /* 0x3e635da119afb324 */ + 6.44725903165522722801e-08, /* 0x3e714e85cdb9a908 */ + 3.63749249976409461305e-08, /* 0x3e638754e5547b9a */ + 1.03901294413833913794e-07, /* 0x3e7be40ae6ce3246 */ + 6.25379756302167880580e-08, /* 0x3e70c993b3bea7e7 */ + 6.63984302368488828029e-08, /* 0x3e71d2dd89ac3359 */ + 3.21844598971548278059e-08, /* 0x3e61476603332c46 */ + 1.16030611712765830905e-07, /* 0x3e7f25901bac55b7 */ + 1.17464622142347730134e-07, /* 0x3e7f881b7c826e28 */ + 7.54604017965808996596e-08, /* 0x3e7441996d698d20 */ + 1.49234929356206556899e-07, /* 0x3e8407ac521ea089 */ + 1.41416924523217430259e-07, /* 0x3e82fb0c6c4b1723 */ + 2.13308065617483489011e-07, /* 0x3e8ca135966a3e18 */ + 5.04230937933302320146e-08, /* 0x3e6b1218e4d646e4 */ + 5.45874922281655519035e-08, /* 0x3e6d4e72a350d288 */ + 1.51849028914786868886e-07, /* 0x3e84617e2f04c329 */ + 3.09004308703769273010e-08, /* 0x3e6096ec41e82650 */ + 9.67574548184738317664e-08, /* 0x3e79f91f25773e6e */ + 4.02508285529322212824e-08, /* 0x3e659c0820f1d674 */ + 3.01222268096861091157e-08, /* 0x3e602bf7a2df1064 */ + 2.36189860670079288680e-07, /* 0x3e8fb36bfc40508f */ + 1.14095158111080887695e-07, /* 0x3e7ea08f3f8dc892 */ + 7.42349089746573467487e-08, /* 0x3e73ed6254656a0e */ + 5.12515583196230380184e-08, /* 0x3e6b83f5e5e69c58 */ + 2.19290391828763918102e-07, /* 0x3e8d6ec2af768592 */ + 3.83263512187553886471e-08, /* 0x3e6493889a226f94 */ + 1.61513486284090523855e-07, /* 0x3e85ad8fa65279ba */ + 5.09996743535589922261e-08, /* 0x3e6b615784d45434 */ + 1.23694037861246766534e-07, /* 0x3e809a184368f145 */ + 8.23367955351123783984e-08, /* 0x3e761a2439b0d91c */ + 1.07591766213053694014e-07, /* 0x3e7ce1a65e39a978 */ + 1.42789947524631815640e-07, /* 0x3e832a39a93b6a66 */ + 1.32347123024711878538e-07, /* 0x3e81c3699af804e7 */ + 2.17626067316598149229e-08, /* 0x3e575e0f4e44ede8 */ + 2.34454866923044288656e-07, /* 0x3e8f77ced1a7a83b */ + 2.82966370261766916053e-09, /* 0x3e284e7f0cb1b500 */ + 2.29300919890907632975e-07, /* 0x3e8ec6b838b02dfe */ + 1.48428270450261284915e-07, /* 0x3e83ebf4dfbeda87 */ + 1.87937408574313982512e-07, /* 0x3e89397aed9cb475 */ + 6.13685946813334055347e-08, /* 0x3e707937bc239c54 */ + 1.98585022733583817493e-07, /* 0x3e8aa754553131b6 */ + 7.68394131623752961662e-08, /* 0x3e74a05d407c45dc */ + 1.28119052312436745644e-07, /* 0x3e8132231a206dd0 */ + 7.02119104719236502733e-08, /* 0x3e72d8ecfdd69c88 */ + 9.87954793820636301943e-08, /* 0x3e7a852c74218606 */ + 1.72176752381034986217e-07, /* 0x3e871bf2baeebb50 */ + 1.12877225146169704119e-08, /* 0x3e483d7db7491820 */ + 5.33549829555851737993e-08, /* 0x3e6ca50d92b6da14 */ + 2.13833275710816521345e-08, /* 0x3e56f5cde8530298 */ + 1.16243518048290556393e-07, /* 0x3e7f343198910740 */ + 6.29926408369055877943e-08, /* 0x3e70e8d241ccd80a */ + 6.45429039328021963791e-08, /* 0x3e71535ac619e6c8 */ + 8.64001922814281933403e-08, /* 0x3e77316041c36cd2 */ + 9.50767572202325800240e-08, /* 0x3e7985a000637d8e */ + 5.80851497508121135975e-08, /* 0x3e6f2f29858c0a68 */ + 1.82350561135024766232e-07, /* 0x3e8879847f96d909 */ + 1.98948680587390608655e-07, /* 0x3e8ab3d319e12e42 */ + 7.83548663450197659846e-08, /* 0x3e75088162dfc4c2 */ + 3.04374234486798594427e-08, /* 0x3e605749a1cd9d8c */ + 2.76135725629797411787e-08, /* 0x3e5da65c6c6b8618 */ + 4.32610105454203065470e-08, /* 0x3e6739bf7df1ad64 */ + 5.17107515324127256994e-08, /* 0x3e6bc31252aa3340 */ + 2.82398327875841444660e-08, /* 0x3e5e528191ad3aa8 */ + 1.87482469524195595399e-07, /* 0x3e8929d93df19f18 */ + 2.97481891662714096139e-08, /* 0x3e5ff11eb693a080 */ + 9.94421570843584316402e-09, /* 0x3e455ae3f145a3a0 */ + 1.07056210730391848428e-07, /* 0x3e7cbcd8c6c0ca82 */ + 6.25589580466881163081e-08, /* 0x3e70cb04d425d304 */ + 9.56641013869464593803e-08, /* 0x3e79adfcab5be678 */ + 1.88056307148355440276e-07, /* 0x3e893d90c5662508 */ + 8.38850689379557880950e-08, /* 0x3e768489bd35ff40 */ + 5.01215865527674122924e-09, /* 0x3e3586ed3da2b7e0 */ + 1.74166095998522089762e-07, /* 0x3e87604d2e850eee */ + 9.96779574395363585849e-08, /* 0x3e7ac1d12bfb53d8 */ + 5.98432026368321460686e-09, /* 0x3e39b3d468274740 */ + 1.18362922366887577169e-07, /* 0x3e7fc5d68d10e53c */ + 1.86086833284154215946e-07, /* 0x3e88f9e51884becb */ + 1.97671457251348941011e-07, /* 0x3e8a87f0869c06d1 */ + 1.42447160717199237159e-07, /* 0x3e831e7279f685fa */ + 1.05504240785546574184e-08, /* 0x3e46a8282f9719b0 */ + 3.13335218371639189324e-08, /* 0x3e60d2724a8a44e0 */ + 1.96518418901914535399e-07, /* 0x3e8a60524b11ad4e */ + 2.17692035039173536059e-08, /* 0x3e575fdf832750f0 */ + 2.15613114426529981675e-07, /* 0x3e8cf06902e4cd36 */ + 5.68271098300441214948e-08, /* 0x3e6e82422d4f6d10 */ + 1.70331455823369124256e-08, /* 0x3e524a091063e6c0 */ + 9.17590028095709583247e-08, /* 0x3e78a1a172dc6f38 */ + 2.77266304112916566247e-07, /* 0x3e929b6619f8a92d */ + 9.37041937614656939690e-08, /* 0x3e79274d9c1b70c8 */ + 1.56116346368316796511e-08, /* 0x3e50c34b1fbb7930 */ + 4.13967433808382727413e-08, /* 0x3e6639866c20eb50 */ + 1.70164749185821616276e-07, /* 0x3e86d6d0f6832e9e */ + 4.01708788545600086008e-07, /* 0x3e9af54def99f25e */ + 2.59663539226050551563e-07, /* 0x3e916cfc52a00262 */ + 2.22007487655027469542e-07, /* 0x3e8dcc1e83569c32 */ + 2.90542250809644081369e-07, /* 0x3e937f7a551ed425 */ + 4.67720537666628903341e-07, /* 0x3e9f6360adc98887 */ + 2.79799803956772554802e-07, /* 0x3e92c6ec8d35a2c1 */ + 2.07344552327432547723e-07, /* 0x3e8bd44df84cb036 */ + 2.54705698692735196368e-07, /* 0x3e9117cf826e310e */ + 4.26848589539548450728e-07, /* 0x3e9ca533f332cfc9 */ + 2.52506723633552216197e-07, /* 0x3e90f208509dbc2e */ + 2.14684129933849704964e-07, /* 0x3e8cd07d93c945de */ + 3.20134822201596505431e-07, /* 0x3e957bdfd67e6d72 */ + 9.93537565749855712134e-08, /* 0x3e7aab89c516c658 */ + 3.70792944827917252327e-08, /* 0x3e63e823b1a1b8a0 */ + 1.41772749369083698972e-07, /* 0x3e8307464a9d6d3c */ + 4.22446601490198804306e-07, /* 0x3e9c5993cd438843 */ + 4.11818433724801511540e-07, /* 0x3e9ba2fca02ab554 */ + 1.19976381502605310519e-07, /* 0x3e801a5b6983a268 */ + 3.43703078571520905265e-08, /* 0x3e6273d1b350efc8 */ + 1.66128705555453270379e-07, /* 0x3e864c238c37b0c6 */ + 5.00499610023283006540e-08, /* 0x3e6aded07370a300 */ + 1.75105139941208062123e-07, /* 0x3e878091197eb47e */ + 7.70807146729030327334e-08, /* 0x3e74b0f245e0dabc */ + 2.45918607526895836121e-07, /* 0x3e9080d9794e2eaf */ + 2.18359020958626199345e-07, /* 0x3e8d4ec242b60c76 */ + 8.44342887976445333569e-09, /* 0x3e4221d2f940caa0 */ + 1.07506148687888629299e-07, /* 0x3e7cdbc42b2bba5c */ + 5.36544954316820904572e-08, /* 0x3e6cce37bb440840 */ + 3.39109101518396596341e-07, /* 0x3e96c1d999cf1dd0 */ + 2.60098720293920613340e-08, /* 0x3e5bed8a07eb0870 */ + 8.42678991664621455827e-08, /* 0x3e769ed88f490e3c */ + 5.36972237470183633197e-08, /* 0x3e6cd41719b73ef0 */ + 4.28192558171921681288e-07, /* 0x3e9cbc4ac95b41b7 */ + 2.71535491483955143294e-07, /* 0x3e9238f1b890f5d7 */ + 7.84094998145075780203e-08, /* 0x3e750c4282259cc4 */ + 3.43880599134117431863e-07, /* 0x3e9713d2de87b3e2 */ + 1.32878065060366481043e-07, /* 0x3e81d5a7d2255276 */ + 4.18046802627967629428e-07, /* 0x3e9c0dfd48227ac1 */ + 2.65042411765766019424e-07, /* 0x3e91c964dab76753 */ + 1.70383695347518643694e-07, /* 0x3e86de56d5704496 */ + 1.54096497259613515678e-07, /* 0x3e84aeb71fd19968 */ + 2.36543402412459813461e-07, /* 0x3e8fbf91c57b1918 */ + 4.38416350106876736790e-07, /* 0x3e9d6bef7fbe5d9a */ + 3.03892161339927775731e-07, /* 0x3e9464d3dc249066 */ + 3.31136771605664899240e-07, /* 0x3e9638e2ec4d9073 */ + 6.49494294526590682218e-08, /* 0x3e716f4a7247ea7c */ + 4.10423429887181345747e-09, /* 0x3e31a0a740f1d440 */ + 1.70831640869113847224e-07, /* 0x3e86edbb0114a33c */ + 1.10811512657909180966e-07, /* 0x3e7dbee8bf1d513c */ + 3.23677724749783611964e-07, /* 0x3e95b8bdb0248f73 */ + 3.55662734259192678528e-07, /* 0x3e97de3d3f5eac64 */ + 2.30102333489738219140e-07, /* 0x3e8ee24187ae448a */ + 4.47429004000738629714e-07, /* 0x3e9e06c591ec5192 */ + 7.78167135617329598659e-08, /* 0x3e74e3861a332738 */ + 9.90345291908535415737e-08, /* 0x3e7a9599dcc2bfe4 */ + 5.85800913143113728314e-08, /* 0x3e6f732fbad43468 */ + 4.57859062410871843857e-07, /* 0x3e9eb9f573b727d9 */ + 3.67993069723390929794e-07, /* 0x3e98b212a2eb9897 */ + 2.90836464322977276043e-07, /* 0x3e9384884c167215 */ + 2.51621574250131388318e-07, /* 0x3e90e2d363020051 */ + 2.75789824740652815545e-07, /* 0x3e92820879fbd022 */ + 3.88985776250314403593e-07, /* 0x3e9a1ab9893e4b30 */ + 1.40214080183768019611e-07, /* 0x3e82d1b817a24478 */ + 3.23451432223550478373e-08, /* 0x3e615d7b8ded4878 */ + 9.15979180730608444470e-08, /* 0x3e78968f9db3a5e4 */ + 3.44371402498640470421e-07, /* 0x3e971c4171fe135f */ + 3.40401897215059498077e-07, /* 0x3e96d80f605d0d8c */ + 1.06431813453707950243e-07, /* 0x3e7c91f043691590 */ + 1.46204238932338846248e-07, /* 0x3e839f8a15fce2b2 */ + 9.94610376972039046878e-09, /* 0x3e455beda9d94b80 */ + 2.01711528092681771039e-07, /* 0x3e8b12c15d60949a */ + 2.72027977986191568296e-07, /* 0x3e924167b312bfe3 */ + 2.48402602511693757964e-07, /* 0x3e90ab8633070277 */ + 1.58480011219249621715e-07, /* 0x3e854554ebbc80ee */ + 3.00372828113368713281e-08, /* 0x3e60204aef5a4bb8 */ + 3.67816204583541976394e-07, /* 0x3e98af08c679cf2c */ + 2.46169793032343824291e-07, /* 0x3e90852a330ae6c8 */ + 1.70080468270204253247e-07, /* 0x3e86d3eb9ec32916 */ + 1.67806717763872914315e-07, /* 0x3e8685cb7fcbbafe */ + 2.67715622006907942620e-07, /* 0x3e91f751c1e0bd95 */ + 2.14411342550299170574e-08, /* 0x3e5705b1b0f72560 */ + 4.11228221283669073277e-07, /* 0x3e9b98d8d808ca92 */ + 3.52311752396749662260e-08, /* 0x3e62ea22c75cc980 */ + 3.52718000397367821054e-07, /* 0x3e97aba62bca0350 */ + 4.38857387992911129814e-07, /* 0x3e9d73833442278c */ + 3.22574606753482540743e-07, /* 0x3e95a5ca1fb18bf9 */ + 3.28730371182804296828e-08, /* 0x3e61a6092b6ecf28 */ + 7.56672470607639279700e-08, /* 0x3e744fd049aac104 */ + 3.26750155316369681821e-09, /* 0x3e2c114fd8df5180 */ + 3.21724445362095284743e-07, /* 0x3e95972f130feae5 */ + 1.06639427371776571151e-07, /* 0x3e7ca034a55fe198 */ + 3.41020788139524715063e-07, /* 0x3e96e2b149990227 */ + 1.00582838631232552824e-07, /* 0x3e7b00000294592c */ + 3.68439433859276640065e-07, /* 0x3e98b9bdc442620e */ + 2.20403078342388012027e-07, /* 0x3e8d94fdfabf3e4e */ + 1.62841467098298142534e-07, /* 0x3e85db30b145ad9a */ + 2.25325348296680733838e-07, /* 0x3e8e3e1eb95022b0 */ + 4.37462238226421614339e-07, /* 0x3e9d5b8b45442bd6 */ + 3.52055880555040706500e-07, /* 0x3e97a046231ecd2e */ + 4.75614398494781776825e-07, /* 0x3e9feafe3ef55232 */ + 3.60998399033215317516e-07, /* 0x3e9839e7bfd78267 */ + 3.79292434611513945954e-08, /* 0x3e645cf49d6fa900 */ + 1.29859015528549300061e-08, /* 0x3e4be3132b27f380 */ + 3.15927546985474913188e-07, /* 0x3e9533980bb84f9f */ + 2.28533679887379668031e-08, /* 0x3e5889e2ce3ba390 */ + 1.17222541823553133877e-07, /* 0x3e7f7778c3ad0cc8 */ + 1.51991208405464415857e-07, /* 0x3e846660cec4eba2 */ + 1.56958239325240655564e-07}; /* 0x3e85110b4611a626 */ + + /* Some constants and split constants. */ + + static double pi = 3.1415926535897932e+00, /* 0x400921fb54442d18 */ + piby2 = 1.5707963267948966e+00, /* 0x3ff921fb54442d18 */ + piby4 = 7.8539816339744831e-01, /* 0x3fe921fb54442d18 */ + three_piby4 = 2.3561944901923449e+00, /* 0x4002d97c7f3321d2 */ + pi_head = 3.1415926218032836e+00, /* 0x400921fb50000000 */ + pi_tail = 3.1786509547056392e-08, /* 0x3e6110b4611a6263 */ + piby2_head = 1.5707963267948965e+00, /* 0x3ff921fb54442d18 */ + piby2_tail = 6.1232339957367660e-17; /* 0x3c91a62633145c07 */ + + double u, v, vbyu, q1, q2, s, u1, vu1, u2, vu2, uu, c, r; + unsigned int swap_vu, index, xzero, yzero, xnan, ynan, xinf, yinf; + int m, xexp, yexp, diffexp; + + /* Find properties of arguments x and y. */ + + unsigned long ux, ui, aux, xneg, uy, auy, yneg; + + GET_BITS_DP64(x, ux); + GET_BITS_DP64(y, uy); + aux = ux & ~SIGNBIT_DP64; + auy = uy & ~SIGNBIT_DP64; + xexp = (int)((ux & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); + yexp = (int)((uy & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); + xneg = ux & SIGNBIT_DP64; + yneg = uy & SIGNBIT_DP64; + xzero = (aux == 0); + yzero = (auy == 0); + xnan = (aux > PINFBITPATT_DP64); + ynan = (auy > PINFBITPATT_DP64); + xinf = (aux == PINFBITPATT_DP64); + yinf = (auy == PINFBITPATT_DP64); + + diffexp = yexp - xexp; + + /* Special cases */ + + if (xnan) + return _handle_error("atan2", OP_ATAN2, ux|0x0008000000000000, _DOMAIN, 0, + EDOM, x, y, 2); + else if (ynan) + return _handle_error("atan2", OP_ATAN2, uy|0x0008000000000000, _DOMAIN, 0, + EDOM, x, y, 2); + else if (yzero) + { /* Zero y gives +-0 for positive x + and +-pi for negative x */ + if (xneg) + { + if (yneg) return val_with_flags(-pi,AMD_F_INEXACT); + else return val_with_flags(pi,AMD_F_INEXACT); + } + else return y; + } + else if (xzero) + { /* Zero x gives +- pi/2 + depending on sign of y */ + if (yneg) return val_with_flags(-piby2,AMD_F_INEXACT); + else val_with_flags(piby2,AMD_F_INEXACT); + } + + /* Scale up both x and y if they are both below 1/4. + This avoids any possible later denormalised arithmetic. */ + + if ((xexp < 1021 && yexp < 1021)) + { + scaleUpDouble1024(ux, &ux); + scaleUpDouble1024(uy, &uy); + PUT_BITS_DP64(ux, x); + PUT_BITS_DP64(uy, y); + xexp = (int)((ux & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); + yexp = (int)((uy & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); + diffexp = yexp - xexp; + } + + if (diffexp > 56) + { /* abs(y)/abs(x) > 2^56 => arctan(x/y) + is insignificant compared to piby2 */ + if (yneg) return val_with_flags(-piby2,AMD_F_INEXACT); + else return val_with_flags(piby2,AMD_F_INEXACT); + } + else if (diffexp < -28 && (!xneg)) + { /* x positive and dominant over y by a factor of 2^28. + In this case atan(y/x) is y/x to machine accuracy. */ + + if (diffexp < -1074) /* Result underflows */ + { + if (yneg) + return val_with_flags(-0.0,AMD_F_INEXACT | AMD_F_UNDERFLOW); + else + return val_with_flags(0.0,AMD_F_INEXACT | AMD_F_UNDERFLOW); + } + else + { + if (diffexp < -1022) + { + /* Result will likely be denormalized */ + y = scaleDouble_1(y, 100); + y /= x; + /* Now y is 2^100 times the true result. Scale it back down. */ + GET_BITS_DP64(y, uy); + scaleDownDouble(uy, 100, &uy); + PUT_BITS_DP64(uy, y); + if ((uy & EXPBITS_DP64) == 0) + return val_with_flags(y, AMD_F_INEXACT | AMD_F_UNDERFLOW); + else + return y; + } + else + return y / x; + } + } + else if (diffexp < -56 && xneg) + { /* abs(x)/abs(y) > 2^56 and x < 0 => arctan(y/x) + is insignificant compared to pi */ + if (yneg) return val_with_flags(-pi,AMD_F_INEXACT); + else return val_with_flags(pi,AMD_F_INEXACT); + } + else if (yinf && xinf) + { /* If abs(x) and abs(y) are both infinity + return +-pi/4 or +- 3pi/4 according to + signs. */ + if (xneg) + { + if (yneg) return val_with_flags(-three_piby4,AMD_F_INEXACT); + else return val_with_flags(three_piby4,AMD_F_INEXACT); + } + else + { + if (yneg) return val_with_flags(-piby4,AMD_F_INEXACT); + else return val_with_flags(piby4,AMD_F_INEXACT); + } + } + + /* General case: take absolute values of arguments */ + + u = x; v = y; + if (xneg) u = -x; + if (yneg) v = -y; + + /* Swap u and v if necessary to obtain 0 < v < u. Compute v/u. */ + + swap_vu = (u < v); + if (swap_vu) { uu = u; u = v; v = uu; } + vbyu = v/u; + + if (vbyu > 0.0625) + { /* General values of v/u. Use a look-up + table and series expansion. */ + + index = (int)(256*vbyu + 0.5); + q1 = atan_jby256_lead[index-16]; + q2 = atan_jby256_tail[index-16]; + c = index*1./256; + GET_BITS_DP64(u, ui); + m = (int)((ui & EXPBITS_DP64) >> EXPSHIFTBITS_DP64) - EXPBIAS_DP64; + u = scaleDouble_2(u,-m); + v = scaleDouble_2(v,-m); + GET_BITS_DP64(u, ui); + PUT_BITS_DP64(0xfffffffff8000000 & ui, u1); /* 26 leading bits of u */ + u2 = u - u1; + + r = ((v-c*u1)-c*u2)/(u+c*v); + + /* Polynomial approximation to atan(r) */ + + s = r*r; + q2 = q2 + r - r*(s * (0.33333333333224095522 - s*(0.19999918038989143496))); + } + else if (vbyu < 1.e-8) + { /* v/u is small enough that atan(v/u) = v/u */ + q1 = 0.0; + q2 = vbyu; + } + else /* vbyu <= 0.0625 */ + { + /* Small values of v/u. Use a series expansion + computed carefully to minimise cancellation */ + + GET_BITS_DP64(u, ui); + PUT_BITS_DP64(0xffffffff00000000 & ui, u1); + GET_BITS_DP64(vbyu, ui); + PUT_BITS_DP64(0xffffffff00000000 & ui, vu1); + u2 = u - u1; + vu2 = vbyu - vu1; + + q1 = 0.0; + s = vbyu*vbyu; + q2 = vbyu + + ((((v - u1*vu1) - u2*vu1) - u*vu2)/u - + (vbyu*s*(0.33333333333333170500 - + s*(0.19999999999393223405 - + s*(0.14285713561807169030 - + s*(0.11110736283514525407 - + s*(0.90029810285449784439E-01))))))); + } + + /* Tidy-up according to which quadrant the arguments lie in */ + + if (swap_vu) {q1 = piby2_head - q1; q2 = piby2_tail - q2;} + if (xneg) {q1 = pi_head - q1; q2 = pi_tail - q2;} + q1 = q1 + q2; + + if (yneg) q1 = - q1; + + return q1; +} diff --git a/sdk/lib/crt/math/libm_sse2/atan2f.c b/sdk/lib/crt/math/libm_sse2/atan2f.c new file mode 100644 index 00000000000..42d54cda2d5 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/atan2f.c @@ -0,0 +1,469 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VALF_WITH_FLAGS +#define USE_NAN_WITH_FLAGS +#define USE_SCALEDOUBLE_1 +#define USE_SCALEDOWNDOUBLE +#define USE_HANDLE_ERRORF +#include "libm_inlines.h" +#undef USE_VALF_WITH_FLAGS +#undef USE_NAN_WITH_FLAGS +#undef USE_SCALEDOUBLE_1 +#undef USE_SCALEDOWNDOUBLE +#undef USE_HANDLE_ERRORF + +#include "libm_errno.h" + +// Disable "C4163: not available as intrinsic function" warning that older +// compilers may issue here. +#pragma warning(disable:4163) +#pragma function(atan2f) + +float FN_PROTOTYPE(atan2f)(float fy, float fx) +{ + /* Array atan_jby256 contains precomputed values of atan(j/256), + for j = 16, 17, ..., 256. */ + + static const double atan_jby256[ 241] = { + 6.24188099959573430842e-02, /* 0x3faff55bb72cfde9 */ + 6.63088949198234745008e-02, /* 0x3fb0f99ea71d52a6 */ + 7.01969710718705064423e-02, /* 0x3fb1f86dbf082d58 */ + 7.40829225490337306415e-02, /* 0x3fb2f719318a4a9a */ + 7.79666338315423007588e-02, /* 0x3fb3f59f0e7c559d */ + 8.18479898030765457007e-02, /* 0x3fb4f3fd677292fb */ + 8.57268757707448092464e-02, /* 0x3fb5f2324fd2d7b2 */ + 8.96031774848717321724e-02, /* 0x3fb6f03bdcea4b0c */ + 9.34767811585894559112e-02, /* 0x3fb7ee182602f10e */ + 9.73475734872236708739e-02, /* 0x3fb8ebc54478fb28 */ + 1.01215441667466668485e-01, /* 0x3fb9e94153cfdcf1 */ + 1.05080273416329528224e-01, /* 0x3fbae68a71c722b8 */ + 1.08941956989865793015e-01, /* 0x3fbbe39ebe6f07c3 */ + 1.12800381201659388752e-01, /* 0x3fbce07c5c3cca32 */ + 1.16655435441069349478e-01, /* 0x3fbddd21701eba6e */ + 1.20507009691224548087e-01, /* 0x3fbed98c2190043a */ + 1.24354994546761424279e-01, /* 0x3fbfd5ba9aac2f6d */ + 1.28199281231298117811e-01, /* 0x3fc068d584212b3d */ + 1.32039761614638734288e-01, /* 0x3fc0e6adccf40881 */ + 1.35876328229701304195e-01, /* 0x3fc1646541060850 */ + 1.39708874289163620386e-01, /* 0x3fc1e1fafb043726 */ + 1.43537293701821222491e-01, /* 0x3fc25f6e171a535c */ + 1.47361481088651630200e-01, /* 0x3fc2dcbdb2fba1ff */ + 1.51181331798580037562e-01, /* 0x3fc359e8edeb99a3 */ + 1.54996741923940972718e-01, /* 0x3fc3d6eee8c6626c */ + 1.58807608315631065832e-01, /* 0x3fc453cec6092a9e */ + 1.62613828597948567589e-01, /* 0x3fc4d087a9da4f17 */ + 1.66415301183114927586e-01, /* 0x3fc54d18ba11570a */ + 1.70211925285474380276e-01, /* 0x3fc5c9811e3ec269 */ + 1.74003600935367680469e-01, /* 0x3fc645bfffb3aa73 */ + 1.77790228992676047071e-01, /* 0x3fc6c1d4898933d8 */ + 1.81571711160032150945e-01, /* 0x3fc73dbde8a7d201 */ + 1.85347949995694760705e-01, /* 0x3fc7b97b4bce5b02 */ + 1.89118848926083965578e-01, /* 0x3fc8350be398ebc7 */ + 1.92884312257974643856e-01, /* 0x3fc8b06ee2879c28 */ + 1.96644245190344985064e-01, /* 0x3fc92ba37d050271 */ + 2.00398553825878511514e-01, /* 0x3fc9a6a8e96c8626 */ + 2.04147145182116990236e-01, /* 0x3fca217e601081a5 */ + 2.07889927202262986272e-01, /* 0x3fca9c231b403279 */ + 2.11626808765629753628e-01, /* 0x3fcb1696574d780b */ + 2.15357699697738047551e-01, /* 0x3fcb90d7529260a2 */ + 2.19082510780057748701e-01, /* 0x3fcc0ae54d768466 */ + 2.22801153759394493514e-01, /* 0x3fcc84bf8a742e6d */ + 2.26513541356919617664e-01, /* 0x3fccfe654e1d5395 */ + 2.30219587276843717927e-01, /* 0x3fcd77d5df205736 */ + 2.33919206214733416127e-01, /* 0x3fcdf110864c9d9d */ + 2.37612313865471241892e-01, /* 0x3fce6a148e96ec4d */ + 2.41298826930858800743e-01, /* 0x3fcee2e1451d980c */ + 2.44978663126864143473e-01, /* 0x3fcf5b75f92c80dd */ + 2.48651741190513253521e-01, /* 0x3fcfd3d1fc40dbe4 */ + 2.52317980886427151166e-01, /* 0x3fd025fa510665b5 */ + 2.55977303013005474952e-01, /* 0x3fd061eea03d6290 */ + 2.59629629408257511791e-01, /* 0x3fd09dc597d86362 */ + 2.63274882955282396590e-01, /* 0x3fd0d97ee509acb3 */ + 2.66912987587400396539e-01, /* 0x3fd1151a362431c9 */ + 2.70543868292936529052e-01, /* 0x3fd150973a9ce546 */ + 2.74167451119658789338e-01, /* 0x3fd18bf5a30bf178 */ + 2.77783663178873208022e-01, /* 0x3fd1c735212dd883 */ + 2.81392432649178403370e-01, /* 0x3fd2025567e47c95 */ + 2.84993688779881237938e-01, /* 0x3fd23d562b381041 */ + 2.88587361894077354396e-01, /* 0x3fd278372057ef45 */ + 2.92173383391398755471e-01, /* 0x3fd2b2f7fd9b5fe2 */ + 2.95751685750431536626e-01, /* 0x3fd2ed987a823cfe */ + 2.99322202530807379706e-01, /* 0x3fd328184fb58951 */ + 3.02884868374971361060e-01, /* 0x3fd362773707ebcb */ + 3.06439619009630070945e-01, /* 0x3fd39cb4eb76157b */ + 3.09986391246883430384e-01, /* 0x3fd3d6d129271134 */ + 3.13525122985043869228e-01, /* 0x3fd410cbad6c7d32 */ + 3.17055753209146973237e-01, /* 0x3fd44aa436c2af09 */ + 3.20578221991156986359e-01, /* 0x3fd4845a84d0c21b */ + 3.24092470489871664618e-01, /* 0x3fd4bdee586890e6 */ + 3.27598440950530811477e-01, /* 0x3fd4f75f73869978 */ + 3.31096076704132047386e-01, /* 0x3fd530ad9951cd49 */ + 3.34585322166458920545e-01, /* 0x3fd569d88e1b4cd7 */ + 3.38066122836825466713e-01, /* 0x3fd5a2e0175e0f4e */ + 3.41538425296541714449e-01, /* 0x3fd5dbc3fbbe768d */ + 3.45002177207105076295e-01, /* 0x3fd614840309cfe1 */ + 3.48457327308122011278e-01, /* 0x3fd64d1ff635c1c5 */ + 3.51903825414964732676e-01, /* 0x3fd685979f5fa6fd */ + 3.55341622416168290144e-01, /* 0x3fd6bdeac9cbd76c */ + 3.58770670270572189509e-01, /* 0x3fd6f61941e4def0 */ + 3.62190922004212156882e-01, /* 0x3fd72e22d53aa2a9 */ + 3.65602331706966821034e-01, /* 0x3fd7660752817501 */ + 3.69004854528964421068e-01, /* 0x3fd79dc6899118d1 */ + 3.72398446676754202311e-01, /* 0x3fd7d5604b63b3f7 */ + 3.75783065409248884237e-01, /* 0x3fd80cd46a14b1d0 */ + 3.79158669033441808605e-01, /* 0x3fd84422b8df95d7 */ + 3.82525216899905096124e-01, /* 0x3fd87b4b0c1ebedb */ + 3.85882669398073752109e-01, /* 0x3fd8b24d394a1b25 */ + 3.89230987951320717144e-01, /* 0x3fd8e92916f5cde8 */ + 3.92570135011828580396e-01, /* 0x3fd91fde7cd0c662 */ + 3.95900074055262896078e-01, /* 0x3fd9566d43a34907 */ + 3.99220769575252543149e-01, /* 0x3fd98cd5454d6b18 */ + 4.02532187077682512832e-01, /* 0x3fd9c3165cc58107 */ + 4.05834293074804064450e-01, /* 0x3fd9f93066168001 */ + 4.09127055079168300278e-01, /* 0x3fda2f233e5e530b */ + 4.12410441597387267265e-01, /* 0x3fda64eec3cc23fc */ + 4.15684422123729413467e-01, /* 0x3fda9a92d59e98cf */ + 4.18948967133552840902e-01, /* 0x3fdad00f5422058b */ + 4.22204048076583571270e-01, /* 0x3fdb056420ae9343 */ + 4.25449637370042266227e-01, /* 0x3fdb3a911da65c6c */ + 4.28685708391625730496e-01, /* 0x3fdb6f962e737efb */ + 4.31912235472348193799e-01, /* 0x3fdba473378624a5 */ + 4.35129193889246812521e-01, /* 0x3fdbd9281e528191 */ + 4.38336559857957774877e-01, /* 0x3fdc0db4c94ec9ef */ + 4.41534310525166673322e-01, /* 0x3fdc42191ff11eb6 */ + 4.44722423960939305942e-01, /* 0x3fdc76550aad71f8 */ + 4.47900879150937292206e-01, /* 0x3fdcaa6872f3631b */ + 4.51069655988523443568e-01, /* 0x3fdcde53432c1350 */ + 4.54228735266762495559e-01, /* 0x3fdd121566b7f2ad */ + 4.57378098670320809571e-01, /* 0x3fdd45aec9ec862b */ + 4.60517728767271039558e-01, /* 0x3fdd791f5a1226f4 */ + 4.63647609000806093515e-01, /* 0x3fddac670561bb4f */ + 4.66767723680866497560e-01, /* 0x3fdddf85bb026974 */ + 4.69878057975686880265e-01, /* 0x3fde127b6b0744af */ + 4.72978597903265574054e-01, /* 0x3fde4548066cf51a */ + 4.76069330322761219421e-01, /* 0x3fde77eb7f175a34 */ + 4.79150242925822533735e-01, /* 0x3fdeaa65c7cf28c4 */ + 4.82221324227853687105e-01, /* 0x3fdedcb6d43f8434 */ + 4.85282563559221225002e-01, /* 0x3fdf0ede98f393cf */ + 4.88333951056405479729e-01, /* 0x3fdf40dd0b541417 */ + 4.91375477653101910835e-01, /* 0x3fdf72b221a4e495 */ + 4.94407135071275316562e-01, /* 0x3fdfa45dd3029258 */ + 4.97428915812172245392e-01, /* 0x3fdfd5e0175fdf83 */ + 5.00440813147294050189e-01, /* 0x3fe0039c73c1a40b */ + 5.03442821109336358099e-01, /* 0x3fe01c341e82422d */ + 5.06434934483096732549e-01, /* 0x3fe034b709250488 */ + 5.09417148796356245022e-01, /* 0x3fe04d25314342e5 */ + 5.12389460310737621107e-01, /* 0x3fe0657e94db30cf */ + 5.15351866012543347040e-01, /* 0x3fe07dc3324e9b38 */ + 5.18304363603577900044e-01, /* 0x3fe095f30861a58f */ + 5.21246951491958210312e-01, /* 0x3fe0ae0e1639866c */ + 5.24179628782913242802e-01, /* 0x3fe0c6145b5b43da */ + 5.27102395269579471204e-01, /* 0x3fe0de05d7aa6f7c */ + 5.30015251423793132268e-01, /* 0x3fe0f5e28b67e295 */ + 5.32918198386882147055e-01, /* 0x3fe10daa77307a0d */ + 5.35811237960463593311e-01, /* 0x3fe1255d9bfbd2a8 */ + 5.38694372597246617929e-01, /* 0x3fe13cfbfb1b056e */ + 5.41567605391844897333e-01, /* 0x3fe1548596376469 */ + 5.44430940071603086672e-01, /* 0x3fe16bfa6f5137e1 */ + 5.47284380987436924748e-01, /* 0x3fe1835a88be7c13 */ + 5.50127933104692989907e-01, /* 0x3fe19aa5e5299f99 */ + 5.52961601994028217888e-01, /* 0x3fe1b1dc87904284 */ + 5.55785393822313511514e-01, /* 0x3fe1c8fe7341f64f */ + 5.58599315343562330405e-01, /* 0x3fe1e00babdefeb3 */ + 5.61403373889889367732e-01, /* 0x3fe1f7043557138a */ + 5.64197577362497537656e-01, /* 0x3fe20de813e823b1 */ + 5.66981934222700489912e-01, /* 0x3fe224b74c1d192a */ + 5.69756453482978431069e-01, /* 0x3fe23b71e2cc9e6a */ + 5.72521144698072359525e-01, /* 0x3fe25217dd17e501 */ + 5.75276017956117824426e-01, /* 0x3fe268a940696da6 */ + 5.78021083869819540801e-01, /* 0x3fe27f261273d1b3 */ + 5.80756353567670302596e-01, /* 0x3fe2958e59308e30 */ + 5.83481838685214859730e-01, /* 0x3fe2abe21aded073 */ + 5.86197551356360535557e-01, /* 0x3fe2c2215e024465 */ + 5.88903504204738026395e-01, /* 0x3fe2d84c2961e48b */ + 5.91599710335111383941e-01, /* 0x3fe2ee628406cbca */ + 5.94286183324841177367e-01, /* 0x3fe30464753b090a */ + 5.96962937215401501234e-01, /* 0x3fe31a52048874be */ + 5.99629986503951384336e-01, /* 0x3fe3302b39b78856 */ + 6.02287346134964152178e-01, /* 0x3fe345f01cce37bb */ + 6.04935031491913965951e-01, /* 0x3fe35ba0b60eccce */ + 6.07573058389022313541e-01, /* 0x3fe3713d0df6c503 */ + 6.10201443063065118722e-01, /* 0x3fe386c52d3db11e */ + 6.12820202165241245673e-01, /* 0x3fe39c391cd41719 */ + 6.15429352753104952356e-01, /* 0x3fe3b198e5e2564a */ + 6.18028912282561737612e-01, /* 0x3fe3c6e491c78dc4 */ + 6.20618898599929469384e-01, /* 0x3fe3dc1c2a188504 */ + 6.23199329934065904268e-01, /* 0x3fe3f13fb89e96f4 */ + 6.25770224888563042498e-01, /* 0x3fe4064f47569f48 */ + 6.28331602434009650615e-01, /* 0x3fe41b4ae06fea41 */ + 6.30883481900321840818e-01, /* 0x3fe430328e4b26d5 */ + 6.33425882969144482537e-01, /* 0x3fe445065b795b55 */ + 6.35958825666321447834e-01, /* 0x3fe459c652badc7f */ + 6.38482330354437466191e-01, /* 0x3fe46e727efe4715 */ + 6.40996417725432032775e-01, /* 0x3fe4830aeb5f7bfd */ + 6.43501108793284370968e-01, /* 0x3fe4978fa3269ee1 */ + 6.45996424886771558604e-01, /* 0x3fe4ac00b1c71762 */ + 6.48482387642300484032e-01, /* 0x3fe4c05e22de94e4 */ + 6.50959018996812410762e-01, /* 0x3fe4d4a8023414e8 */ + 6.53426341180761927063e-01, /* 0x3fe4e8de5bb6ec04 */ + 6.55884376711170835605e-01, /* 0x3fe4fd013b7dd17e */ + 6.58333148384755983962e-01, /* 0x3fe51110adc5ed81 */ + 6.60772679271132590273e-01, /* 0x3fe5250cbef1e9fa */ + 6.63202992706093175102e-01, /* 0x3fe538f57b89061e */ + 6.65624112284960989250e-01, /* 0x3fe54ccaf0362c8f */ + 6.68036061856020157990e-01, /* 0x3fe5608d29c70c34 */ + 6.70438865514021320458e-01, /* 0x3fe5743c352b33b9 */ + 6.72832547593763097282e-01, /* 0x3fe587d81f732fba */ + 6.75217132663749830535e-01, /* 0x3fe59b60f5cfab9d */ + 6.77592645519925151909e-01, /* 0x3fe5aed6c5909517 */ + 6.79959111179481823228e-01, /* 0x3fe5c2399c244260 */ + 6.82316554874748071313e-01, /* 0x3fe5d58987169b18 */ + 6.84665002047148862907e-01, /* 0x3fe5e8c6941043cf */ + 6.87004478341244895212e-01, /* 0x3fe5fbf0d0d5cc49 */ + 6.89335009598845749323e-01, /* 0x3fe60f084b46e05e */ + 6.91656621853199760075e-01, /* 0x3fe6220d115d7b8d */ + 6.93969341323259825138e-01, /* 0x3fe634ff312d1f3b */ + 6.96273194408023488045e-01, /* 0x3fe647deb8e20b8f */ + 6.98568207680949848637e-01, /* 0x3fe65aabb6c07b02 */ + 7.00854407884450081312e-01, /* 0x3fe66d663923e086 */ + 7.03131821924453670469e-01, /* 0x3fe6800e4e7e2857 */ + 7.05400476865049030906e-01, /* 0x3fe692a40556fb6a */ + 7.07660399923197958039e-01, /* 0x3fe6a5276c4b0575 */ + 7.09911618463524796141e-01, /* 0x3fe6b798920b3d98 */ + 7.12154159993178659249e-01, /* 0x3fe6c9f7855c3198 */ + 7.14388052156768926793e-01, /* 0x3fe6dc44551553ae */ + 7.16613322731374569052e-01, /* 0x3fe6ee7f10204aef */ + 7.18829999621624415873e-01, /* 0x3fe700a7c5784633 */ + 7.21038110854851588272e-01, /* 0x3fe712be84295198 */ + 7.23237684576317874097e-01, /* 0x3fe724c35b4fae7b */ + 7.25428749044510712274e-01, /* 0x3fe736b65a172dff */ + 7.27611332626510676214e-01, /* 0x3fe748978fba8e0f */ + 7.29785463793429123314e-01, /* 0x3fe75a670b82d8d8 */ + 7.31951171115916565668e-01, /* 0x3fe76c24dcc6c6c0 */ + 7.34108483259739652560e-01, /* 0x3fe77dd112ea22c7 */ + 7.36257428981428097003e-01, /* 0x3fe78f6bbd5d315e */ + 7.38398037123989547936e-01, /* 0x3fe7a0f4eb9c19a2 */ + 7.40530336612692630105e-01, /* 0x3fe7b26cad2e50fd */ + 7.42654356450917929600e-01, /* 0x3fe7c3d311a6092b */ + 7.44770125716075148681e-01, /* 0x3fe7d528289fa093 */ + 7.46877673555587429099e-01, /* 0x3fe7e66c01c114fd */ + 7.48977029182941400620e-01, /* 0x3fe7f79eacb97898 */ + 7.51068221873802288613e-01, /* 0x3fe808c03940694a */ + 7.53151280962194302759e-01, /* 0x3fe819d0b7158a4c */ + 7.55226235836744863583e-01, /* 0x3fe82ad036000005 */ + 7.57293115936992444759e-01, /* 0x3fe83bbec5cdee22 */ + 7.59351950749757920178e-01, /* 0x3fe84c9c7653f7ea */ + 7.61402769805578416573e-01, /* 0x3fe85d69576cc2c5 */ + 7.63445602675201784315e-01, /* 0x3fe86e2578f87ae5 */ + 7.65480478966144461950e-01, /* 0x3fe87ed0eadc5a2a */ + 7.67507428319308182552e-01, /* 0x3fe88f6bbd023118 */ + 7.69526480405658186434e-01, /* 0x3fe89ff5ff57f1f7 */ + 7.71537664922959498526e-01, /* 0x3fe8b06fc1cf3dfe */ + 7.73541011592573490852e-01, /* 0x3fe8c0d9145cf49d */ + 7.75536550156311621507e-01, /* 0x3fe8d13206f8c4ca */ + 7.77524310373347682379e-01, /* 0x3fe8e17aa99cc05d */ + 7.79504322017186335181e-01, /* 0x3fe8f1b30c44f167 */ + 7.81476614872688268854e-01, /* 0x3fe901db3eeef187 */ + 7.83441218733151756304e-01, /* 0x3fe911f35199833b */ + 7.85398163397448278999e-01}; /* 0x3fe921fb54442d18 */ + + /* Some constants. */ + + static double pi = 3.1415926535897932e+00, /* 0x400921fb54442d18 */ + piby2 = 1.5707963267948966e+00, /* 0x3ff921fb54442d18 */ + piby4 = 7.8539816339744831e-01, /* 0x3fe921fb54442d18 */ + three_piby4 = 2.3561944901923449e+00; /* 0x4002d97c7f3321d2 */ + + double u, v, vbyu, q, s, uu, r; + unsigned int swap_vu, index, xzero, yzero, xnan, ynan, xinf, yinf; + int xexp, yexp, diffexp; + + double x = fx; + double y = fy; + + /* Find properties of arguments x and y. */ + + unsigned long ux, aux, xneg, uy, auy, yneg; + + GET_BITS_DP64(x, ux); + GET_BITS_DP64(y, uy); + aux = ux & ~SIGNBIT_DP64; + auy = uy & ~SIGNBIT_DP64; + xexp = (int)((ux & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); + yexp = (int)((uy & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); + xneg = ux & SIGNBIT_DP64; + yneg = uy & SIGNBIT_DP64; + xzero = (aux == 0); + yzero = (auy == 0); + xnan = (aux > PINFBITPATT_DP64); + ynan = (auy > PINFBITPATT_DP64); + xinf = (aux == PINFBITPATT_DP64); + yinf = (auy == PINFBITPATT_DP64); + + diffexp = yexp - xexp; + + /* Special cases */ + + if (xnan) + { + unsigned int ufx; + GET_BITS_SP32(fx, ufx); + return _handle_errorf("atan2f", OP_ATAN2, ufx|0x00400000, _DOMAIN, 0, + EDOM, fx, fy, 2); + } + else if (ynan) + { + unsigned int ufy; + GET_BITS_SP32(fy, ufy); + return _handle_errorf("atan2f", OP_ATAN2, ufy|0x00400000, _DOMAIN, 0, + EDOM, fx, fy, 2); + } + else if (yzero) + { /* Zero y gives +-0 for positive x + and +-pi for negative x */ + if (xneg) + { + if (yneg) return valf_with_flags((float)-pi, AMD_F_INEXACT); + else return valf_with_flags((float)pi, AMD_F_INEXACT); + } + else return (float)y; + } + else if (xzero) + { /* Zero x gives +- pi/2 + depending on sign of y */ + if (yneg) return valf_with_flags((float)-piby2, AMD_F_INEXACT); + else valf_with_flags((float)piby2, AMD_F_INEXACT); + } + + if (diffexp > 26) + { /* abs(y)/abs(x) > 2^26 => arctan(x/y) + is insignificant compared to piby2 */ + if (yneg) return valf_with_flags((float)-piby2, AMD_F_INEXACT); + else return valf_with_flags((float)piby2, AMD_F_INEXACT); + } + else if (diffexp < -13 && (!xneg)) + { /* x positive and dominant over y by a factor of 2^13. + In this case atan(y/x) is y/x to machine accuracy. */ + + if (diffexp < -150) /* Result underflows */ + { + if (yneg) + return valf_with_flags(-0.0F, AMD_F_INEXACT | AMD_F_UNDERFLOW); + else + return valf_with_flags(0.0F, AMD_F_INEXACT | AMD_F_UNDERFLOW); + } + else + { + if (diffexp < -126) + { + /* Result will likely be denormalized */ + y = scaleDouble_1(y, 100); + y /= x; + /* Now y is 2^100 times the true result. Scale it back down. */ + GET_BITS_DP64(y, uy); + scaleDownDouble(uy, 100, &uy); + PUT_BITS_DP64(uy, y); + if ((uy & EXPBITS_DP64) == 0) + return valf_with_flags((float)y, AMD_F_INEXACT | AMD_F_UNDERFLOW); + else + return (float)y; + } + else + return (float)(y / x); + } + } + else if (diffexp < -26 && xneg) + { /* abs(x)/abs(y) > 2^56 and x < 0 => arctan(y/x) + is insignificant compared to pi */ + if (yneg) return valf_with_flags((float)-pi, AMD_F_INEXACT); + else return valf_with_flags((float)pi, AMD_F_INEXACT); + } + else if (yinf && xinf) + { /* If abs(x) and abs(y) are both infinity + return +-pi/4 or +- 3pi/4 according to + signs. */ + if (xneg) + { + if (yneg) return valf_with_flags((float)-three_piby4, AMD_F_INEXACT); + else return valf_with_flags((float)three_piby4, AMD_F_INEXACT); + } + else + { + if (yneg) return valf_with_flags((float)-piby4, AMD_F_INEXACT); + else return valf_with_flags((float)piby4, AMD_F_INEXACT); + } + } + + /* General case: take absolute values of arguments */ + + u = x; v = y; + if (xneg) u = -x; + if (yneg) v = -y; + + /* Swap u and v if necessary to obtain 0 < v < u. Compute v/u. */ + + swap_vu = (u < v); + if (swap_vu) { uu = u; u = v; v = uu; } + vbyu = v/u; + + if (vbyu > 0.0625) + { /* General values of v/u. Use a look-up + table and series expansion. */ + + index = (int)(256*vbyu + 0.5); + r = (256*v-index*u)/(256*u+index*v); + + /* Polynomial approximation to atan(vbyu) */ + + s = r*r; + q = atan_jby256[index-16] + r - r*s*0.33333333333224095522; + } + else if (vbyu < 1.e-4) + { /* v/u is small enough that atan(v/u) = v/u */ + q = vbyu; + } + else /* vbyu <= 0.0625 */ + { + /* Small values of v/u. Use a series expansion */ + + s = vbyu*vbyu; + q = vbyu - + vbyu*s*(0.33333333333333170500 - + s*(0.19999999999393223405 - + s*0.14285713561807169030)); + } + + /* Tidy-up according to which quadrant the arguments lie in */ + + if (swap_vu) {q = piby2 - q;} + if (xneg) {q = pi - q;} + if (yneg) q = - q; + return (float)q; +} diff --git a/sdk/lib/crt/math/libm_sse2/atanf.c b/sdk/lib/crt/math/libm_sse2/atanf.c new file mode 100644 index 00000000000..08c4eb7ff43 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/atanf.c @@ -0,0 +1,135 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_VALF_WITH_FLAGS +#define USE_NAN_WITH_FLAGS +#define USE_HANDLE_ERRORF +#include "libm_inlines.h" +#undef USE_VALF_WITH_FLAGS +#undef USE_NAN_WITH_FLAGS +#undef USE_HANDLE_ERRORF + +#include "libm_errno.h" + +// Disable "C4163: not available as intrinsic function" warning that older +// compilers may issue here. +#pragma warning(disable:4163) +#pragma function(atanf) + +float FN_PROTOTYPE(atanf)(float fx) +{ + + /* Some constants and split constants. */ + + static double piby2 = 1.5707963267948966e+00; /* 0x3ff921fb54442d18 */ + + double c, v, s, q, z; + unsigned int xnan; + + double x = fx; + + /* Find properties of argument fx. */ + + unsigned long ux, aux, xneg; + + GET_BITS_DP64(x, ux); + aux = ux & ~SIGNBIT_DP64; + xneg = ux & SIGNBIT_DP64; + + v = x; + if (xneg) v = -x; + + /* Argument reduction to range [-7/16,7/16] */ + + if (aux < 0x3fdc000000000000) /* v < 7./16. */ + { + x = v; + c = 0.0; + } + else if (aux < 0x3fe6000000000000) /* v < 11./16. */ + { + x = (2.0*v-1.0)/(2.0+v); + /* c = arctan(0.5) */ + c = 4.63647609000806093515e-01; /* 0x3fddac670561bb4f */ + } + else if (aux < 0x3ff3000000000000) /* v < 19./16. */ + { + x = (v-1.0)/(1.0+v); + /* c = arctan(1.) */ + c = 7.85398163397448278999e-01; /* 0x3fe921fb54442d18 */ + } + else if (aux < 0x4003800000000000) /* v < 39./16. */ + { + x = (v-1.5)/(1.0+1.5*v); + /* c = arctan(1.5) */ + c = 9.82793723247329054082e-01; /* 0x3fef730bd281f69b */ + } + else + { + + xnan = (aux > PINFBITPATT_DP64); + + if (xnan) + { + /* x is NaN */ + unsigned int uhx; + GET_BITS_SP32(fx, uhx); + return _handle_errorf("atanf", OP_ATAN, uhx|0x00400000, _DOMAIN, + 0, EDOM, fx, 0.0F, 1); + } + else if (v > 0x4c80000000000000) + { /* abs(x) > 2^26 => arctan(1/x) is + insignificant compared to piby2 */ + if (xneg) + return valf_with_flags((float)-piby2, AMD_F_INEXACT); + else + return valf_with_flags((float)piby2, AMD_F_INEXACT); + } + + x = -1.0/v; + /* c = arctan(infinity) */ + c = 1.57079632679489655800e+00; /* 0x3ff921fb54442d18 */ + } + + /* Core approximation: Remez(2,2) on [-7/16,7/16] */ + + s = x*x; + q = x*s* + (0.296528598819239217902158651186e0 + + (0.192324546402108583211697690500e0 + + 0.470677934286149214138357545549e-2*s)*s)/ + (0.889585796862432286486651434570e0 + + (0.111072499995399550138837673349e1 + + 0.299309699959659728404442796915e0*s)*s); + + z = c - (q - x); + + if (xneg) z = -z; + return (float)z; +} diff --git a/sdk/lib/crt/math/libm_sse2/cabs.c b/sdk/lib/crt/math/libm_sse2/cabs.c new file mode 100644 index 00000000000..fa1b22a9b62 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/cabs.c @@ -0,0 +1,34 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" + +double __cdecl _cabs(COMPLEX z) +{ + /* Returns the absolute value of a complex number z + with real part a and complex part b. */ +return _hypot(z.x, z.y); +} diff --git a/sdk/lib/crt/math/libm_sse2/cabsf.c b/sdk/lib/crt/math/libm_sse2/cabsf.c new file mode 100644 index 00000000000..c9235ce97bf --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/cabsf.c @@ -0,0 +1,35 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" + +float _hypotf(float,float); +float _cabsf(COMPLEX z) +{ + /* Returns the absolute value of a complex number z + with real part a and complex part b. */ +return _hypotf((float)z.x, (float)z.y); +} diff --git a/sdk/lib/crt/math/libm_sse2/ceil.c b/sdk/lib/crt/math/libm_sse2/ceil.c new file mode 100644 index 00000000000..cb0f155e1d8 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/ceil.c @@ -0,0 +1,88 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#include "libm_errno.h" +#define USE_HANDLE_ERROR +#include "libm_inlines.h" +#undef USE_HANDLE_ERROR + +// Disable "C4163: not available as intrinsic function" warning that older +// compilers may issue here. +#pragma warning(disable:4163) +#pragma function(ceil) + +double FN_PROTOTYPE(ceil)(double x) +{ + double r; + long rexp, xneg; + unsigned long ux, ax, ur, mask; + + GET_BITS_DP64(x, ux); + ax = ux & (~SIGNBIT_DP64); + xneg = (ux != ax); + + if (ax >= 0x4340000000000000) + { + /* abs(x) is either NaN, infinity, or >= 2^53 */ + if (ax > 0x7ff0000000000000) + /* x is NaN */ + return _handle_error("ceil", OP_CEIL, ux|0x0008000000000000, _DOMAIN, 0, + EDOM, x, 0.0, 1); + else + return x; + } + else if (ax < 0x3ff0000000000000) /* abs(x) < 1.0 */ + { + if (ax == 0x0000000000000000) + /* x is +zero or -zero; return the same zero */ + return x; + else if (xneg) /* x < 0.0 */ + { + PUT_BITS_DP64(SIGNBIT_DP64, r); /* return -0.0 */ + return r; + } + else + return 1.0; + } + else + { + rexp = ((ux & EXPBITS_DP64) >> EXPSHIFTBITS_DP64) - EXPBIAS_DP64; + /* Mask out the bits of r that we don't want */ + mask = 1; + mask = (mask << (EXPSHIFTBITS_DP64 - rexp)) - 1; + ur = (ux & ~mask); + PUT_BITS_DP64(ur, r); + if (xneg || (ur == ux)) + return r; + else + /* We threw some bits away and x was positive */ + return r + 1.0; + } + +} diff --git a/sdk/lib/crt/math/libm_sse2/ceilf.c b/sdk/lib/crt/math/libm_sse2/ceilf.c new file mode 100644 index 00000000000..22f85b9777b --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/ceilf.c @@ -0,0 +1,86 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#include "libm_errno.h" +#define USE_HANDLE_ERRORF +#include "libm_inlines.h" +#undef USE_HANDLE_ERRORF + +// Disable "C4163: not available as intrinsic function" warning that older +// compilers may issue here. +#pragma warning(disable:4163) +#pragma function(ceilf) + +float FN_PROTOTYPE(ceilf)(float x) +{ + float r; + int rexp, xneg; + unsigned int ux, ax, ur, mask; + + GET_BITS_SP32(x, ux); + ax = ux & (~SIGNBIT_SP32); + xneg = (ux != ax); + + if (ax >= 0x4b800000) + { + /* abs(x) is either NaN, infinity, or >= 2^24 */ + if (ax > 0x7f800000) + /* x is NaN */ + return _handle_errorf("ceilf", OP_CEIL, ux, _DOMAIN, 0, EDOM, x, + 0.0F, 1); + else + return x; + } + else if (ax < 0x3f800000) /* abs(x) < 1.0 */ + { + if (ax == 0x00000000) + /* x is +zero or -zero; return the same zero */ + return x; + else if (xneg) /* x < 0.0 */ + { + PUT_BITS_SP32(SIGNBIT_SP32, r); /* return -0.0 */ + return r; + } + else + return 1.0F; + } + else + { + rexp = ((ux & EXPBITS_SP32) >> EXPSHIFTBITS_SP32) - EXPBIAS_SP32; + /* Mask out the bits of r that we don't want */ + mask = (1 << (EXPSHIFTBITS_SP32 - rexp)) - 1; + ur = (ux & ~mask); + PUT_BITS_SP32(ur, r); + + if (xneg || (ux == ur)) return r; + else + /* We threw some bits away and x was positive */ + return r + 1.0F; + } +} diff --git a/sdk/lib/crt/math/libm_sse2/cos.asm b/sdk/lib/crt/math/libm_sse2/cos.asm new file mode 100644 index 00000000000..850b8f1a34d --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/cos.asm @@ -0,0 +1,533 @@ +; +; MIT License +; ----------- +; +; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. +; +; Permission is hereby granted, free of charge, to any person obtaining a copy +; of this Software and associated documentaon 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. +; +; +; An implementation of the cos function. +; +; Prototype: +; +; double cos(double x); +; +; Computes cos(x). +; It will provide proper C99 return values, +; but may not raise floating point status bits properly. +; Based on the NAG C implementation. +; +; If FMA3 hardware is available, an FMA3 implementation of cos will be used. + +.const +ALIGN 16 +L_real_piby2_1 DQ 03ff921fb54400000h ; piby2_1 + DQ 0 +L_real_piby2_1tail DQ 03dd0b4611a626331h ; piby2_1tail + DQ 0 +L_real_piby2_2 DQ 03dd0b4611a600000h ; piby2_2 + DQ 0 +L_real_piby2_2tail DQ 03ba3198a2e037073h ; piby2_2tail + DQ 0 + +ALIGN 16 +L_one DQ 03FF0000000000000h, 03FF0000000000000h +L_signbit DQ 08000000000000000h, 00000000000000000h +L_int_one DQ 00000000000000001h, 00000000000000000h +L_int_two DQ 00000000000000002h, 00000000000000000h + +L_2_by_pi DQ 03fe45f306dc9c883h ; 2/pi +L_one_half DQ 03FE0000000000000h ; .5 +L_neg_one_half DQ 0bfe0000000000000h ; - 0.5 +L_two_to_neg_27 DQ 03e40000000000000h ; 2^-27 +L_two_to_neg_13 DQ 03f20000000000000h ; 2^-13 +L_piby4 DQ 03FE921FB54442D18h ; pi/4 +L_small_arg_cw DQ 0411E848000000000h ; 5.e5, appropriate for CW +L_small_arg_bdl DQ 0417312D000000000h ; 2e7, works for BDL +L_sign_mask DQ 07FFFFFFFFFFFFFFFh + +L__inf_mask_64 DQ 07FF0000000000000h ; +Inf + + + +EXTRN __Lcosarray:QWORD +EXTRN __Lsinarray:QWORD +EXTRN __use_fma3_lib:DWORD + +; local storage offsets +p_temp EQU 020h ; temporary for get/put bits operation +p_temp1 EQU 030h ; temporary for get/put bits operation +dummy_space EQU 040h +stack_size EQU 068h + +include fm.inc + +fname TEXTEQU <cos> +fname_special TEXTEQU <_cos_special> + +;Define name and any external functions being called +EXTERN __remainder_piby2_forAsm : PROC +EXTERN __remainder_piby2_fma3 : PROC +EXTERN __remainder_piby2_fma3_bdl : PROC +EXTERN fname_special : PROC + +.code + +PUBLIC fname +fname PROC FRAME + StackAllocate stack_size + .ENDPROLOG + + cmp DWORD PTR __use_fma3_lib, 0 + jne L_cos_fma3 + +Lcos_sse2: + movd rdx, xmm0 + xorpd xmm2, xmm2 ; zeroed out for later use + + mov r10, rdx + btr r10, 63 ; r10 <-- |x| + cmp r10, L_piby4 + jb Lcos_sse2_absx_lt_piby4 + +Lcos_absx_nlt_piby4: ; common case + +; Here rdx has x, r10 has |x| + movd xmm0, r10 ; xmm0 <-- |x| + + cmp r10, QWORD PTR L_small_arg_cw + jae Lcos_reduce_precise ; Note NaN/Inf will branch + +; At this point we have |x| < L_small_arg_cw, which is currently 500000. +; Note that if |x| were too large, conversion of npi2 to integer would fail. +; We reduce the argument to be in a range from -pi/4 to +pi/4 +; by subtracting multiples of pi/2 + movapd xmm2, xmm0 + mulsd xmm2, L_2_by_pi + movapd xmm4, xmm0 + +; xexp = ax >> EXPSHIFTBITS_DP64; + mov r9, r10 + shr r9, 52 ; >>EXPSHIFTBITS_DP64 + +; How many pi/2 is |x| a multiple of? +; npi2 = (int)(x * twobypi + 0.5); + addsd xmm2, L_one_half ; npi2 + + movsd xmm3, L_real_piby2_1 + cvttpd2dq xmm0, xmm2 ; convert npi2 to integer + movsd xmm1, L_real_piby2_1tail + cvtdq2pd xmm2, xmm0 ; and back to double. + +; Subtract the multiple from x to get an extra-precision remainder +; rhead = x - npi2 * piby2_1; + mulsd xmm3, xmm2 + subsd xmm4, xmm3 ; rhead + +; rtail = npi2 * piby2_1tail; + mulsd xmm1, xmm2 ; rtail + movd eax, xmm0 ; eax <-- npi2 + +; GET_BITS_DP64(rhead-rtail, uy); +; originally only rhead + movapd xmm0, xmm4 + subsd xmm0, xmm1 + + movsd xmm3, L_real_piby2_2 + movd rcx, xmm0 ; rcx <-- rhead - rtail + movsd xmm5, L_real_piby2_2tail ; piby2_2tail + +; xmm0=r, xmm1=rtail, xmm2=npi2, xmm3=temp for calc, +; xmm4=rhead xmm5= temp for calc +; expdiff = xexp - ((uy & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); +; expdiff measures how close rhead - rtail is to |x| +; (larger expdiff ==> more cancellation in |x| - (rhead-rtail) ==> closer) + shl rcx, 1 ; strip any sign bit + shr rcx, 53 ; >> EXPSHIFTBITS_DP64 +1 + sub r9, rcx ; expdiff + +;; if (expdiff > 15) + cmp r9, 15 + jle Lcos_sse2_cw_reduction_done + +; Here the remainder is pretty small compared with x, which +; implies that x is a near multiple of pi/2 +; (x matches the multiple to at least 15 bits) +; So we do another stage of argument reduction. + +; t = rhead; + movapd xmm1, xmm4 + +; rtail = npi2 * piby2_2; + mulsd xmm3, xmm2 + +; rhead = t - rtail; + mulsd xmm5, xmm2 ; npi2 * piby2_2tail + subsd xmm4, xmm3 ; rhead + +; rtail = npi2 * piby2_2tail - ((t - rhead) - rtail); + subsd xmm1, xmm4 ; t - rhead + subsd xmm1, xmm3 ; -rtail + subsd xmm5, xmm1 ; rtail + +; r = rhead - rtail; + movapd xmm0, xmm4 + +;HARSHA +;xmm1=rtail + movapd xmm1, xmm5 ; xmm1 <-- copy of rtail + subsd xmm0, xmm5 + +; xmm0=r, xmm4=rhead, xmm1=rtail +Lcos_sse2_cw_reduction_done: +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; if the input was close to a pi/2 multiple +; The original NAG code missed this trick. +; If the input is very close to n*pi/2 after reduction, so r < 2^-27, +; then the cos is either ~ 1.0 or ~r, to within 53 bits. + +; NOTE: Unfortunately, this introduces two jcc instructions close to each +; other and to other branches. As r < 2^-13 should be rather uncommon, +; the problems for branch prediction outweigh the computational savings. - WAT +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; region = npi2 & 3; + subsd xmm4, xmm0 ; rhead-r + subsd xmm4, xmm1 ; rr = (rhead-r) - rtail + +Lcos_piby4: +; perform taylor series to calc sinx or cosx +; x2 = r * r; + +;xmm4 = a part of rr for the sin path, xmm4 is overwritten in the cos path +;instead use xmm3 because that was freed up in the sin path, xmm3 is overwritten in sin path + movapd xmm3, xmm0 + movapd xmm2, xmm0 + mulsd xmm2, xmm0 ;x2 + + bt eax,0 + jnc Lcos_sse2_calc_cos + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; region 1 or 3 do a sin calculation + movsd xmm3, __Lsinarray+50h ; s6 + mulsd xmm3, xmm2 ; x2s6 + movsd xmm5, __Lsinarray+20h ; s3 + movsd QWORD PTR p_temp[rsp], xmm4 ; store xx + movapd xmm1, xmm2 ; move for x4 + mulsd xmm1, xmm2 ; x4 + movsd QWORD PTR p_temp1[rsp], xmm0 ; store x + mulsd xmm5, xmm2 ; x2s3 + movapd xmm4, xmm0 ; move for x3 + addsd xmm3, __Lsinarray+40h ; s5+x2s6 + mulsd xmm1, xmm2 ; x6 + mulsd xmm3, xmm2 ; x2(s5+x2s6) + mulsd xmm4, xmm2 ; x3 + addsd xmm5, __Lsinarray+10h ; s2+x2s3 + mulsd xmm5, xmm2 ; x2(s2+x2s3) + addsd xmm3, __Lsinarray+30h ; s4 + x2(s5+x2s6) + mulsd xmm2, L_one_half ; 0.5 *x2 + movsd xmm0, QWORD PTR p_temp[rsp] ; load xx + mulsd xmm3, xmm1 ; x6(s4 + x2(s5+x2s6)) + addsd xmm5, __Lsinarray ; s1+x2(s2+x2s3) + mulsd xmm2, xmm0 ; 0.5 * x2 *xx + addsd xmm3, xmm5 ; zs + mulsd xmm4, xmm3 ; *x3 + subsd xmm4, xmm2 ; x3*zs - 0.5 * x2 *xx + addsd xmm0, xmm4 ; +xx + addsd xmm0, QWORD PTR p_temp1[rsp] ; +x + + jmp Lcos_sse2_adjust_region + +ALIGN 16 +Lcos_sse2_calc_cos: +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; region 0 or 2 - do a cos calculation +; zc = (c2 + x2 * (c3 + x2 * (c4 + x2 * (c5 + x2 * c6)))); + mulsd xmm4, xmm0 ; x*xx + movsd xmm5, L_one_half + movsd xmm1, __Lcosarray+50h ; c6 + movsd xmm0, __Lcosarray+20h ; c3 + mulsd xmm5, xmm2 ; r = 0.5 *x2 + movapd xmm3, xmm2 ; copy of x2 + movsd QWORD PTR p_temp[rsp], xmm4 ; store x*xx + mulsd xmm1, xmm2 ; c6*x2 + mulsd xmm0, xmm2 ; c3*x2 + subsd xmm5, L_one ; -t=r-1.0, trash r + mulsd xmm3, xmm2 ; x4 + addsd xmm1, __Lcosarray+40h ; c5+x2c6 + addsd xmm0, __Lcosarray+10h ; c2+x2C3 + addsd xmm5, L_one ; 1 + (-t), trash t + mulsd xmm3, xmm2 ; x6 + mulsd xmm1, xmm2 ; x2(c5+x2c6) + mulsd xmm0, xmm2 ; x2(c2+x2C3) + movapd xmm4, xmm2 ; copy of x2 + mulsd xmm4, L_one_half ; r recalculate + addsd xmm1, __Lcosarray+30h ; c4 + x2(c5+x2c6) + addsd xmm0, __Lcosarray ; c1+x2(c2+x2C3) + mulsd xmm2, xmm2 ; x4 recalculate + subsd xmm5, xmm4 ; (1 + (-t)) - r + mulsd xmm1, xmm3 ; x6(c4 + x2(c5+x2c6)) + addsd xmm0, xmm1 ; zc + subsd xmm4, L_one ; t relaculate + subsd xmm5, QWORD PTR p_temp[rsp] ; ((1 + (-t)) - r) - x*xx + mulsd xmm0, xmm2 ; x4 * zc + addsd xmm0, xmm5 ; x4 * zc + ((1 + (-t)) - r -x*xx) + subsd xmm0, xmm4 ; result - (-t) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +Lcos_sse2_adjust_region: +; switch (region) + add eax, 1 + and eax, 2 + jz Lcos_sse2_cleanup + +;; if the original region 1 or 2 then we negate the result. + movapd xmm2, xmm0 + xorpd xmm0, xmm0 + subsd xmm0, xmm2 + +ALIGN 16 +Lcos_sse2_cleanup: + StackDeallocate stack_size + ret + + + + + + +ALIGN 16 +Lcos_sse2_absx_lt_piby4: +; cos = cos_piby4(x, 0.0); + +; x2 = r * r; + cmp r10, L_two_to_neg_13 + jb Lcos_sse2_x_small + movapd xmm2, xmm0 + mulsd xmm2, xmm0 ; x2 + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; region 0 - do a cos calculation +; zc = (c2 + x2 * (c3 + x2 * (c4 + x2 * (c5 + x2 * c6)))); + movsd xmm1, __Lcosarray+10h ; c2 + movapd xmm4, xmm2 ; move for x4 + mulsd xmm4, xmm2 ; x4 + movsd xmm3, __Lcosarray+30h ; c4 + mulsd xmm1, xmm2 ; c2x2 + movsd xmm5, __Lcosarray+50h ; c6 + mulsd xmm3, xmm2 ; c4x2 + movapd xmm0, xmm4 ; move for x8 + mulsd xmm5, xmm2 ; c6x2 + mulsd xmm0, xmm4 ; x8 + addsd xmm1, __Lcosarray ; c1 + c2x2 + mulsd xmm1, xmm4 ; c1x4 + c2x6 + addsd xmm3, __Lcosarray+20h ; c3 + c4x2 + mulsd xmm2, L_neg_one_half ; -0.5x2, destroy xmm2 + addsd xmm5, __Lcosarray+40h ; c5 + c6x2 + mulsd xmm3, xmm0 ; c3x8 + c4x10 + mulsd xmm4, xmm0 ; x12 + mulsd xmm4, xmm5 ; c5x12 + c6x14 + + movsd xmm0, L_one + addsd xmm1, xmm3 ; c1x4 + c2x6 + c3x8 + c4x10 + movapd xmm3, xmm2 ; preserve -0.5x2 + addsd xmm2, xmm0 ; t = 1 - 0.5x2 + subsd xmm0, xmm2 ; 1-t + addsd xmm0, xmm3 ; (1-t) - r + addsd xmm1, xmm4 ; c1x4 + c2x6 + c3x8 + c4x10 + c5x12 + c6x14 + addsd xmm0, xmm1 ; (1-t) - r + c1x4 + c2x6 + c3x8 + c4x10 + c5x12 + c6x14 + addsd xmm0, xmm2 ; 1 - 0.5x2 + above + + StackDeallocate stack_size + ret + +ALIGN 16 +Lcos_sse2_x_small: + movsd xmm2, xmm0 + movsd xmm0, L_one + cmp r10, L_two_to_neg_27 + jb Lcos_sse2_x_smaller + mulsd xmm2, xmm2 + mulsd xmm2, L_one_half + subsd xmm0, xmm2 + StackDeallocate stack_size + ret + +ALIGN 16 +Lcos_sse2_x_smaller: + movsd xmm0, L_one + addsd xmm0, L_int_one ; really adding smallest subnormal; set inexact + StackDeallocate stack_size + ret + +ALIGN 16 +Lcos_reduce_precise: +; Reduce x into range [-pi/4, pi/4] + cmp r10, L__inf_mask_64 + jae Lcos_x_naninf + call __remainder_piby2_forAsm + + ; At this point xmm0 has r, xmm1 has rr, rax has region + + movapd xmm4, xmm1 ; xmm4 <-- rr + jmp Lcos_piby4 + +; xmm0 = x, xmm4 = xx, eax= region + + +ALIGN 16 +Lcos_x_naninf: + call fname_special + StackDeallocate stack_size + ret + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; From this point we assume that FMA3 and AVX hardware are present. + +ALIGN 16 +L_cos_fma3: + vmovq r9,xmm0 + mov rax,r9 + and r9,L_sign_mask ; clear sign + +Lcos_early_exit_s_1: ;; unused label + cmp r9,L_piby4 + jg Lcos_early_exit_s ; Note that NaN will branch + cmp r9,L_two_to_neg_13 + jge Lcompute_cos_pyby_4 + cmp r9,L_two_to_neg_27 + jge Lcompute_1_xx_5 + vmovq xmm0,L_one ; for tiniest args, cos is 1 + jmp Lreturn_no_restore + +Lcompute_1_xx_5: + vmulsd xmm1,xmm0,L_one_half ; xmm1l <-- .5*x + vfnmadd213sd xmm0,xmm1,L_one ; xmm0l <-- 1.0 - (.5*x)*x + jmp Lreturn_no_restore + +Lcompute_cos_pyby_4: + ; make sure this is accurate enough + ; note that x^2 can't be all that close to 1 here + vmulsd xmm3,xmm0,xmm0 ; xmm3 <-- xx = x*x + vmovapd xmm0,__Lcosarray+050h ; xmm0 <-- c5 + vfmadd213sd xmm0,xmm3,__Lcosarray+040h ; xmm0 <-- c5*xx + c4 + vfmadd213sd xmm0,xmm3,__Lcosarray+030h ; xmm0 <-- (c5*xx + c4)*xx + c3 + vfmadd213sd xmm0,xmm3,__Lcosarray+020h + vfmadd213sd xmm0,xmm3,__Lcosarray+010h + vfmadd213sd xmm0,xmm3,__Lcosarray + vfmsub213sd xmm0,xmm3,L_one_half + vfmadd213sd xmm0,xmm3,L_one + + jmp Lreturn_no_restore + +Lcos_early_exit_s: + mov r8,L__inf_mask_64 + and rax,r8 + cmp rax, r8 + jz Lcos_x_naninf + +Lrange_reduce: + vmovq xmm0,r9 ; r9 <-- |x| + cmp r9,L_small_arg_bdl + jae Lcos_remainder_piby2 + + ; For __remainder_piby2_fma3 and __remainder_piby2_fma3_bdl + ; on input + ; x is in xmm0 + ; on output + ; r is in xmm0 + ; rr is in xmm1 + ; region is in rax + + ; Boldo-Daumas-Li reduction for reasonably small |x| + call __remainder_piby2_fma3_bdl + +;; if region is 0 or 2 do a cos calc. +;; if region is 1 or 3 do a sin calc. +Lcos_exit_s: + bt rax,0 + jc Lsin_piby4_compute + +Lcos_piby4_compute: ;; unused label + ; compute the cosine of r+rr, where this sum is in [-pi/4,pi/4] + vmovapd xmm2,L_one + vmulsd xmm3,xmm0,xmm0 ; xmm3 <-- x * x + vmulsd xmm5,xmm3,L_one_half ; xmm5 <-- x*x*.5 == r + vsubsd xmm4,xmm2,xmm5 ; xmm4 <-- t = 1. - x*x*.5 + vsubsd xmm2,xmm2,xmm4 ; 1-t + vsubsd xmm2,xmm2,xmm5 ; xmm2 <-- (1-t) - r + vmovapd xmm5,__Lcosarray+040h + vfnmadd231sd xmm2,xmm0,xmm1 ; (1.0 - t) - r) - x * xx) xmm2 + vmulsd xmm1,xmm3,xmm3 ; x2 * x2 xmm1 + vfmadd231sd xmm5,xmm3,__Lcosarray+050h + vfmadd213sd xmm5,xmm3,__Lcosarray+030h + vfmadd213sd xmm5,xmm3,__Lcosarray+020h + vfmadd213sd xmm5,xmm3,__Lcosarray+010h + vfmadd213sd xmm5,xmm3,__Lcosarray + vfmadd213sd xmm5,xmm1,xmm2 + vaddsd xmm0,xmm5,xmm4 + + jmp Lcos_exit_s_1 + +ALIGN 16 +Lsin_piby4_compute: + ; compute the sine of r+rr, where this sum is in [-pi/4,pi/4] + vmovapd xmm5,__Lsinarray+040h + vmulsd xmm3,xmm0,xmm0 ; xmm3 <-- x2 = x * x + vfmadd231sd xmm5,xmm3,__Lsinarray+050h + vfmadd213sd xmm5,xmm3,__Lsinarray+030h + vfmadd213sd xmm5,xmm3,__Lsinarray+020h + vfmadd213sd xmm5,xmm3,__Lsinarray+010h ; xmm5 <-- r + + vmulsd xmm4,xmm0,xmm3 ; xmm4 <-- x3 = x*x*x + vmulsd xmm2,xmm4,xmm5 ; xmm2 <-- x*x*x * r + vmulsd xmm5,xmm1,L_one_half ; xmm5 <-- .5*x*x + vsubsd xmm2,xmm5,xmm2 ; xmm2 <-- .5*x*x - x*x*x*r + vmulsd xmm2,xmm3,xmm2 + vsubsd xmm2,xmm2,xmm1 + vfnmadd231sd xmm2, xmm4,__Lsinarray + vsubsd xmm0,xmm0,xmm2 + +Lcos_exit_s_1: + xor r8,r8 + add eax, 1 + and eax, 2 + cmovnz r8, L_signbit + vmovq xmm3,r8 + vxorpd xmm0,xmm0,xmm3 + +Lreturn_restore_regs: + StackDeallocate stack_size + ret + +Lreturn_no_restore: + StackDeallocate stack_size + ret + +ALIGN 16 +Lcos_remainder_piby2: + ; argument reduction for general x + call __remainder_piby2_fma3 + jmp Lcos_exit_s + + +fname endp +END diff --git a/sdk/lib/crt/math/libm_sse2/cosf.asm b/sdk/lib/crt/math/libm_sse2/cosf.asm new file mode 100644 index 00000000000..6b232472a23 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/cosf.asm @@ -0,0 +1,525 @@ +; +; MIT License +; ----------- +; +; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. +; +; Permission is hereby granted, free of charge, to any person obtaining a copy +; of this Software and associated documentaon 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. +; +; An implementation of the cosf function. +; +; Prototype: +; +; float cosf(float x); +; +; Computes cosf(x). +; Based on the NAG C implementation. +; It will provide proper C99 return values, +; but may not raise floating point status bits properly. +; Original Author: Harsha Jagasia + +.const +ALIGN 16 +L_real_one DQ 03ff0000000000000h ; 1.0 + DQ 0 ; for alignment +L_one_half DQ 03fe0000000000000h ; 0.5 + DQ 0 +L_2bypi DQ 03fe45f306dc9c883h ; 2./pi + DQ 0 +L_one_sixth DQ 03fc5555555555555h ; 0.166666666666 + DQ 0 +L_piby2 DQ 03fe921fb54442d18h + DQ 0 +L_piby2_1 DQ 03ff921fb54400000h ; piby2_1 + DQ 0 +L_piby2_1tail DQ 03dd0b4611a626331h ; piby2_1tail + DQ 0 +L_piby2_2 DQ 03dd0b4611a600000h ; piby2_2 + DQ 0 +L_piby2_2tail DQ 03ba3198a2e037073h ; piby2_2tail + DQ 0 +L_large_x_sse2 DQ 0411E848000000000h ; 5e5 + DQ 0 +L_large_x_fma3 DQ 041E921FB60000000h ; 3.37325952e9 + DQ 0 +L_sign_mask DQ 07FFFFFFFFFFFFFFFh + DQ 07FFFFFFFFFFFFFFFh +L__int_three DQ 00000000000000003h + DQ 00000000000000003h +L__min_norm_double DQ 00010000000000000h + DQ 00010000000000000h +L_two_to_neg_7 DQ 03f80000000000000h + DQ 0 +L_two_to_neg_13 DQ 03f20000000000000h + DQ 0 +L_inf_mask_32 DD 07F800000h + DQ 0 + +fname TEXTEQU <cosf> +fname_special TEXTEQU <_cosf_special> + +;Define name and any external functions being called +EXTERN __remainder_piby2d2f_forAsm : PROC ; NEAR +EXTERN __remainder_piby2_fma3_bdl : PROC ; NEAR +EXTERN __remainder_piby2_fma3 : PROC ; NEAR +EXTERN fname_special : PROC +EXTERN _set_statfp : PROC + + +EXTRN __Lcosfarray:QWORD +EXTRN __Lsinfarray:QWORD +EXTRN __use_fma3_lib:DWORD + +; define local variable storage offsets +p_temp equ 020h ; temporary for get/put bits operation +p_temp1 equ 030h ; temporary for get/put bits operation +dummy_space EQU 040h +stack_size EQU 068h + +include fm.inc + +.code + +ALIGN 16 +PUBLIC fname +fname PROC FRAME + StackAllocate stack_size + .ENDPROLOG + cmp DWORD PTR __use_fma3_lib, 0 + jne Lcosf_fma3 + +Lcosf_sse2: + + xorpd xmm2, xmm2 ; zeroed out for later use + +;; if NaN or inf + movd edx, xmm0 + mov eax, 07f800000h + mov r10d, eax + and r10d, edx + cmp r10d, eax + jz Lcosf_sse2_naninf + + cvtss2sd xmm0, xmm0 + movd rdx, xmm0 + +; ax = (ux & ~SIGNBIT_DP64); + mov r10, rdx + btr r10, 63 ; r10 <-- |x| + mov r8d, 1 ; for determining region later on + + movapd xmm1, xmm0 ; xmm1 <-- copy of x + + +;; if (ax <= 3fe921fb54442d18h) /* abs(x) <= pi/4 */ + mov rax, 03fe921fb54442d18h + cmp r10, rax + jg Lcosf_sse2_absx_gt_piby4 + +; *c = cos_piby4(x, 0.0); + movapd xmm2, xmm0 + mulsd xmm2, xmm2 ;x^2 + xor eax, eax + mov rdx, r10 + movsd xmm5, QWORD PTR L_one_half + jmp Lcosf_sse2_calc_sincosf_piby4 ; done + + +ALIGN 16 +Lcosf_sse2_absx_gt_piby4: +; reduce the argument to be in a range from -pi/4 to +pi/4 +; by subtracting multiples of pi/2 +; xneg = (ax != ux); + movd xmm0, r10 ; xmm0 <-- |x| + cmp r10, QWORD PTR L_large_x_sse2 + jae Lcosf_sse2_reduce_precise + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; xmm0=abs(x), xmm1=x +;/* How many pi/2 is x a multiple of? */ + + movapd xmm2, xmm0 + movsd xmm3, QWORD PTR L_2bypi + movapd xmm4, xmm0 + movsd xmm5, QWORD PTR L_one_half + mulsd xmm2, xmm3 + +; movsd xmm5, QWORD PTR L_one_half +; movapd xmm2, xmm0 +; mulsd xmm2, QWORD PTR L_2bypi +; movapd xmm4, xmm0 + + mov r9, r10 + shr r9, 52 ; r9 <-- biased exponent of x + +; npi2 = (int)(x * twobypi + 0.5); + addsd xmm2, xmm5 ; npi2 + + movsd xmm3, QWORD PTR L_piby2_1 ; piby2_1 + cvttpd2dq xmm0, xmm2 ; xmm0 <-- npi2 + movsd xmm1, QWORD PTR L_piby2_1tail ; piby2_1tail + cvtdq2pd xmm2, xmm0 ; xmm2 <-- (double)npi2 + +; Subtract the multiple from x to get an extra-precision remainder +; rhead = x - npi2 * piby2_1; + + mulsd xmm3, xmm2 ; use piby2_1 + subsd xmm4, xmm3 ; rhead + +; rtail = npi2 * piby2_1tail; + mulsd xmm1, xmm2 ; rtail + movd eax, xmm0 + +; GET_BITS_DP64(rhead-rtail, uy); +; originally only rhead + movapd xmm0, xmm4 + subsd xmm0, xmm1 + + movsd xmm3, QWORD PTR L_piby2_2 ; piby2_2 + movd rcx, xmm0 ; rcx <-- rhead-rtail + movsd xmm5, QWORD PTR L_piby2_2tail ; piby2_2tail + +; region = npi2 & 3; +; and eax, 3 +; expdiff = xexp - ((uy & EXPBITS_DP64) >> EXPSHIFTBITS_DP64); + shl rcx, 1 ; strip any sign bit + shr rcx, 53 ; >> EXPSHIFTBITS_DP64 +1 + sub r9, rcx ; expdiff + +;; if (expdiff > 15) + cmp r9, 15 + jle Lcosf_sse2_expdiff_le_15 + +; The remainder is pretty small compared with x, which +; implies that x is a near multiple of pi/2 +; (x matches the multiple to at least 15 bits) +; t = rhead; + movapd xmm1, xmm4 + +; rtail = npi2 * piby2_2; + mulsd xmm3, xmm2 + +; rhead = t - rtail; + mulsd xmm5, xmm2 ; npi2 * piby2_2tail + subsd xmm4, xmm3 ; rhead + +; rtail = npi2 * piby2_2tail - ((t - rhead) - rtail); + subsd xmm1, xmm4 ; t - rhead + subsd xmm1, xmm3 ; -rtail + subsd xmm5, xmm1 ; rtail + +; r = rhead - rtail; + movapd xmm0, xmm4 + +;HARSHA +;xmm1=rtail + movapd xmm1, xmm5 + subsd xmm0, xmm5 + +; xmm0=r, xmm4=rhead, xmm1=rtail + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +Lcosf_sse2_expdiff_le_15: + cmp rcx, 03f2h ; is r < 2^-13 ? + jge Lcosf_sse2_calc_sincosf_piby4 ; use taylor series if not + cmp rcx, 03deh ; is r < 2^-33 ? + jle Lcosf_sse2_r_very_small ; then cosf(r) ~ 1 or r + + movapd xmm2, xmm0 + mulsd xmm2, xmm0 ; xmm2 <-- x^2 + +;; if region is 1 or 3 do a sinf calc. + and r8d, eax + jz Lcosf_sse2_r_small_calc_sin + +Lcosf_sse2_r_small_calc_cos: +; region 1 or 3 +; use simply polynomial +; *s = x - x*x*x*0.166666666666666666; + movsd xmm3, QWORD PTR L_one_sixth + mulsd xmm3, xmm0 ; * x + mulsd xmm3, xmm2 ; * x^2 + subsd xmm0, xmm3 ; xs + jmp Lcosf_sse2_adjust_region + +ALIGN 16 +Lcosf_sse2_r_small_calc_sin: +; region 0 or 2 +; cos = 1.0 - x*x*0.5; + movsd xmm0, QWORD PTR L_real_one ; 1.0 + mulsd xmm2, QWORD PTR L_one_half ; 0.5 *x^2 + subsd xmm0, xmm2 + jmp Lcosf_sse2_adjust_region + +ALIGN 16 +Lcosf_sse2_r_very_small: +; then sin(r) = r +; if region is 1 or 3 do a sin calc. + and r8d, eax + jnz Lcosf_sse2_adjust_region + + movsd xmm0, QWORD PTR L_real_one ; cosf(r) is a 1 + ; By this point, calculations should already have set inexact + jmp Lcosf_sse2_adjust_region + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +ALIGN 16 +Lcosf_sse2_reduce_precise: +; Reduce abs(x) into range [-pi/4, pi/4] +; remainder_piby2d2f(ax, &r, &region); + mov QWORD PTR p_temp[rsp], rdx ; save ux for use later + mov QWORD PTR p_temp1[rsp], r10 ; save ax for use later + + call __remainder_piby2d2f_forAsm + mov rdx, QWORD PTR p_temp[rsp] ; restore ux for use later + mov r10, QWORD PTR p_temp1[rsp] ; restore ax for use later + mov r8d, 1 ; for determining region later + + ; Reduced argument is in xmm0. No second word; after all, we started in + ; single precision. Region is in rax. + movapd xmm1, xmm0 + movsd xmm5, QWORD PTR L_one_half + + jmp Lcosf_sse2_calc_sincosf_piby4 + + +; done with reducing the argument. Now perform the sin/cos calculations. +ALIGN 16 +Lcosf_sse2_calc_sincosf_piby4: + movapd xmm2, xmm0 + mulsd xmm2, xmm0 ; x^2 + +;; if region is 0 or 2, do a cosf calc + and r8d, eax + jz Lcosf_sse2_do_cosf_calc +; region is 1 or 3: do a sinf calc. +Lcosf_sse2_do_sinf_calc: + movsd xmm1, QWORD PTR __Lsinfarray+18h ; s4 + mulsd xmm1, xmm2 ; s4x2 + movsd xmm4, xmm2 ; move for x4 + mulsd xmm4, xmm2 ; x4 + movsd xmm5, QWORD PTR __Lsinfarray+8h ; s2 + mulsd xmm5, xmm2 ; s2x2 + movsd xmm3, xmm0 ; move for x3 + mulsd xmm3, xmm2 ; x3 + addsd xmm1, QWORD PTR __Lsinfarray+10h ; s3+s4x2 + mulsd xmm1, xmm4 ; s3x4+s4x6 + addsd xmm5, QWORD PTR __Lsinfarray ; s1+s2x2 + addsd xmm1, xmm5 ; s1+s2x2+s3x4+s4x6 + mulsd xmm1, xmm3 ; x3(s1+s2x2+s3x4+s4x6) + addsd xmm0, xmm1 ; x + x3(s1+s2x2+s3x4+s4x6) + jmp Lcosf_sse2_adjust_region + +ALIGN 16 +Lcosf_sse2_do_cosf_calc: +; region 0 or 2 - do a cos calculation +; zc = 1-0.5*x2+ c1*x4 +c2*x6 +c3*x8; +; zc = 1-0.5*x2+ c1*x4 +c2*x6 +c3*x8 + c4*x10 for a higher precision + movsd xmm1, QWORD PTR __Lcosfarray+20h ; c4 + movsd xmm4, xmm2 ; move for x4 + mulsd xmm1, xmm2 ; c4x2 + movsd xmm3, QWORD PTR __Lcosfarray+10h ; c2 + mulsd xmm4, xmm2 ; x4 + movsd xmm0, QWORD PTR __Lcosfarray ; c0 + mulsd xmm3, xmm2 ; c2x2 + mulsd xmm0, xmm2 ; c0x2 (=-0.5x2) + addsd xmm1, QWORD PTR __Lcosfarray+18h ; c3+c4x2 + mulsd xmm1, xmm4 ; c3x4 + c4x6 + addsd xmm3, QWORD PTR __Lcosfarray+8h ; c1+c2x2 + addsd xmm1, xmm3 ; c1 + c2x2 + c3x4 + c4x6 + mulsd xmm1, xmm4 ; c1x4 + c2x6 + c3x8 + c4x10 + addsd xmm0, QWORD PTR L_real_one ; 1 - 0.5x2 + addsd xmm0, xmm1 ; 1 - 0.5x2 + c1x4 + c2x6 + c3x8 + c4x10 + +Lcosf_sse2_adjust_region: +; xmm1 is cos or sin, relies on previous sections to +; switch (region) + add eax, 1 + and eax, 2 + jz Lcosf_sse2_cleanup +;; if region 1 or 2 then we negate the result. + xorpd xmm2, xmm2 + subsd xmm2, xmm0 + movapd xmm0, xmm2 + +ALIGN 16 +Lcosf_sse2_cleanup: + cvtsd2ss xmm0, xmm0 + StackDeallocate stack_size + ret + + +Lcosf_sse2_naninf: + call fname_special + StackDeallocate stack_size + ret + + +ALIGN 16 +Lcosf_fma3: + vmovd eax,xmm0 + mov r8d,L_inf_mask_32 + and eax,r8d + cmp eax, r8d + jz Lcosf_fma3_naninf + + vcvtss2sd xmm5,xmm0,xmm0 + vmovq r9,xmm5 + btr r9,63 ;clear sign + + cmp r9,L_piby2 + jg Lcosf_fma3_range_reduce + cmp r9,L_two_to_neg_7 + jge Lcosf_fma3_compute_cosf_piby_4 + cmp r9,L_two_to_neg_13 + jge Lcosf_fma3_compute_1_xx_5 + + vmovq xmm0,QWORD PTR L_real_one + ; Here we need to set inexact + vaddsd xmm0,xmm0,L__min_norm_double ; this will set inexact + jmp Lcosf_fma3_return + +ALIGN 16 +Lcosf_fma3_compute_1_xx_5: + vmulsd xmm0,xmm5,QWORD PTR L_one_half + vfnmadd213sd xmm0,xmm5,L_real_one ; xmm9 1.0 - x*x*(double2)0.5 + jmp Lcosf_fma3_return + +ALIGN 16 +Lcosf_fma3_compute_cosf_piby_4: + movsd xmm0,xmm5 + vmovapd xmm2,L_real_one + vmulsd xmm3,xmm0,xmm0 + vmulsd xmm1,xmm3,L_one_half ; xmm1 <-- r + vsubsd xmm2,xmm2,xmm1 + vmovsd xmm1,__Lcosfarray+018h + vfmadd231sd xmm1,xmm3,__Lcosfarray+020h + vfmadd213sd xmm1,xmm3,__Lcosfarray+010h + vfmadd213sd xmm1,xmm3,__Lcosfarray+008h + vmulsd xmm3,xmm3,xmm3 ; xmm3 <-- x^4 + vmovdqa xmm0,xmm2 + vfmadd231sd xmm0,xmm1,xmm3 + jmp Lcosf_fma3_return + +ALIGN 16 +Lcosf_fma3_range_reduce: + vmovq xmm0,r9 ; xmm0 <-- |x| + cmp r9,L_large_x_fma3 + jge Lcosf_reduce_precise + +;cosff_range_e_5_s: + vandpd xmm1,xmm0,L_sign_mask + vmovapd xmm2,L_2bypi + vfmadd213sd xmm2,xmm1,L_one_half + vcvttpd2dq xmm2,xmm2 + vpmovsxdq xmm1,xmm2 + vandpd xmm4,xmm1,L__int_three ; region xmm4 + vshufps xmm1 ,xmm1,xmm1,8 + vcvtdq2pd xmm1,xmm1 + vmovdqa xmm2,xmm0 + vfnmadd231sd xmm2,xmm1,L_piby2_1 ; xmm2 rhead + vmulsd xmm3,xmm1,L_piby2_1tail ; xmm3 rtail + vsubsd xmm0,xmm2,xmm3 ; r_1 xmm0 + vsubsd xmm2,xmm2,xmm0 + vsubsd xmm1,xmm2,xmm3 + vmovq rax,xmm4 + jmp Lcosf_exit_s + +ALIGN 16 +Lcosf_reduce_precise: + + vmovq xmm0,r9 ; r9 <-- |x| + cmp r9,L_large_x_fma3 + jge Lcos_remainder_piby2 + + ; __remainder_piby2_fma3 and __remainder_piby2_fma3_bdl + ; have the following conventions: + ; on input + ; x is in xmm0 + ; on output + ; r is in xmm0 + ; rr is in xmm1 + ; region is in rax + ; The _bdl routine is guaranteed not to touch r10 + +Lcos_remainder_piby2_small: ;; unused label + ; Boldo-Daumas-Li reduction for reasonably small |x| + call __remainder_piby2_fma3_bdl + jmp Lcosf_exit_s + +ALIGN 16 +Lcos_remainder_piby2: + ; argument reduction for general x + call __remainder_piby2_fma3 +Lcosf_exit_s: + bt rax,0 + jnc Lcosf_piby4_compute + +;sinf_piby4_compute: +; vmovapd xmm1,__Lsinfarray+010h + vmovsd xmm1,__Lsinfarray+010h + vmulsd xmm3,xmm0,xmm0 + vfmadd231sd xmm1,xmm3,__Lsinfarray+018h + vfmadd213sd xmm1,xmm3,__Lsinfarray+008h + vfmadd213sd xmm1,xmm3,__Lsinfarray + vmulsd xmm3,xmm0,xmm3 ; xmm3 <-- x^3 + vfmadd231sd xmm0,xmm1,xmm3 + jmp Lcosf_fma3_adjust_sign + +ALIGN 16 +Lcosf_piby4_compute: + vmovapd xmm2,L_real_one + vmulsd xmm3,xmm0,xmm0 + vmulsd xmm1,xmm3,L_one_half ; xmm1 <-- r + vsubsd xmm2,xmm2,xmm1 + vmovsd xmm1,__Lcosfarray+018h + vfmadd231sd xmm1 ,xmm3,__Lcosfarray+020h + vfmadd213sd xmm1 ,xmm3,__Lcosfarray+010h + vfmadd213sd xmm1 ,xmm3,__Lcosfarray+008h + vmulsd xmm3,xmm3,xmm3 ; xmm3 <-- x^4 + vmovdqa xmm0, xmm2 + vfmadd231sd xmm0 ,xmm1,xmm3 + +Lcosf_fma3_adjust_sign: + ; assuming FMA3 ==> AVX ==> SSE4.1 +; vpcmpeqq xmm1,xmm4,XMMWORD PTR L_int_one +; vpcmpeqq xmm2,xmm4,XMMWORD PTR L_int_two +; vorpd xmm3,xmm2,xmm1 + +; vandpd xmm3,xmm3,L_signbit + + add rax,1 ; 1,2 --> 2,3 + shr rax,1 ; 2,3 --> 1 + shl rax,63 ; 1 --> sign bit + vmovq xmm3,rax + + vxorpd xmm0,xmm0,xmm3 + +Lcosf_fma3_return: + vcvtsd2ss xmm0,xmm0,xmm0 + StackDeallocate stack_size + ret + +Lcosf_fma3_naninf: + call fname_special + StackDeallocate stack_size + ret + +fname endp +END diff --git a/sdk/lib/crt/math/libm_sse2/cosh.c b/sdk/lib/crt/math/libm_sse2/cosh.c new file mode 100644 index 00000000000..9eb06d0c261 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/cosh.c @@ -0,0 +1,344 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_SPLITEXP +#define USE_SCALEDOUBLE_1 +#define USE_SCALEDOUBLE_2 +#define USE_INFINITY_WITH_FLAGS +#define USE_VAL_WITH_FLAGS +#define USE_HANDLE_ERROR +#include "libm_inlines.h" +#undef USE_SPLITEXP +#undef USE_SCALEDOUBLE_1 +#undef USE_SCALEDOUBLE_2 +#undef USE_INFINITY_WITH_FLAGS +#undef USE_VAL_WITH_FLAGS +#undef USE_HANDLE_ERROR + + +#pragma function(cosh) +double cosh(double x) +{ + /* + Derived from sinh subroutine + + After dealing with special cases the computation is split into + regions as follows: + + abs(x) >= max_cosh_arg: + cosh(x) = sign(x)*Inf + + abs(x) >= small_threshold: + cosh(x) = sign(x)*exp(abs(x))/2 computed using the + splitexp and scaleDouble functions as for exp_amd(). + + abs(x) < small_threshold: + compute p = exp(y) - 1 and then z = 0.5*(p+(p/(p+1.0))) + cosh(x) is then sign(x)*z. */ + + static const double + max_cosh_arg = 7.10475860073943977113e+02, /* 0x408633ce8fb9f87e */ + thirtytwo_by_log2 = 4.61662413084468283841e+01, /* 0x40471547652b82fe */ + log2_by_32_lead = 2.16608493356034159660e-02, /* 0x3f962e42fe000000 */ + log2_by_32_tail = 5.68948749532545630390e-11, /* 0x3dcf473de6af278e */ +// small_threshold = 8*BASEDIGITS_DP64*0.30102999566398119521373889; + small_threshold = 20.0; + /* (8*BASEDIGITS_DP64*log10of2) ' exp(-x) insignificant c.f. exp(x) */ + + /* Lead and tail tabulated values of sinh(i) and cosh(i) + for i = 0,...,36. The lead part has 26 leading bits. */ + + static const double sinh_lead[ 37] = { + 0.00000000000000000000e+00, /* 0x0000000000000000 */ + 1.17520117759704589844e+00, /* 0x3ff2cd9fc0000000 */ + 3.62686038017272949219e+00, /* 0x400d03cf60000000 */ + 1.00178747177124023438e+01, /* 0x40240926e0000000 */ + 2.72899169921875000000e+01, /* 0x403b4a3800000000 */ + 7.42032089233398437500e+01, /* 0x40528d0160000000 */ + 2.01713153839111328125e+02, /* 0x406936d228000000 */ + 5.48316116333007812500e+02, /* 0x4081228768000000 */ + 1.49047882080078125000e+03, /* 0x409749ea50000000 */ + 4.05154187011718750000e+03, /* 0x40afa71570000000 */ + 1.10132326660156250000e+04, /* 0x40c5829dc8000000 */ + 2.99370708007812500000e+04, /* 0x40dd3c4488000000 */ + 8.13773945312500000000e+04, /* 0x40f3de1650000000 */ + 2.21206695312500000000e+05, /* 0x410b00b590000000 */ + 6.01302140625000000000e+05, /* 0x412259ac48000000 */ + 1.63450865625000000000e+06, /* 0x4138f0cca8000000 */ + 4.44305525000000000000e+06, /* 0x4150f2ebd0000000 */ + 1.20774762500000000000e+07, /* 0x4167093488000000 */ + 3.28299845000000000000e+07, /* 0x417f4f2208000000 */ + 8.92411500000000000000e+07, /* 0x419546d8f8000000 */ + 2.42582596000000000000e+08, /* 0x41aceb0888000000 */ + 6.59407856000000000000e+08, /* 0x41c3a6e1f8000000 */ + 1.79245641600000000000e+09, /* 0x41dab5adb8000000 */ + 4.87240166400000000000e+09, /* 0x41f226af30000000 */ + 1.32445608960000000000e+10, /* 0x4208ab7fb0000000 */ + 3.60024494080000000000e+10, /* 0x4220c3d390000000 */ + 9.78648043520000000000e+10, /* 0x4236c93268000000 */ + 2.66024116224000000000e+11, /* 0x424ef822f0000000 */ + 7.23128516608000000000e+11, /* 0x42650bba30000000 */ + 1.96566712320000000000e+12, /* 0x427c9aae40000000 */ + 5.34323724288000000000e+12, /* 0x4293704708000000 */ + 1.45244246507520000000e+13, /* 0x42aa6b7658000000 */ + 3.94814795284480000000e+13, /* 0x42c1f43fc8000000 */ + 1.07321789251584000000e+14, /* 0x42d866f348000000 */ + 2.91730863685632000000e+14, /* 0x42f0953e28000000 */ + 7.93006722514944000000e+14, /* 0x430689e220000000 */ + 2.15561576592179200000e+15}; /* 0x431ea215a0000000 */ + + static const double sinh_tail[ 37] = { + 0.00000000000000000000e+00, /* 0x0000000000000000 */ + 1.60467555584448807892e-08, /* 0x3e513ae6096a0092 */ + 2.76742892754807136947e-08, /* 0x3e5db70cfb79a640 */ + 2.09697499555224576530e-07, /* 0x3e8c2526b66dc067 */ + 2.04940252448908240062e-07, /* 0x3e8b81b18647f380 */ + 1.65444891522700935932e-06, /* 0x3ebbc1cdd1e1eb08 */ + 3.53116789999998198721e-06, /* 0x3ecd9f201534fb09 */ + 6.94023870987375490695e-06, /* 0x3edd1c064a4e9954 */ + 4.98876893611587449271e-06, /* 0x3ed4eca65d06ea74 */ + 3.19656024605152215752e-05, /* 0x3f00c259bcc0ecc5 */ + 2.08687768377236501204e-04, /* 0x3f2b5a6647cf9016 */ + 4.84668088325403796299e-05, /* 0x3f09691adefb0870 */ + 1.17517985422733832468e-03, /* 0x3f53410fc29cde38 */ + 6.90830086959560562415e-04, /* 0x3f46a31a50b6fb3c */ + 1.45697262451506548420e-03, /* 0x3f57defc71805c40 */ + 2.99859023684906737806e-02, /* 0x3f9eb49fd80e0bab */ + 1.02538800507941396667e-02, /* 0x3f84fffc7bcd5920 */ + 1.26787628407699110022e-01, /* 0x3fc03a93b6c63435 */ + 6.86652479544033744752e-02, /* 0x3fb1940bb255fd1c */ + 4.81593627621056619148e-01, /* 0x3fded26e14260b50 */ + 1.70489513795397629181e+00, /* 0x3ffb47401fc9f2a2 */ + 1.12416073482258713767e+01, /* 0x40267bb3f55634f1 */ + 7.06579578070110514432e+00, /* 0x401c435ff8194ddc */ + 5.91244512999659974639e+01, /* 0x404d8fee052ba63a */ + 1.68921736147050694399e+02, /* 0x40651d7edccde3f6 */ + 2.60692936262073658327e+02, /* 0x40704b1644557d1a */ + 3.62419382134885609048e+02, /* 0x4076a6b5ca0a9dc4 */ + 4.07689930834187271103e+03, /* 0x40afd9cc72249aba */ + 1.55377375868385224749e+04, /* 0x40ce58de693edab5 */ + 2.53720210371943067003e+04, /* 0x40d8c70158ac6363 */ + 4.78822310734952334315e+04, /* 0x40e7614764f43e20 */ + 1.81871712615542812273e+05, /* 0x4106337db36fc718 */ + 5.62892347580489004031e+05, /* 0x41212d98b1f611e2 */ + 6.41374032312148716301e+05, /* 0x412392bc108b37cc */ + 7.57809544070145115256e+06, /* 0x415ce87bdc3473dc */ + 3.64177136406482197344e+06, /* 0x414bc8d5ae99ad14 */ + 7.63580561355670914054e+06}; /* 0x415d20d76744835c */ + + static const double cosh_lead[ 37] = { + 1.00000000000000000000e+00, /* 0x3ff0000000000000 */ + 1.54308062791824340820e+00, /* 0x3ff8b07550000000 */ + 3.76219564676284790039e+00, /* 0x400e18fa08000000 */ + 1.00676617622375488281e+01, /* 0x402422a490000000 */ + 2.73082327842712402344e+01, /* 0x403b4ee858000000 */ + 7.42099475860595703125e+01, /* 0x40528d6fc8000000 */ + 2.01715633392333984375e+02, /* 0x406936e678000000 */ + 5.48317031860351562500e+02, /* 0x4081228948000000 */ + 1.49047915649414062500e+03, /* 0x409749eaa8000000 */ + 4.05154199218750000000e+03, /* 0x40afa71580000000 */ + 1.10132329101562500000e+04, /* 0x40c5829dd0000000 */ + 2.99370708007812500000e+04, /* 0x40dd3c4488000000 */ + 8.13773945312500000000e+04, /* 0x40f3de1650000000 */ + 2.21206695312500000000e+05, /* 0x410b00b590000000 */ + 6.01302140625000000000e+05, /* 0x412259ac48000000 */ + 1.63450865625000000000e+06, /* 0x4138f0cca8000000 */ + 4.44305525000000000000e+06, /* 0x4150f2ebd0000000 */ + 1.20774762500000000000e+07, /* 0x4167093488000000 */ + 3.28299845000000000000e+07, /* 0x417f4f2208000000 */ + 8.92411500000000000000e+07, /* 0x419546d8f8000000 */ + 2.42582596000000000000e+08, /* 0x41aceb0888000000 */ + 6.59407856000000000000e+08, /* 0x41c3a6e1f8000000 */ + 1.79245641600000000000e+09, /* 0x41dab5adb8000000 */ + 4.87240166400000000000e+09, /* 0x41f226af30000000 */ + 1.32445608960000000000e+10, /* 0x4208ab7fb0000000 */ + 3.60024494080000000000e+10, /* 0x4220c3d390000000 */ + 9.78648043520000000000e+10, /* 0x4236c93268000000 */ + 2.66024116224000000000e+11, /* 0x424ef822f0000000 */ + 7.23128516608000000000e+11, /* 0x42650bba30000000 */ + 1.96566712320000000000e+12, /* 0x427c9aae40000000 */ + 5.34323724288000000000e+12, /* 0x4293704708000000 */ + 1.45244246507520000000e+13, /* 0x42aa6b7658000000 */ + 3.94814795284480000000e+13, /* 0x42c1f43fc8000000 */ + 1.07321789251584000000e+14, /* 0x42d866f348000000 */ + 2.91730863685632000000e+14, /* 0x42f0953e28000000 */ + 7.93006722514944000000e+14, /* 0x430689e220000000 */ + 2.15561576592179200000e+15}; /* 0x431ea215a0000000 */ + + static const double cosh_tail[ 37] = { + 0.00000000000000000000e+00, /* 0x0000000000000000 */ + 6.89700037027478056904e-09, /* 0x3e3d9f5504c2bd28 */ + 4.43207835591715833630e-08, /* 0x3e67cb66f0a4c9fd */ + 2.33540217013828929694e-07, /* 0x3e8f58617928e588 */ + 5.17452463948269748331e-08, /* 0x3e6bc7d000c38d48 */ + 9.38728274131605919153e-07, /* 0x3eaf7f9d4e329998 */ + 2.73012191010840495544e-06, /* 0x3ec6e6e464885269 */ + 3.29486051438996307950e-06, /* 0x3ecba3a8b946c154 */ + 4.75803746362771416375e-06, /* 0x3ed3f4e76110d5a4 */ + 3.33050940471947692369e-05, /* 0x3f017622515a3e2b */ + 9.94707313972136215365e-06, /* 0x3ee4dc4b528af3d0 */ + 6.51685096227860253398e-05, /* 0x3f11156278615e10 */ + 1.18132406658066663359e-03, /* 0x3f535ad50ed821f5 */ + 6.93090416366541877541e-04, /* 0x3f46b61055f2935c */ + 1.45780415323416845386e-03, /* 0x3f57e2794a601240 */ + 2.99862082708111758744e-02, /* 0x3f9eb4b45f6aadd3 */ + 1.02539925859688602072e-02, /* 0x3f85000b967b3698 */ + 1.26787669807076286421e-01, /* 0x3fc03a940fadc092 */ + 6.86652631843830962843e-02, /* 0x3fb1940bf3bf874c */ + 4.81593633223853068159e-01, /* 0x3fded26e1a2a2110 */ + 1.70489514001513020602e+00, /* 0x3ffb4740205796d6 */ + 1.12416073489841270572e+01, /* 0x40267bb3f55cb85d */ + 7.06579578098005001152e+00, /* 0x401c435ff81e18ac */ + 5.91244513000686140458e+01, /* 0x404d8fee052bdea4 */ + 1.68921736147088438429e+02, /* 0x40651d7edccde926 */ + 2.60692936262087528121e+02, /* 0x40704b1644557e0e */ + 3.62419382134890611269e+02, /* 0x4076a6b5ca0a9e1c */ + 4.07689930834187453002e+03, /* 0x40afd9cc72249abe */ + 1.55377375868385224749e+04, /* 0x40ce58de693edab5 */ + 2.53720210371943103382e+04, /* 0x40d8c70158ac6364 */ + 4.78822310734952334315e+04, /* 0x40e7614764f43e20 */ + 1.81871712615542812273e+05, /* 0x4106337db36fc718 */ + 5.62892347580489004031e+05, /* 0x41212d98b1f611e2 */ + 6.41374032312148716301e+05, /* 0x412392bc108b37cc */ + 7.57809544070145115256e+06, /* 0x415ce87bdc3473dc */ + 3.64177136406482197344e+06, /* 0x414bc8d5ae99ad14 */ + 7.63580561355670914054e+06}; /* 0x415d20d76744835c */ + + unsigned long ux, aux, xneg; + double y, z, z1, z2; + int m; + + /* Special cases */ + + GET_BITS_DP64(x, ux); + aux = ux & ~SIGNBIT_DP64; + if (aux < 0x3e30000000000000) /* |x| small enough that cosh(x) = 1 */ + { + if (aux == 0) + /* with no inexact */ + return 1.0; + else + return val_with_flags(1.0, AMD_F_INEXACT); + } + else if (aux >= PINFBITPATT_DP64) /* |x| is NaN or Inf */ + { + if (aux > PINFBITPATT_DP64) /* x is NaN */ + return _handle_error("cosh", OP_COSH, ux|0x0008000000000000,_DOMAIN, + 0,EDOM, x, 0.0, 1); + else /* x is infinity */ + return infinity_with_flags(0); + } + + xneg = (aux != ux); + + y = x; + if (xneg) y = -x; + + if (y >= max_cosh_arg) + { + return _handle_error("cosh", OP_COSH, PINFBITPATT_DP64,_OVERFLOW, + AMD_F_INEXACT|AMD_F_OVERFLOW,ERANGE, x, 0.0, 1); + +// z = infinity_with_flags(AMD_F_OVERFLOW); + } + else if (y >= small_threshold) + { + /* In this range y is large enough so that + the negative exponential is negligible, + so cosh(y) is approximated by sign(x)*exp(y)/2. The + code below is an inlined version of that from + exp() with two changes (it operates on + y instead of x, and the division by 2 is + done by reducing m by 1). */ + + splitexp(y, 1.0, thirtytwo_by_log2, log2_by_32_lead, + log2_by_32_tail, &m, &z1, &z2); + m -= 1; + + if (m >= EMIN_DP64 && m <= EMAX_DP64) + z = scaleDouble_1((z1+z2),m); + else + z = scaleDouble_2((z1+z2),m); + } + else + { + /* In this range we find the integer part y0 of y + and the increment dy = y - y0. We then compute + + z = sinh(y) = sinh(y0)cosh(dy) + cosh(y0)sinh(dy) + z = cosh(y) = cosh(y0)cosh(dy) + sinh(y0)sinh(dy) + + where sinh(y0) and cosh(y0) are tabulated above. */ + + int ind; + double dy, dy2, sdy, cdy; + + ind = (int)y; + dy = y - ind; + + dy2 = dy*dy; + sdy = dy*dy2*(0.166666666666666667013899e0 + + (0.833333333333329931873097e-2 + + (0.198412698413242405162014e-3 + + (0.275573191913636406057211e-5 + + (0.250521176994133472333666e-7 + + (0.160576793121939886190847e-9 + + 0.7746188980094184251527126e-12*dy2)*dy2)*dy2)*dy2)*dy2)*dy2); + + cdy = dy2*(0.500000000000000005911074e0 + + (0.416666666666660876512776e-1 + + (0.138888888889814854814536e-2 + + (0.248015872460622433115785e-4 + + (0.275573350756016588011357e-6 + + (0.208744349831471353536305e-8 + + 0.1163921388172173692062032e-10*dy2)*dy2)*dy2)*dy2)*dy2)*dy2); + + /* At this point sinh(dy) is approximated by dy + sdy, and cosh(dy) is approximated by 1 + cdy. + Shift some significant bits from dy to cdy. */ +#if 0 + double sdy1,sdy2; + GET_BITS_DP64(dy, ux); + ux &= 0xfffffffff8000000; + PUT_BITS_DP64(ux, sdy1); // sdy1 is upper 53-27=26 significant bits of dy. + sdy2 = sdy + (dy - sdy1); // sdy2 is sdy + lower bits of dy + + z = ((((((cosh_tail[ind]*cdy + sinh_tail[ind]*sdy2) + + sinh_tail[ind]*sdy1) + cosh_tail[ind]) + + cosh_lead[ind]*cdy) + sinh_lead[ind]*sdy2) + + sinh_lead[ind]*sdy1) + cosh_lead[ind]; +#else + z = ((((((cosh_tail[ind]*cdy + sinh_tail[ind]*sdy) + + sinh_tail[ind]*dy) + cosh_tail[ind]) + + cosh_lead[ind]*cdy) + sinh_lead[ind]*sdy) + + sinh_lead[ind]*dy) + cosh_lead[ind]; +#endif + } + + return z; +} diff --git a/sdk/lib/crt/math/libm_sse2/coshf.c b/sdk/lib/crt/math/libm_sse2/coshf.c new file mode 100644 index 00000000000..6e7ad089c37 --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/coshf.c @@ -0,0 +1,247 @@ + +/******************************************************************************* +MIT License +----------- + +Copyright (c) 2002-2019 Advanced Micro Devices, Inc. + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this Software and associated documentaon 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 "libm.h" +#include "libm_util.h" + +#define USE_SPLITEXP +#define USE_SCALEDOUBLE_1 +#define USE_SCALEDOUBLE_2 +#define USE_INFINITYF_WITH_FLAGS +#define USE_VALF_WITH_FLAGS +#define USE_HANDLE_ERRORF +#include "libm_inlines.h" +#undef USE_SPLITEXP +#undef USE_SCALEDOUBLE_1 +#undef USE_SCALEDOUBLE_2 +#undef USE_INFINITYF_WITH_FLAGS +#undef USE_VALF_WITH_FLAGS +#undef USE_HANDLE_ERRORF + +// Disable "C4163: not available as intrinsic function" warning that older +// compilers may issue here. +#pragma warning(disable:4163) +#pragma function(coshf) + +float coshf(float fx) +{ + /* + After dealing with special cases the computation is split into + regions as follows: + + abs(x) >= max_cosh_arg: + cosh(x) = sign(x)*Inf + + abs(x) >= small_threshold: + cosh(x) = sign(x)*exp(abs(x))/2 computed using the + splitexp and scaleDouble functions as for exp_amd(). + + abs(x) < small_threshold: + compute p = exp(y) - 1 and then z = 0.5*(p+(p/(p+1.0))) + cosh(x) is then sign(x)*z. */ + + static const double + /* The max argument of coshf, but stored as a double */ + max_cosh_arg = 8.94159862922329438106e+01, /* 0x40565a9f84f82e63 */ + thirtytwo_by_log2 = 4.61662413084468283841e+01, /* 0x40471547652b82fe */ + log2_by_32_lead = 2.16608493356034159660e-02, /* 0x3f962e42fe000000 */ + log2_by_32_tail = 5.68948749532545630390e-11, /* 0x3dcf473de6af278e */ + + small_threshold = 8*BASEDIGITS_DP64*0.30102999566398119521373889; +// small_threshold = 20.0; + /* (8*BASEDIGITS_DP64*log10of2) ' exp(-x) insignificant c.f. exp(x) */ + + /* Tabulated values of sinh(i) and cosh(i) for i = 0,...,36. */ + + static const double sinh_lead[ 37] = { + 0.00000000000000000000e+00, /* 0x0000000000000000 */ + 1.17520119364380137839e+00, /* 0x3ff2cd9fc44eb982 */ + 3.62686040784701857476e+00, /* 0x400d03cf63b6e19f */ + 1.00178749274099008204e+01, /* 0x40240926e70949ad */ + 2.72899171971277496596e+01, /* 0x403b4a3803703630 */ + 7.42032105777887522891e+01, /* 0x40528d0166f07374 */ + 2.01713157370279219549e+02, /* 0x406936d22f67c805 */ + 5.48316123273246489589e+02, /* 0x408122876ba380c9 */ + 1.49047882578955000099e+03, /* 0x409749ea514eca65 */ + 4.05154190208278987484e+03, /* 0x40afa7157430966f */ + 1.10132328747033916443e+04, /* 0x40c5829dced69991 */ + 2.99370708492480553105e+04, /* 0x40dd3c4488cb48d6 */ + 8.13773957064298447222e+04, /* 0x40f3de1654d043f0 */ + 2.21206696003330085659e+05, /* 0x410b00b5916a31a5 */ + 6.01302142081972560845e+05, /* 0x412259ac48bef7e3 */ + 1.63450868623590236530e+06, /* 0x4138f0ccafad27f6 */ + 4.44305526025387924165e+06, /* 0x4150f2ebd0a7ffe3 */ + 1.20774763767876271158e+07, /* 0x416709348c0ea4ed */ + 3.28299845686652474105e+07, /* 0x417f4f22091940bb */ + 8.92411504815936237574e+07, /* 0x419546d8f9ed26e1 */ + 2.42582597704895108938e+08, /* 0x41aceb088b68e803 */ + 6.59407867241607308388e+08, /* 0x41c3a6e1fd9eecfd */ + 1.79245642306579566002e+09, /* 0x41dab5adb9c435ff */ + 4.87240172312445068359e+09, /* 0x41f226af33b1fdc0 */ + 1.32445610649217357635e+10, /* 0x4208ab7fb5475fb7 */ + 3.60024496686929321289e+10, /* 0x4220c3d3920962c8 */ + 9.78648047144193725586e+10, /* 0x4236c932696a6b5c */ + 2.66024120300899291992e+11, /* 0x424ef822f7f6731c */ + 7.23128532145737548828e+11, /* 0x42650bba3796379a */ + 1.96566714857202099609e+12, /* 0x427c9aae4631c056 */ + 5.34323729076223046875e+12, /* 0x429370470aec28ec */ + 1.45244248326237109375e+13, /* 0x42aa6b765d8cdf6c */ + 3.94814800913403437500e+13, /* 0x42c1f43fcc4b662c */ + 1.07321789892958031250e+14, /* 0x42d866f34a725782 */ + 2.91730871263727437500e+14, /* 0x42f0953e2f3a1ef7 */ + 7.93006726156715250000e+14, /* 0x430689e221bc8d5a */ + 2.15561577355759750000e+15}; /* 0x431ea215a1d20d76 */ + + static const double cosh_lead[ 37] = { + 1.00000000000000000000e+00, /* 0x3ff0000000000000 */ + 1.54308063481524371241e+00, /* 0x3ff8b07551d9f550 */ + 3.76219569108363138810e+00, /* 0x400e18fa0df2d9bc */ + 1.00676619957777653269e+01, /* 0x402422a497d6185e */ + 2.73082328360164865444e+01, /* 0x403b4ee858de3e80 */ + 7.42099485247878334349e+01, /* 0x40528d6fcbeff3a9 */ + 2.01715636122455890700e+02, /* 0x406936e67db9b919 */ + 5.48317035155212010977e+02, /* 0x4081228949ba3a8b */ + 1.49047916125217807348e+03, /* 0x409749eaa93f4e76 */ + 4.05154202549259389343e+03, /* 0x40afa715845d8894 */ + 1.10132329201033226127e+04, /* 0x40c5829dd053712d */ + 2.99370708659497577173e+04, /* 0x40dd3c4489115627 */ + 8.13773957125740562333e+04, /* 0x40f3de1654d6b543 */ + 2.21206696005590405548e+05, /* 0x410b00b5916b6105 */ + 6.01302142082804115489e+05, /* 0x412259ac48bf13ca */ + 1.63450868623620807193e+06, /* 0x4138f0ccafad2d17 */ + 4.44305526025399193168e+06, /* 0x4150f2ebd0a8005c */ + 1.20774763767876680940e+07, /* 0x416709348c0ea503 */ + 3.28299845686652623117e+07, /* 0x417f4f22091940bf */ + 8.92411504815936237574e+07, /* 0x419546d8f9ed26e1 */ + 2.42582597704895138741e+08, /* 0x41aceb088b68e804 */ + 6.59407867241607308388e+08, /* 0x41c3a6e1fd9eecfd */ + 1.79245642306579566002e+09, /* 0x41dab5adb9c435ff */ + 4.87240172312445068359e+09, /* 0x41f226af33b1fdc0 */ + 1.32445610649217357635e+10, /* 0x4208ab7fb5475fb7 */ + 3.60024496686929321289e+10, /* 0x4220c3d3920962c8 */ + 9.78648047144193725586e+10, /* 0x4236c932696a6b5c */ + 2.66024120300899291992e+11, /* 0x424ef822f7f6731c */ + 7.23128532145737548828e+11, /* 0x42650bba3796379a */ + 1.96566714857202099609e+12, /* 0x427c9aae4631c056 */ + 5.34323729076223046875e+12, /* 0x429370470aec28ec */ + 1.45244248326237109375e+13, /* 0x42aa6b765d8cdf6c */ + 3.94814800913403437500e+13, /* 0x42c1f43fcc4b662c */ + 1.07321789892958031250e+14, /* 0x42d866f34a725782 */ + 2.91730871263727437500e+14, /* 0x42f0953e2f3a1ef7 */ + 7.93006726156715250000e+14, /* 0x430689e221bc8d5a */ + 2.15561577355759750000e+15}; /* 0x431ea215a1d20d76 */ + + unsigned long ux, aux, xneg; + unsigned int uhx; + double x = fx, y, z, z1, z2; + int m; + + /* Special cases */ + + GET_BITS_DP64(x, ux); + aux = ux & ~SIGNBIT_DP64; + if (aux < 0x3f10000000000000) /* |x| small enough that cosh(x) = 1 */ + { + if (aux == 0) return (float)1.0; /* with no inexact */ + if (LAMBDA_DP64 + x > 1.0) return valf_with_flags((float)1.0, AMD_F_INEXACT); /* with inexact */ + } + else if (aux >= PINFBITPATT_DP64) /* |x| is NaN or Inf */ + if (aux > PINFBITPATT_DP64) /* x is NaN */ + { + GET_BITS_SP32(fx, uhx); + return _handle_errorf("coshf",OP_COSH,uhx|0x00400000,_DOMAIN, 0, + EDOM, fx, 0.0, 1); + } + else /* x is infinity */ + return infinityf_with_flags(0); + xneg = (aux != ux); + + y = x; + if (xneg) y = -x; + + if (y >= max_cosh_arg) + /* Return +infinity with overflow flag. */ + return _handle_errorf("coshf",OP_COSH,PINFBITPATT_SP32,_OVERFLOW, + AMD_F_INEXACT|AMD_F_OVERFLOW,ERANGE, fx, 0.0, 1); +// z = infinity_with_flags(AMD_F_OVERFLOW); + else if (y >= small_threshold) + { + /* In this range y is large enough so that + the negative exponential is negligible, + so cosh(y) is approximated by sign(x)*exp(y)/2. The + code below is an inlined version of that from + exp() with two changes (it operates on + y instead of x, and the division by 2 is + done by reducing m by 1). */ + + splitexp(y, 1.0, thirtytwo_by_log2, log2_by_32_lead, + log2_by_32_tail, &m, &z1, &z2); + m -= 1; + + /* scaleDouble_1 is always safe because the argument x was + float, rather than double */ + z = scaleDouble_1((z1+z2),m); + } + else + { + /* In this range we find the integer part y0 of y + and the increment dy = y - y0. We then compute + + z = sinh(y) = sinh(y0)cosh(dy) + cosh(y0)sinh(dy) + z = cosh(y) = cosh(y0)cosh(dy) + sinh(y0)sinh(dy) + + where sinh(y0) and cosh(y0) are tabulated above. */ + + int ind; + double dy, dy2, sdy, cdy; + + ind = (int)y; + dy = y - ind; + + dy2 = dy*dy; + + sdy = dy + dy*dy2*(0.166666666666666667013899e0 + + (0.833333333333329931873097e-2 + + (0.198412698413242405162014e-3 + + (0.275573191913636406057211e-5 + + (0.250521176994133472333666e-7 + + (0.160576793121939886190847e-9 + + 0.7746188980094184251527126e-12*dy2)*dy2)*dy2)*dy2)*dy2)*dy2); + + cdy = 1 + dy2*(0.500000000000000005911074e0 + + (0.416666666666660876512776e-1 + + (0.138888888889814854814536e-2 + + (0.248015872460622433115785e-4 + + (0.275573350756016588011357e-6 + + (0.208744349831471353536305e-8 + + 0.1163921388172173692062032e-10*dy2)*dy2)*dy2)*dy2)*dy2)*dy2); + + z = cosh_lead[ind]*cdy + sinh_lead[ind]*sdy; + } + +// if (xneg) z = - z; + return (float)z; +} diff --git a/sdk/lib/crt/math/libm_sse2/exp.asm b/sdk/lib/crt/math/libm_sse2/exp.asm new file mode 100644 index 00000000000..10fb7f48c6a --- /dev/null +++ b/sdk/lib/crt/math/libm_sse2/exp.asm @@ -0,0 +1,439 @@ +; +; MIT License +; ----------- +; +; Copyright (c) 2002-2019 Advanced Micro Devices, Inc. +; +; Permission is hereby granted, free of charge, to any person obtaining a copy +; of this Software and associated documentaon 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. +; +; exp.asm +; +; An implementation of the exp libm function. +; +; Prototype: +; +; double exp(double x); +; + +; +; Algorithm: +; +; e^x = 2^(x/ln(2)) = 2^(x*(64/ln(2))/64) +; +; x*(64/ln(2)) = n + f, |f| <= 0.5, n is integer +; n = 64*m + j, 0 <= j < 64 +; +; e^x = 2^((64*m + j + f)/64) +; = (2^m) * (2^(j/64)) * 2^(f/64) +; = (2^m) * (2^(j/64)) * e^(f*(ln(2)/64)) +; +; f = x*(64/ln(2)) - n +; r = f*(ln(2)/64) = x - n*(ln(2)/64) +; +; e^x = (2^m) * (2^(j/64)) * e^r +; +; (2^(j/64)) is precomputed +; +; e^r = 1 + r + (r^2)/2! + (r^3)/3! + (r^4)/4! + (r^5)/5! + (r^5)/5! +; e^r = 1 + q +; +; q = r + (r^2)/2! + (r^3)/3! + (r^4)/4! + (r^5)/5! + (r^5)/5! +; + +.const +ALIGN 16 +; these codes and the ones in the corresponding .c file have to match +__flag_x_nan DD 00000001 +__flag_y_zero DD 00000002 +__flag_y_inf DD 00000003 + +ALIGN 16 + +L__real_1_by_720 DQ 03f56c16c16c16c17h + DQ 03f56c16c16c16c17h ; 1/720 +L__real_1_by_120 DQ 03f81111111111111h + DQ 03f81111111111111h ; 1/120 +L__real_1_by_6 DQ 03fc5555555555555h + DQ 03fc5555555555555h ; 1/6 +L__real_1_by_2 DQ 03fe0000000000000h + DQ 03fe0000000000000h ; 1/2 +L__real_1_by_24 DQ 03fa5555555555555h + DQ 03fa5555555555555h ; 1/24 + +ALIGN 16 +L__log2_by_64_mtail_mhead DQ 0bf862e42fefa0000h, 0bd1cf79abc9e3b39h +L__ln_of_smallest_normal DQ 0C086232BDD7ABCD2h +L__zero DQ 00000000000000000h +L__max_exp_arg DQ 040862e42fefa39efh ; 709.78271289338397 +L__denormal_tiny_threshold DQ 0c0874046dfefd9d0h ; -744.03460681327306 +L__min_exp_arg DQ 0c0874910d52d3051h ; -745.13321910194111 +L__real_64_by_log2 DQ 040571547652b82feh ; 64/ln(2) +L__positive_infinity DQ 07ff0000000000000h +L__negative_infinity DQ 0fff0000000000000h +L__real_qnanbit DQ 0008000000000000h ; qnan set bit +L__real_x_near0_threshold DQ 3c00000000000000h +L__log2_by_64_mhead DQ 0bf862e42fefa0000h +L__log2_by_64_mtail DQ 0bd1cf79abc9e3b39h +L__real_smallest_denormal DQ 00000000000000001h +L__real_one DQ 03ff0000000000000h +L__2_to_neg_26 DQ 03E50000000000000h ; 2^-26 +L__min_normal DQ 00010000000000000h ; smallest normal + + +EXTRN __two_to_jby64_table:QWORD +EXTRN __two_to_jby64_head_table:QWORD +EXTRN __two_to_jby64_tail_table:QWORD +EXTRN __use_fma3_lib:DWORD + +; make room for fname_special to save things +dummy_space EQU 020h +stack_size EQU 038h + +include fm.inc + +fname TEXTEQU <exp> +fname_special TEXTEQU <_exp_special> + +;Define name and any external functions being called +EXTERN fname_special : PROC + +.code +PUBLIC fname +fname PROC FRAME + StackAllocate stack_size + .ENDPROLOG + + ; We need to avoid unwanted exceptions from a NaN argument. + ; It could be argued that a signaling NaN should raise an exception, + ; but the existing library doesn't. At any rate, the comparison operations + ; don't seem to like quiet NaN either, so... + movd rdx, xmm0 + btr rdx, 63 + cmp rdx, L__positive_infinity + jge Lexp_x_is_nan_or_inf + + cmp DWORD PTR __use_fma3_lib, 0 + jne Lexp_fma3 + + movapd xmm2, xmm0 + movapd xmm3, xmm0 + + ; Some hardware has problems with too many branches in a single + ; 16- or 32-byte window, so let's peel off the common case into + ; a single branch. + cmplesd xmm2, L__max_exp_arg ; xmm2 <-- 0xFFFFFFFF is x is not too big positive + cmpnltsd xmm3, L__denormal_tiny_threshold ; xmm3 <-- 0xFFFFFFFF if x is not too big negative + andps xmm2, xmm3 ; xmm2 <-- 0xFFFFFFFF if x is in range, 0 otherwise + ucomisd xmm2, xmm2 ; note that FFF... is NaN, so this comparison should set PF for in-range x + jp Lexp_y_is_finite + + ucomisd xmm0, L__max_exp_arg + ja Lexp_y_is_inf + ; Since we peeled off the cases with normal result, + ; there is only one possibility remaining: + jmp Lexp_y_is_denormal_or_zero + +ALIGN 16 +Lexp_y_is_finite: + ; x * (64/ln(2)) + movapd xmm1, xmm0 + btr rdx, 63 ; rdx <-- |x| + cmp rdx, L__2_to_neg_26 + jbe Lexp_return_1_plus_x + mulsd xmm1, L__real_64_by_log2 + + ; n = int( x * (64/ln(2)) ) + cvttpd2dq xmm2, xmm1 ; xmm2 = (int)n + cvtdq2pd xmm1, xmm2 ; xmm1 = (double)n + movd ecx, xmm2 + movapd xmm2, xmm1 + + ; r1 = x - n * ln(2)/64 head + mulsd xmm1, L__log2_by_64_mhead + + ; j = n & 0x3f + mov rax, 03fh + and eax, ecx ; eax = j + ; m = (n - j) / 64 + sar ecx, 6 ; ecx = m + + + ; r2 = - n * ln(2)/64 tail + mulsd xmm2, L__log2_by_64_mtail + addsd xmm0, xmm1 ; xmm0 = r1 + + ; r1+r2 + addsd xmm2, xmm0 ; xmm2 = r + + ; q = r + r^2*1/2 + r^3*1/6 + r^4 *1/24 + r^5*1/120 + r^6*1/720 + ; q = r + r*r*(1/2 + r*(1/6+ r*(1/24 + r*(1/120 + r*(1/720))))) + movapd xmm3, L__real_1_by_720 ; xmm3 = 1/720 + mulsd xmm3, xmm2 ; xmm3 = r*1/720 + movapd xmm0, L__real_1_by_6 ; xmm0 = 1/6 + movapd xmm1, xmm2 ; xmm1 = r + mulsd xmm0, xmm2 ; xmm0 = r*1/6 + addsd xmm3, L__real_1_by_120 ; xmm3 = 1/120 + (r*1/720) + mulsd xmm1, xmm2 ; xmm1 = r*r + addsd xmm0, L__real_1_by_2 ; xmm0 = 1/2 + (r*1/6) + movapd xmm4, xmm1 ; xmm4 = r*r + mulsd xmm4, xmm1 ; xmm4 = (r*r) * (r*r) + mulsd xmm3, xmm2 ; xmm3 = r * (1/120 + (r*1/720)) + mulsd xmm0, xmm1 ; xmm0 = (r*r)*(1/2 + (r*1/6)) + addsd xmm3, L__real_1_by_24 ; xmm3 = 1/24 + (r * (1/120 + (r*1/720))) + addsd xmm0, xmm2 ; xmm0 = r + ((r*r)*(1/2 + (r*1/6))) + mulsd xmm3, xmm4 ; xmm3 = ((r*r) * (r*r)) * (1/24 + (r * (1/120 + (r*1/720)))) + addsd xmm0, xmm3 ; xmm0 = r + ((r*r)*(1/2 + (r*1/6))) + ((r*r) * (r*r)) * (1/24 + (r * (1/120 + (r*1/720)))) + + ;(f)*(q) + f2 + f1 + cmp ecx, 0fffffc02h ; -1022 + lea rdx, __two_to_jby64_table + lea r11, __two_to_jby64_tail_table + lea r10, __two_to_jby64_head_table + mulsd xmm0, QWORD PTR [rdx+rax * 8 ] + addsd xmm0, QWORD PTR [r11+rax * 8 ] + addsd xmm0, QWORD PTR [r10+rax * 8 ] + + jle Lexp_process_denormal +Lexp_process_normal: + shl rcx, 52 + movd xmm2, rcx + paddq xmm0, xmm2 + StackDeallocate stack_size + ret + +ALIGN 16 +Lexp_process_denormal: + jl Lexp_process_true_denormal + ucomisd xmm0, L__real_one + jae Lexp_process_normal +Lexp_process_true_denormal: + ; here ( e^r < 1 and m = -1022 ) or m <= -1023 + add ecx, 1074 + mov rax, 1 + shl rax, cl + movd xmm2, rax + mulsd xmm0, xmm2 + jmp Lexp_finish + +Lexp_y_is_one: + movsd xmm0, L__real_one + jmp Lexp_finish + +ALIGN 16 +Lexp_x_is_nan_or_inf: + movd rax, xmm0 + cmp rax, L__positive_infinity + je Lexp_finish + cmp rax, L__negative_infinity + je Lexp_return_zero_without_exception + or rax, L__real_qnanbit + movd xmm1, rax + mov r8d, __flag_x_nan + call fname_special + jmp Lexp_finish + +ALIGN 16 +Lexp_y_is_inf: + mov rax, 07ff0000000000000h + movd xmm1, rax + mov r8d, __flag_y_inf + call fname_special + jmp Lexp_finish + +ALIGN 16 +Lexp_y_is_denormal_or_zero: + ucomisd xmm0, L__min_exp_arg + jbe Lexp_y_is_zero + movapd xmm0, L__real_smallest_denormal + jmp Lexp_finish + +ALIGN 16 +Lexp_y_is_zero: + pxor xmm1, xmm1 + mov r8d, __flag_y_zero + call fname_special + jmp Lexp_finish + +ALIGN 16 +Lexp_return_1_plus_x: + cmp rdx, L__min_normal + jbe Lexp_return_1_plus_eps + addsd xmm0, L__real_one + StackDeallocate stack_size + ret 0 + +; Some hardware really does not like subnormals. Try to avoid them. +ALIGN 16 +Lexp_return_1_plus_eps: + movsd xmm0, L__real_one + addsd xmm0, L__min_normal ; make sure inexact is set + StackDeallocate stack_size + ret 0 + +ALIGN 16 +Lexp_return_zero_without_exception: + pxor xmm0,xmm0 + StackDeallocate stack_size + ret 0 + + +ALIGN 16 +Lexp_finish: + StackDeallocate stack_size + ret 0 + +ALIGN 16 +Lexp_fma3: + ; Some hardware has problems with too many branches in a single + ; 16- or 32-byte window, so let's peel off the common case into + ; a single branch. + vcmplesd xmm2, xmm0, L__max_exp_arg ; xmm2 <-- 0xFFFFFFFF is x is not too big positive + vcmpnltsd xmm3, xmm0, L__denormal_tiny_threshold ; xmm3 <-- 0xFFFFFFFF if x is not too big negative + vandps xmm2, xmm3, xmm2 ; xmm2 <-- 0xFFFFFFFF if x is in range, 0 otherwise + vucomisd xmm2, xmm2 ; note that FFF... is NaN, so this comparison should set PF for in-range x + jp Lexp_fma3_y_is_finite + + vucomisd xmm0,L__max_exp_arg + ja Lexp_fma3_y_is_inf + ; Since we peeled off the cases with normal result, + ; there is only one possibility remaining: + jmp Lexp_fma3_y_is_zero + +; vpsllq xmm1, xmm0, 1 +; vpsrlq xmm1, xmm1, 1 +; vucomisd xmm1, L__real_x_near0_threshold ; 2^-63 +; jb Lexp_fma3_y_is_one + +ALIGN 16 +Lexp_fma3_y_is_finite: + vmovq rdx, xmm0 + btr rdx, 63 ; rdx <-- |x| + cmp rdx, L__2_to_neg_26 + jbe Lexp_fma3_return_1_plus_x + + ; x * (64/ln(2)) + vmulsd xmm1,xmm0,L__real_64_by_log2 + + ; n = int( x * (64/ln(2)) ) + vcvttpd2dq xmm2,xmm1 ;xmm2 = (int)n + vcvtdq2pd xmm1,xmm2 ;xmm1 = (double)n ;can use round + vmovd ecx,xmm2 + + ; r1 = x - n * ln(2)/64 head + ; r2 = - n * ln(2)/64 tail + ; r = r1+r2 + vmovlhps xmm1,xmm1,xmm1 ;xmm1 = (double (double)n,)n + vmovq xmm0,xmm0 ;xmm0 = 0,x ;zero out the upper part + vfmadd132pd xmm1,xmm0,L__log2_by_64_mtail_mhead + vhaddpd xmm2,xmm1,xmm1 ;xmm2 = r,r + + ;j = n & 03fh + mov rax,03fh + and eax,ecx ;eax = j + ; m = (n - j) / 64 + sar ecx,6 ;ecx = m + + ; q = r + r^2*1/2 + r^3*1/6 + r^4 *1/24 + r^5*1/120 + r^6*1/720 + ; q = r + r*r*(1/2 + r*(1/6+ r*(1/24 + r*(1/120 + r*(1/720))))) + vmovapd xmm3,L__real_1_by_720 + vfmadd213sd xmm3,xmm2,L__real_1_by_120 + vfmadd213sd xmm3,xmm2,L__real_1_by_24 + vfmadd213sd xmm3,xmm2,L__real_1_by_6 + vfmadd213sd xmm3,xmm2,L__real_1_by_2 + vmulsd xmm0,xmm2,xmm2 + vfmadd213sd xmm0,xmm3,xmm2 + + ; (f)*(q) + f2 + f1 + cmp ecx,0fffffc02h ; -1022 + lea rdx,__two_to_jby64_table + lea r11,__two_to_jby64_tail_table + lea r10,__two_to_jby64_head_table + vmulsd xmm2,xmm0,QWORD PTR[rdx + rax * 8] ... 17978 lines suppressed ...

1 year, 9 months

[reactos] 02/15: [XDK] Silence some GCC x64 warnings

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=081c637c0636c065f0198… commit 081c637c0636c065f0198c353efac74658d7c635 Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Wed Aug 24 13:10:02 2022 +0200 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [XDK] Silence some GCC x64 warnings --- sdk/include/xdk/amd64/ke.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sdk/include/xdk/amd64/ke.h b/sdk/include/xdk/amd64/ke.h index 64212336702..b9238ccfd17 100644 --- a/sdk/include/xdk/amd64/ke.h +++ b/sdk/include/xdk/amd64/ke.h @@ -272,8 +272,8 @@ typedef struct DECLSPEC_ALIGN(16) _CONTEXT { M128A Xmm13; M128A Xmm14; M128A Xmm15; - } DUMMYSTRUCTNAME; - } DUMMYUNIONNAME; + } DUMMYSTRUCTNAME DECLSPEC_ALIGN(16); + } DUMMYUNIONNAME DECLSPEC_ALIGN(16); M128A VectorRegister[26]; ULONG64 VectorControl; ULONG64 DebugControl;

1 year, 9 months

[reactos] 01/15: [CRT] Add a workaround for CORE-18255

by Timo Kreuzer

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=06f1ac5fa4f1e84afb4d5… commit 06f1ac5fa4f1e84afb4d5b4392e84f9781bb2d6c Author: Timo Kreuzer <timo.kreuzer(a)reactos.org> AuthorDate: Wed Aug 24 10:42:19 2022 +0200 Commit: Timo Kreuzer <timo.kreuzer(a)reactos.org> CommitDate: Thu Dec 1 15:21:59 2022 +0200 [CRT] Add a workaround for CORE-18255 --- sdk/include/crt/math.h | 3 +++ 1 file changed, 3 insertions(+) diff --git a/sdk/include/crt/math.h b/sdk/include/crt/math.h index 80aafd21d9c..f32c2a33a77 100644 --- a/sdk/include/crt/math.h +++ b/sdk/include/crt/math.h @@ -295,6 +295,9 @@ _Check_return_ __CRT_INLINE long lrintl(_In_ long double x) { return (long)((x < _Check_return_ __CRT_INLINE long long llrint(_In_ double x) { return (long long)((x < 0) ? (x - 0.5f) : (x + 0.5)); } _Check_return_ __CRT_INLINE long long llrintf(_In_ float x) { return (long long)((x < 0) ? (x - 0.5f) : (x + 0.5)); } _Check_return_ __CRT_INLINE long long llrintl(_In_ long double x) { return (long long)((x < 0) ? (x - 0.5f) : (x + 0.5)); } +#ifdef _MSC_VER +#define log2 _log2 // nasty hack, see CORE-18255 +#endif _Check_return_ __CRT_INLINE double log2(_In_ double x) { return log(x) / log(2); } #endif /* !_CRTBLD */

1 year, 9 months