Procházet zdrojové kódy

Merge pull request #228 from JuliaMath/aa/hypotl

Fix incorrect results in `hypotl` near underflow
Elliot Saba před 4 roky
rodič
revize
f052f42bb3
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      src/e_hypotl.c

+ 1 - 1
src/e_hypotl.c

@@ -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;