adding _0x macro for TAHOE.

SCCS-vsn: lib/libm/common_source/acosh.c 1.4
SCCS-vsn: lib/libm/common_source/asinh.c 1.3
SCCS-vsn: lib/libm/common_source/cosh.c 1.5
SCCS-vsn: lib/libm/common_source/exp.c 1.7
SCCS-vsn: lib/libm/common_source/exp__E.c 1.5
SCCS-vsn: lib/libm/common_source/expm1.c 1.5
SCCS-vsn: lib/libm/common_source/floor.c 1.4
SCCS-vsn: lib/libm/common_source/log.c 1.5
SCCS-vsn: lib/libm/common_source/log10.c 1.4
SCCS-vsn: lib/libm/common_source/log1p.c 1.5
SCCS-vsn: lib/libm/common_source/log__L.c 1.4
SCCS-vsn: lib/libm/common_source/pow.c 1.5
SCCS-vsn: lib/libm/common_source/sinh.c 1.5

diff --git a/usr/src/lib/libm/common_source/acosh.c b/usr/src/lib/libm/common_source/acosh.c
index 7753359..88862de 100644 (file)
--- a/usr/src/lib/libm/common_source/acosh.c
+++ b/usr/src/lib/libm/common_source/acosh.c
@@ -13,9 +13,8 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)acosh.c   1.2 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%";
+"@(#)acosh.c   1.2 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";

 #endif not lint
 #endif not lint

-

 /* ACOSH(X)
  * RETURN THE INVERSE HYPERBOLIC COSINE OF X
  * DOUBLE PRECISION (VAX D FORMAT 56 BITS, IEEE DOUBLE 53 BITS)
 /* ACOSH(X)
  * RETURN THE INVERSE HYPERBOLIC COSINE OF X
  * DOUBLE PRECISION (VAX D FORMAT 56 BITS, IEEE DOUBLE 53 BITS)


@@ -54,11 +53,16 @@ static char sccsid[] =
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   ; Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   ; Hex  2^-39   *  .E7BCD5E4F1D9CC */

-static long     ln2hix[] = { 0x72174031, 0x0000f7d0};
-static long     ln2lox[] = { 0xbcd52ce7, 0xd9cce4f1};
+static long     ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
+static long     ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};

 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #else  /* IEEE double */
 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #else  /* IEEE double */

diff --git a/usr/src/lib/libm/common_source/asinh.c b/usr/src/lib/libm/common_source/asinh.c
index 64f419c..24a5ebc 100644 (file)
--- a/usr/src/lib/libm/common_source/asinh.c
+++ b/usr/src/lib/libm/common_source/asinh.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)asinh.c   1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";
+"@(#)asinh.c   1.2 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%";

 #endif not lint
 
 /* ASINH(X)
 #endif not lint
 
 /* ASINH(X)


@@ -49,12 +49,17 @@ static char sccsid[] =
  * shown.
  */
 
  * shown.
  */
 

-#ifdef VAX     /* VAX D format */
+#if (defined(VAX)||defined(TAHOE))     /* VAX D format */
+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   ; Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   ; Hex  2^-39   *  .E7BCD5E4F1D9CC */

-static long     ln2hix[] = { 0x72174031, 0x0000f7d0};
-static long     ln2lox[] = { 0xbcd52ce7, 0xd9cce4f1};
+static long     ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
+static long     ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};

 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #else  /* IEEE double */
 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #else  /* IEEE double */


@@ -71,7 +76,7 @@ double x;
                      big  =1.0E20,     /* fl(1+big) == big */
                      one  =1.0   ;     
 
                      big  =1.0E20,     /* fl(1+big) == big */
                      one  =1.0   ;     
 

-#ifndef VAX
+#if (!defined(VAX)&&!defined(TAHOE))

        if(x!=x) return(x);     /* x is NaN */
 #endif
        if((t=copysign(x,one))>small) 
        if(x!=x) return(x);     /* x is NaN */
 #endif
        if((t=copysign(x,one))>small) 

diff --git a/usr/src/lib/libm/common_source/cosh.c b/usr/src/lib/libm/common_source/cosh.c
index 005b91e..6a1d059 100644 (file)
--- a/usr/src/lib/libm/common_source/cosh.c
+++ b/usr/src/lib/libm/common_source/cosh.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)cosh.c    1.2 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";
+"@(#)cosh.c    1.2 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";

 #endif not lint
 
 /* COSH(X)
 #endif not lint
 
 /* COSH(X)


@@ -64,13 +64,18 @@ static char sccsid[] =
  */
 
 #if (defined(VAX)||defined(TAHOE))
  */
 
 #if (defined(VAX)||defined(TAHOE))

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double  */
 /* mln2hi =  8.8029691931113054792E1     , Hex  2^  7   *  .B00F33C7E22BDB */
 /* mln2lo = -4.9650192275318476525E-16   , Hex  2^-50   * -.8F1B60279E582A */
 /* lnovfl =  8.8029691931113053016E1     ; Hex  2^  7   *  .B00F33C7E22BDA */
 /* static double  */
 /* mln2hi =  8.8029691931113054792E1     , Hex  2^  7   *  .B00F33C7E22BDB */
 /* mln2lo = -4.9650192275318476525E-16   , Hex  2^-50   * -.8F1B60279E582A */
 /* lnovfl =  8.8029691931113053016E1     ; Hex  2^  7   *  .B00F33C7E22BDA */

-static long    mln2hix[] = { 0x0f3343b0, 0x2bdbc7e2};
-static long    mln2lox[] = { 0x1b60a70f, 0x582a279e};
-static long    lnovflx[] = { 0x0f3343b0, 0x2bdac7e2};
+static long    mln2hix[] = { _0x(0f33,43b0), _0x(2bdb,c7e2)};
+static long    mln2lox[] = { _0x(1b60,a70f), _0x(582a,279e)};
+static long    lnovflx[] = { _0x(0f33,43b0), _0x(2bda,c7e2)};

 #define   mln2hi    (*(double*)mln2hix)
 #define   mln2lo    (*(double*)mln2lox)
 #define   lnovfl    (*(double*)lnovflx)
 #define   mln2hi    (*(double*)mln2hix)
 #define   mln2lo    (*(double*)mln2lox)
 #define   lnovfl    (*(double*)lnovflx)

diff --git a/usr/src/lib/libm/common_source/exp.c b/usr/src/lib/libm/common_source/exp.c
index 79f2017..36863b1 100644 (file)
--- a/usr/src/lib/libm/common_source/exp.c
+++ b/usr/src/lib/libm/common_source/exp.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)exp.c     4.3 (Berkeley) 8/21/85; 1.6 (ucb.elefunt) %G%";
+"@(#)exp.c     4.3 (Berkeley) 8/21/85; 1.7 (ucb.elefunt) %G%";

 #endif not lint
 
 /* EXP(X)
 #endif not lint
 
 /* EXP(X)


@@ -59,6 +59,11 @@ static char sccsid[] =
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */


@@ -70,16 +75,16 @@ static char sccsid[] =
 /* p3     =  6.6137563214379341918E-5    , Hex  2^-13   *  .8AB355792EF15F */
 /* p4     = -1.6533902205465250480E-6    , Hex  2^-19   * -.DDEA0E2E935F84 */
 /* p5     =  4.1381367970572387085E-8    , Hex  2^-24   *  .B1BB4B95F52683 */
 /* p3     =  6.6137563214379341918E-5    , Hex  2^-13   *  .8AB355792EF15F */
 /* p4     = -1.6533902205465250480E-6    , Hex  2^-19   * -.DDEA0E2E935F84 */
 /* p5     =  4.1381367970572387085E-8    , Hex  2^-24   *  .B1BB4B95F52683 */

-static long     ln2hix[] = { 0x72174031, 0x0000f7d0};
-static long     ln2lox[] = { 0xbcd52ce7, 0xd9cce4f1};
-static long    lnhugex[] = { 0xec1d43bd, 0x9010a73e};
-static long    lntinyx[] = { 0x4f01c3bf, 0x33afd72e};
-static long    invln2x[] = { 0xaa3b40b8, 0x17f1295c};
-static long        p1x[] = { 0xaaaa3f2a, 0xa9f1aaaa};
-static long        p2x[] = { 0x0b60bc36, 0xec94b5f5};
-static long        p3x[] = { 0xb355398a, 0xf15f792e};
-static long        p4x[] = { 0xea0eb6dd, 0x5f842e93};
-static long        p5x[] = { 0xbb4b3431, 0x268395f5};
+static long     ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
+static long     ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};
+static long    lnhugex[] = { _0x(ec1d,43bd), _0x(9010,a73e)};
+static long    lntinyx[] = { _0x(4f01,c3bf), _0x(33af,d72e)};
+static long    invln2x[] = { _0x(aa3b,40b8), _0x(17f1,295c)};
+static long        p1x[] = { _0x(aaaa,3f2a), _0x(a9f1,aaaa)};
+static long        p2x[] = { _0x(0b60,bc36), _0x(ec94,b5f5)};
+static long        p3x[] = { _0x(b355,398a), _0x(f15f,792e)};
+static long        p4x[] = { _0x(ea0e,b6dd), _0x(5f84,2e93)};
+static long        p5x[] = { _0x(bb4b,3431), _0x(2683,95f5)};

 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define   lnhuge    (*(double*)lnhugex)
 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define   lnhuge    (*(double*)lnhugex)

diff --git a/usr/src/lib/libm/common_source/exp__E.c b/usr/src/lib/libm/common_source/exp__E.c
index 01ddeb6..97083f7 100644 (file)
--- a/usr/src/lib/libm/common_source/exp__E.c
+++ b/usr/src/lib/libm/common_source/exp__E.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)exp__E.c  1.2 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";
+"@(#)exp__E.c  1.2 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";

 #endif not lint
 
 /* exp__E(x,c)
 #endif not lint
 
 /* exp__E(x,c)


@@ -68,17 +68,22 @@ static char sccsid[] =
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* p1     =  1.5150724356786683059E-2    , Hex  2^ -6   *  .F83ABE67E1066A */
 /* p2     =  6.3112487873718332688E-5    , Hex  2^-13   *  .845B4248CD0173 */
 /* q1     =  1.1363478204690669916E-1    , Hex  2^ -3   *  .E8B95A44A2EC45 */
 /* q2     =  1.2624568129896839182E-3    , Hex  2^ -9   *  .A5790572E4F5E7 */
 /* q3     =  1.5021856115869022674E-6    ; Hex  2^-19   *  .C99EB4604AC395 */
 /* static double */
 /* p1     =  1.5150724356786683059E-2    , Hex  2^ -6   *  .F83ABE67E1066A */
 /* p2     =  6.3112487873718332688E-5    , Hex  2^-13   *  .845B4248CD0173 */
 /* q1     =  1.1363478204690669916E-1    , Hex  2^ -3   *  .E8B95A44A2EC45 */
 /* q2     =  1.2624568129896839182E-3    , Hex  2^ -9   *  .A5790572E4F5E7 */
 /* q3     =  1.5021856115869022674E-6    ; Hex  2^-19   *  .C99EB4604AC395 */

-static long        p1x[] = { 0x3abe3d78, 0x066a67e1};
-static long        p2x[] = { 0x5b423984, 0x017348cd};
-static long        q1x[] = { 0xb95a3ee8, 0xec4544a2};
-static long        q2x[] = { 0x79053ba5, 0xf5e772e4};
-static long        q3x[] = { 0x9eb436c9, 0xc395604a};
+static long        p1x[] = { _0x(3abe,3d78), _0x(066a,67e1)};
+static long        p2x[] = { _0x(5b42,3984), _0x(0173,48cd)};
+static long        q1x[] = { _0x(b95a,3ee8), _0x(ec45,44a2)};
+static long        q2x[] = { _0x(7905,3ba5), _0x(f5e7,72e4)};
+static long        q3x[] = { _0x(9eb4,36c9), _0x(c395,604a)};

 #define       p1    (*(double*)p1x)
 #define       p2    (*(double*)p2x)
 #define       q1    (*(double*)q1x)
 #define       p1    (*(double*)p1x)
 #define       p2    (*(double*)p2x)
 #define       q1    (*(double*)q1x)

diff --git a/usr/src/lib/libm/common_source/expm1.c b/usr/src/lib/libm/common_source/expm1.c
index ae33025..e55f4bb 100644 (file)
--- a/usr/src/lib/libm/common_source/expm1.c
+++ b/usr/src/lib/libm/common_source/expm1.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)expm1.c   1.2 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";
+"@(#)expm1.c   1.2 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";

 #endif not lint
 
 /* EXPM1(X)
 #endif not lint
 
 /* EXPM1(X)


@@ -68,15 +68,20 @@ static char sccsid[] =
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* lnhuge =  9.4961163736712506989E1     , Hex  2^  7   *  .BDEC1DA73E9010 */
 /* invln2 =  1.4426950408889634148E0     ; Hex  2^  1   *  .B8AA3B295C17F1 */
 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* lnhuge =  9.4961163736712506989E1     , Hex  2^  7   *  .BDEC1DA73E9010 */
 /* invln2 =  1.4426950408889634148E0     ; Hex  2^  1   *  .B8AA3B295C17F1 */

-static long     ln2hix[] = { 0x72174031, 0x0000f7d0};
-static long     ln2lox[] = { 0xbcd52ce7, 0xd9cce4f1};
-static long    lnhugex[] = { 0xec1d43bd, 0x9010a73e};
-static long    invln2x[] = { 0xaa3b40b8, 0x17f1295c};
+static long     ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
+static long     ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};
+static long    lnhugex[] = { _0x(ec1d,43bd), _0x(9010,a73e)};
+static long    invln2x[] = { _0x(aa3b,40b8), _0x(17f1,295c)};

 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define   lnhuge    (*(double*)lnhugex)
 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define   lnhuge    (*(double*)lnhugex)

diff --git a/usr/src/lib/libm/common_source/floor.c b/usr/src/lib/libm/common_source/floor.c
index 1e61e31..af9bd2a 100644 (file)
--- a/usr/src/lib/libm/common_source/floor.c
+++ b/usr/src/lib/libm/common_source/floor.c
@@ -1,4 +1,4 @@
-/*     @(#)floor.c     4.2     9/11/85; 1.3 (ucb.elefunt) %G% */
+/*     @(#)floor.c     4.2     9/11/85; 1.4 (ucb.elefunt) %G% */

 
 /*
  * floor and ceil-- greatest integer <= arg
 
 /*
  * floor and ceil-- greatest integer <= arg


@@ -53,7 +53,12 @@ double d;
  *     customary for IEEE 754.  No other signal can be emitted.
  */
 #if (defined(VAX)||defined(TAHOE))
  *     customary for IEEE 754.  No other signal can be emitted.
  */
 #if (defined(VAX)||defined(TAHOE))

-static long Lx[] = {0x5c00,0x0};               /* 2**55 */
+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */
+static long Lx[] = {_0x(0000,5c00),_0x(0000,0000)};    /* 2**55 */

 #define L *(double *) Lx
 #else  /* IEEE double */
 static double L = 4503599627370496.0E0;                /* 2**52 */
 #define L *(double *) Lx
 #else  /* IEEE double */
 static double L = 4503599627370496.0E0;                /* 2**52 */

diff --git a/usr/src/lib/libm/common_source/log.c b/usr/src/lib/libm/common_source/log.c
index 21933c2..f8e58ef 100644 (file)
--- a/usr/src/lib/libm/common_source/log.c
+++ b/usr/src/lib/libm/common_source/log.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)log.c     4.5 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";
+"@(#)log.c     4.5 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";

 #endif not lint
 
 /* LOG(X)
 #endif not lint
 
 /* LOG(X)


@@ -69,14 +69,18 @@ static char sccsid[] =
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
 #include <errno.h>
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
 #include <errno.h>

-
+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* sqrt2  =  1.4142135623730950622E0     ; Hex  2^  1   *  .B504F333F9DE65 */
 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* sqrt2  =  1.4142135623730950622E0     ; Hex  2^  1   *  .B504F333F9DE65 */

-static long     ln2hix[] = { 0x72174031, 0x0000f7d0};
-static long     ln2lox[] = { 0xbcd52ce7, 0xd9cce4f1};
-static long     sqrt2x[] = { 0x04f340b5, 0xde6533f9};
+static long     ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
+static long     ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};
+static long     sqrt2x[] = { _0x(04f3,40b5), _0x(de65,33f9)};

 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define    sqrt2    (*(double*)sqrt2x)
 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define    sqrt2    (*(double*)sqrt2x)

diff --git a/usr/src/lib/libm/common_source/log10.c b/usr/src/lib/libm/common_source/log10.c
index a9f1ac9..5c632cb 100644 (file)
--- a/usr/src/lib/libm/common_source/log10.c
+++ b/usr/src/lib/libm/common_source/log10.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)log10.c   1.2 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%";
+"@(#)log10.c   1.2 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";

 #endif not lint
 
 /* LOG10(X)
 #endif not lint
 
 /* LOG10(X)


@@ -55,9 +55,14 @@ static char sccsid[] =
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format (56 bits) */
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format (56 bits) */

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln10hi =  2.3025850929940456790E0     ; Hex   2^  2   *  .935D8DDDAAA8AC */
 /* static double */
 /* ln10hi =  2.3025850929940456790E0     ; Hex   2^  2   *  .935D8DDDAAA8AC */

-static long    ln10hix[] = { 0x5d8d4113, 0xa8acddaa};
+static long    ln10hix[] = { _0x(5d8d,4113), _0x(a8ac,ddaa)};

 #define   ln10hi    (*(double*)ln10hix)
 #else  /* IEEE double */
 static double
 #define   ln10hi    (*(double*)ln10hix)
 #else  /* IEEE double */
 static double

diff --git a/usr/src/lib/libm/common_source/log1p.c b/usr/src/lib/libm/common_source/log1p.c
index fb4153e..3f65019 100644 (file)
--- a/usr/src/lib/libm/common_source/log1p.c
+++ b/usr/src/lib/libm/common_source/log1p.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)log1p.c   1.3 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";
+"@(#)log1p.c   1.3 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";

 #endif not lint
 
 /* LOG1P(x) 
 #endif not lint
 
 /* LOG1P(x) 


@@ -77,14 +77,18 @@ static char sccsid[] =
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
 #include <errno.h>
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
 #include <errno.h>

-
+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* sqrt2  =  1.4142135623730950622E0     ; Hex  2^  1   *  .B504F333F9DE65 */
 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* sqrt2  =  1.4142135623730950622E0     ; Hex  2^  1   *  .B504F333F9DE65 */

-static long     ln2hix[] = { 0x72174031, 0x0000f7d0};
-static long     ln2lox[] = { 0xbcd52ce7, 0xd9cce4f1};
-static long     sqrt2x[] = { 0x04f340b5, 0xde6533f9};
+static long     ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
+static long     ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};
+static long     sqrt2x[] = { _0x(04f3,40b5), _0x(de65,33f9)};

 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define    sqrt2    (*(double*)sqrt2x)
 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define    sqrt2    (*(double*)sqrt2x)

diff --git a/usr/src/lib/libm/common_source/log__L.c b/usr/src/lib/libm/common_source/log__L.c
index ee55c13..78cbcb9 100644 (file)
--- a/usr/src/lib/libm/common_source/log__L.c
+++ b/usr/src/lib/libm/common_source/log__L.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)log__L.c  1.2 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%";
+"@(#)log__L.c  1.2 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";

 #endif not lint
 
 /* log__L(Z)
 #endif not lint
 
 /* log__L(Z)


@@ -51,6 +51,11 @@ static char sccsid[] =
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format (56 bits) */
  */
 
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format (56 bits) */

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* L1     =  6.6666666666666703212E-1    , Hex  2^  0   *  .AAAAAAAAAAAAC5 */
 /* L2     =  3.9999999999970461961E-1    , Hex  2^ -1   *  .CCCCCCCCCC2684 */
 /* static double */
 /* L1     =  6.6666666666666703212E-1    , Hex  2^  0   *  .AAAAAAAAAAAAC5 */
 /* L2     =  3.9999999999970461961E-1    , Hex  2^ -1   *  .CCCCCCCCCC2684 */


@@ -60,14 +65,14 @@ static char sccsid[] =
 /* L6     =  1.5382888777946145467E-1    , Hex  2^ -2   *  .9D8551E8C5781D */
 /* L7     =  1.3338356561139403517E-1    , Hex  2^ -2   *  .8895B3907FCD92 */
 /* L8     =  1.2500000000000000000E-1    , Hex  2^ -2   *  .80000000000000 */
 /* L6     =  1.5382888777946145467E-1    , Hex  2^ -2   *  .9D8551E8C5781D */
 /* L7     =  1.3338356561139403517E-1    , Hex  2^ -2   *  .8895B3907FCD92 */
 /* L8     =  1.2500000000000000000E-1    , Hex  2^ -2   *  .80000000000000 */

-static long        L1x[] = { 0xaaaa402a, 0xaac5aaaa};
-static long        L2x[] = { 0xcccc3fcc, 0x2684cccc};
-static long        L3x[] = { 0x49243f92, 0x578292f8};
-static long        L4x[] = { 0x8e383f63, 0xaf2c39b7};
-static long        L5x[] = { 0x2eb43f3a, 0x655ecc39};
-static long        L6x[] = { 0x85513f1d, 0x781de8c5};
-static long        L7x[] = { 0x95b33f08, 0xcd92907f};
-static long        L8x[] = { 0x00003f00, 0x00000000};
+static long        L1x[] = { _0x(aaaa,402a), _0x(aac5,aaaa)};
+static long        L2x[] = { _0x(cccc,3fcc), _0x(2684,cccc)};
+static long        L3x[] = { _0x(4924,3f92), _0x(5782,92f8)};
+static long        L4x[] = { _0x(8e38,3f63), _0x(af2c,39b7)};
+static long        L5x[] = { _0x(2eb4,3f3a), _0x(655e,cc39)};
+static long        L6x[] = { _0x(8551,3f1d), _0x(781d,e8c5)};
+static long        L7x[] = { _0x(95b3,3f08), _0x(cd92,907f)};
+static long        L8x[] = { _0x(0000,3f00), _0x(0000,0000)};

 #define       L1    (*(double*)L1x)
 #define       L2    (*(double*)L2x)
 #define       L3    (*(double*)L3x)
 #define       L1    (*(double*)L1x)
 #define       L2    (*(double*)L2x)
 #define       L3    (*(double*)L3x)

diff --git a/usr/src/lib/libm/common_source/pow.c b/usr/src/lib/libm/common_source/pow.c
index 1a97f86..94f1119 100644 (file)
--- a/usr/src/lib/libm/common_source/pow.c
+++ b/usr/src/lib/libm/common_source/pow.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)pow.c     4.5 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";
+"@(#)pow.c     4.5 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";

 #endif not lint
 
 /* POW(X,Y)  
 #endif not lint
 
 /* POW(X,Y)  


@@ -87,16 +87,20 @@ static char sccsid[] =
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
 #include <errno.h>
 extern double infnan();
 #if (defined(VAX)||defined(TAHOE))     /* VAX D format */
 #include <errno.h>
 extern double infnan();

-
+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* invln2 =  1.4426950408889634148E0     , Hex  2^  1   *  .B8AA3B295C17F1 */
 /* sqrt2  =  1.4142135623730950622E0     ; Hex  2^  1   *  .B504F333F9DE65 */
 /* static double */
 /* ln2hi  =  6.9314718055829871446E-1    , Hex  2^  0   *  .B17217F7D00000 */
 /* ln2lo  =  1.6465949582897081279E-12   , Hex  2^-39   *  .E7BCD5E4F1D9CC */
 /* invln2 =  1.4426950408889634148E0     , Hex  2^  1   *  .B8AA3B295C17F1 */
 /* sqrt2  =  1.4142135623730950622E0     ; Hex  2^  1   *  .B504F333F9DE65 */

-static long     ln2hix[] = { 0x72174031, 0x0000f7d0};
-static long     ln2lox[] = { 0xbcd52ce7, 0xd9cce4f1};
-static long    invln2x[] = { 0xaa3b40b8, 0x17f1295c};
-static long     sqrt2x[] = { 0x04f340b5, 0xde6533f9};
+static long     ln2hix[] = { _0x(7217,4031), _0x(0000,f7d0)};
+static long     ln2lox[] = { _0x(bcd5,2ce7), _0x(d9cc,e4f1)};
+static long    invln2x[] = { _0x(aa3b,40b8), _0x(17f1,295c)};
+static long     sqrt2x[] = { _0x(04f3,40b5), _0x(de65,33f9)};

 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define   invln2    (*(double*)invln2x)
 #define    ln2hi    (*(double*)ln2hix)
 #define    ln2lo    (*(double*)ln2lox)
 #define   invln2    (*(double*)invln2x)

diff --git a/usr/src/lib/libm/common_source/sinh.c b/usr/src/lib/libm/common_source/sinh.c
index e7aa472..3d3eb93 100644 (file)
--- a/usr/src/lib/libm/common_source/sinh.c
+++ b/usr/src/lib/libm/common_source/sinh.c
@@ -13,7 +13,7 @@
 
 #ifndef lint
 static char sccsid[] =
 
 #ifndef lint
 static char sccsid[] =

-"@(#)sinh.c    4.3 (Berkeley) 8/21/85; 1.4 (ucb.elefunt) %G%";
+"@(#)sinh.c    4.3 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";

 #endif not lint
 
 /* SINH(X)
 #endif not lint
 
 /* SINH(X)


@@ -56,13 +56,18 @@ static char sccsid[] =
  * shown.
  */
 #if (defined(VAX)||defined(TAHOE))
  * shown.
  */
 #if (defined(VAX)||defined(TAHOE))

+#ifdef VAX
+#define _0x(A,B)       0x/**/A/**/B
+#else  /* VAX */
+#define _0x(A,B)       0x/**/B/**/A
+#endif /* VAX */

 /* static double */
 /* mln2hi =  8.8029691931113054792E1     , Hex  2^  7   *  .B00F33C7E22BDB */
 /* mln2lo = -4.9650192275318476525E-16   , Hex  2^-50   * -.8F1B60279E582A */
 /* lnovfl =  8.8029691931113053016E1     ; Hex  2^  7   *  .B00F33C7E22BDA */
 /* static double */
 /* mln2hi =  8.8029691931113054792E1     , Hex  2^  7   *  .B00F33C7E22BDB */
 /* mln2lo = -4.9650192275318476525E-16   , Hex  2^-50   * -.8F1B60279E582A */
 /* lnovfl =  8.8029691931113053016E1     ; Hex  2^  7   *  .B00F33C7E22BDA */

-static long    mln2hix[] = { 0x0f3343b0, 0x2bdbc7e2};
-static long    mln2lox[] = { 0x1b60a70f, 0x582a279e};
-static long    lnovflx[] = { 0x0f3343b0, 0x2bdac7e2};
+static long    mln2hix[] = { _0x(0f33,43b0), _0x(2bdb,c7e2)};
+static long    mln2lox[] = { _0x(1b60,a70f), _0x(582a,279e)};
+static long    lnovflx[] = { _0x(0f33,43b0), _0x(2bda,c7e2)};

 #define   mln2hi    (*(double*)mln2hix)
 #define   mln2lo    (*(double*)mln2lox)
 #define   lnovfl    (*(double*)lnovflx)
 #define   mln2hi    (*(double*)mln2hix)
 #define   mln2lo    (*(double*)mln2lox)
 #define   lnovfl    (*(double*)lnovflx)