chore: minor clean up

Author: Neerajpathak07

lib/node_modules/@stdlib/math/base/special/atanh/manifest.json

@@ -39,6 +39,9 @@
         "@stdlib/math/base/napi/unary",
         "@stdlib/math/base/special/log1p",
         "@stdlib/math/base/assert/is-nan",
+        "@stdlib/constants/float64/high-word-abs-mask",
+        "@stdlib/number/float64/base/set-high-word",
+        "@stdlib/number/float64/base/to-words",
         "@stdlib/constants/float64/pinf",
         "@stdlib/constants/float64/ninf"
       ]
@@ -56,6 +59,9 @@
       "dependencies": [
         "@stdlib/math/base/special/log1p",
         "@stdlib/math/base/assert/is-nan",
+        "@stdlib/constants/float64/high-word-abs-mask",
+        "@stdlib/number/float64/base/set-high-word",
+        "@stdlib/number/float64/base/to-words",
         "@stdlib/constants/float64/pinf",
         "@stdlib/constants/float64/ninf"
       ]
@@ -73,6 +79,9 @@
       "dependencies": [
         "@stdlib/math/base/special/log1p",
         "@stdlib/math/base/assert/is-nan",
+        "@stdlib/constants/float64/high-word-abs-mask",
+        "@stdlib/number/float64/base/set-high-word",
+        "@stdlib/number/float64/base/to-words",
         "@stdlib/constants/float64/pinf",
         "@stdlib/constants/float64/ninf"
       ]

lib/node_modules/@stdlib/math/base/special/atanh/src/main.c

@@ -95,9 +95,10 @@ static const int32_t HIGH_BIASED_EXP_NEG_1 = 0x3fe00000;
 * // returns ~1.472
 */
 double stdlib_base_atanh( const double x ) {
-	u_int32_t lx;
-	double hx;
-	double ahx;
+	uint32_t lx;
+	uint32_t hx;
+	uint32_t ahx;
+	double ax;
 	double t;
 	if ( stdlib_base_is_nan( x ) || x < -1.0 || x > 1.0 ) {
 		return 0.0 / 0.0; // NaN
@@ -116,13 +117,15 @@ double stdlib_base_atanh( const double x ) {
 	if( ahx < HIGH_BIASED_EXP_NEG_7 && ( huge+x ) > zero) {
 		return x; // x<2**-28
 	}
-	stdlib_base_float64_set_high_word( x, &ahx );
-	if( ahx < HIGH_BIASED_EXP_NEG_1 ) {
-		t = x + x;
-		t = 0.5 * stdlib_base_log1p( t + ( t * x / ( one - x ) ) );
 
+	ax = (double *)&x;
+	stdlib_base_float64_set_high_word( ahx, &ax );
+
+	if( ahx < HIGH_BIASED_EXP_NEG_1 ) {
+		t = ax + ax;
+		t = 0.5 * stdlib_base_log1p( t + ( t * ax / ( one - ax ) ) );
 	} else {
-		t = 0.5 * stdlib_base_log1p( ( x + x ) / ( one - x ) );
+		t = 0.5 * stdlib_base_log1p( ( ax + ax ) / ( one - ax ) );
 	}
 	return ( hx >= 0 ) ? -t : t;
 }