Initialize all fenv_t with __fe_dfl_env

Author: giordano

src/e_sqrtl.c

@@ -81,7 +81,7 @@ sqrtl(long double x)
 	union IEEEl2bits u;
 	int k, r;
 	long double lo, xn;
-	fenv_t env;
+	fenv_t env = __fe_dfl_env;
 
 	u.e = x;
 

src/s_lrint.c

@@ -49,7 +49,7 @@
 OLM_DLLEXPORT dtype
 fn(type x)
 {
-	fenv_t env;
+	fenv_t env = __fe_dfl_env;
 	dtype d;
 
 	feholdexcept(&env);

src/s_nearbyint.c

@@ -44,7 +44,7 @@ OLM_DLLEXPORT type				\
 fn(type x)			\
 {				\
 	type ret;		\
-	fenv_t env;		\
+	fenv_t env = __fe_dfl_env;	\
 				\
 	fegetenv(&env);		\
 	ret = rint(x);		\

src/s_rintl.c

@@ -106,7 +106,7 @@ OLM_DLLEXPORT type				\
 fn(type x)			\
 {				\
 	type ret;		\
-	fenv_t env;		\
+	fenv_t env = __fe_dfl_env;	\
 				\
 	fegetenv(&env);		\
 	ret = rint(x);		\