clean-ups.

[unix-history] / usr / src / lib / libm / common_source / log10.c

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

-"@(#)log10.c   1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%";
-#endif not lint
+"@(#)log10.c   1.2 (Berkeley) 8/21/85; 1.5 (ucb.elefunt) %G%";
+#endif /* not lint */

 
 /* LOG10(X)
  * RETURN THE BASE 10 LOGARITHM OF x
 
 /* LOG10(X)
  * RETURN THE BASE 10 LOGARITHM OF x


@@ -54,24 +54,29 @@ static char sccsid[] =
  * shown.
  */
 
  * shown.
  */
 

-#ifdef VAX     /* 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)
 #define   ln10hi    (*(double*)ln10hix)

-#else  /* IEEE double */
+#else  /* defined(vax)||defined(tahoe) */

 static double
 ivln10 =  4.3429448190325181667E-1    ; /*Hex   2^ -2   *  1.BCB7B1526E50E */
 static double
 ivln10 =  4.3429448190325181667E-1    ; /*Hex   2^ -2   *  1.BCB7B1526E50E */

-#endif
+#endif /* defined(vax)||defined(tahoe) */

 
 double log10(x)
 double x;
 {
        double log();
 
 
 double log10(x)
 double x;
 {
        double log();
 

-#ifdef VAX
+#if defined(vax)||defined(tahoe)

        return(log(x)/ln10hi);
        return(log(x)/ln10hi);

-#else  /* IEEE double */
+#else  /* defined(vax)||defined(tahoe) */

        return(ivln10*log(x));
        return(ivln10*log(x));

-#endif
+#endif /* defined(vax)||defined(tahoe) */

 }
 }