Lephenixnoir
/
OpenLibm
1
0
Fork 1
Code Issues Pull Requests Releases Wiki Activity

Fix incorrect results in `hypotl` near underflow 

Fixes #224.
This commit is contained in:
Steven G. Kargl 2021-02-10 12:44:19 -08:00 committed by Alex Arslan
parent aeab19f47e
commit 711654eeab
No known key found for this signature in database
GPG Key ID: EE9A20F1240C6047
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/e_hypotl.c
View File

@ -82,7 +82,7 @@ hypotl(long double x, long double y)
man_t manh, manl;
GET_LDBL_MAN(manh,manl,b);
if((manh|manl)==0) return a;
t1=0;
t1=1;
SET_HIGH_WORD(t1,ESW(MAX_EXP-2)); /* t1=2^(MAX_EXP-2) */
b *= t1;
a *= t1;