* real.c (GET_REAL, PUT_REAL): Don't cast away const-ness.

	(ezero, ehalf, eone, etwo, e32, elog2, esqrt2, epi): Const-ify.
	Add array size in declaration.
	(endian, emov, eisneg, eisinf, eisnan, eiisnan, eiisneg, emovi,
	emovo, emovz, eiisinf, ecmpm, eaddm, esubm, m16m, edivm, emulm,
	esub, eadd, eadd1, ediv, emul, e53toe, e64toe, e113toe, e24toe,
	etoe113, etoe64, etoe53, etoe24, ecmp, eround, ltoe, ultoe,
	eifrac, euifrac, e24toasc, e53toasc, e64toasc, e113toasc, etoasc,
	efloor, efrexp, eldexp, eremain, dectoe, etodec, ibmtoe, etoibm,
	c4xtoe, etoc4x, uditoe, ditoe, etoudi, etodi, esqrt, etens,
	emtens, make_nan): Const-ify.
	(TFbignan, TFlittlenan, XFbignan, XFlittlenan, DFbignan,
	DFlittlenan, SFbignan, SFlittlenan): Make static and const-ify.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48484 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 50eceff..b093ea9 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,19 @@
+2002-01-02  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * real.c (GET_REAL, PUT_REAL): Don't cast away const-ness.
+       (ezero, ehalf, eone, etwo, e32, elog2, esqrt2, epi): Const-ify.
+       Add array size in declaration.
+       (endian, emov, eisneg, eisinf, eisnan, eiisnan, eiisneg, emovi,
+       emovo, emovz, eiisinf, ecmpm, eaddm, esubm, m16m, edivm, emulm,
+       esub, eadd, eadd1, ediv, emul, e53toe, e64toe, e113toe, e24toe,
+       etoe113, etoe64, etoe53, etoe24, ecmp, eround, ltoe, ultoe,
+       eifrac, euifrac, e24toasc, e53toasc, e64toasc, e113toasc, etoasc,
+       efloor, efrexp, eldexp, eremain, dectoe, etodec, ibmtoe, etoibm,
+       c4xtoe, etoc4x, uditoe, ditoe, etoudi, etodi, esqrt, etens,
+       emtens, make_nan): Const-ify.
+       (TFbignan, TFlittlenan, XFbignan, XFlittlenan, DFbignan,
+       DFlittlenan, SFbignan, SFlittlenan): Make static and const-ify.
+

 2002-01-02  Joseph S. Myers  <jsm28@cam.ac.uk>
 
        * config.gcc (ia64-*-*): Set extra_headers.
 2002-01-02  Joseph S. Myers  <jsm28@cam.ac.uk>
 
        * config.gcc (ia64-*-*): Set extra_headers.

diff --git a/gcc/real.c b/gcc/real.c
index de737f6..a52ef0b 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -267,10 +267,10 @@ typedef unsigned int UHItype __attribute__ ((mode (HI)));
 # define NE 6
 # define MAXDECEXP 4932
 # define MINDECEXP -4956
 # define NE 6
 # define MAXDECEXP 4932
 # define MINDECEXP -4956

-# define GET_REAL(r,e)  memcpy ((char *)(e), (char *)(r), 2*NE)
+# define GET_REAL(r,e)  memcpy ((e), (r), 2*NE)

 # define PUT_REAL(e,r)                                         \
        do {                                                    \
 # define PUT_REAL(e,r)                                         \
        do {                                                    \

-         memcpy ((char *)(r), (char *)(e), 2*NE);              \
+         memcpy ((r), (e), 2*NE);                              \

          if (2*NE < sizeof(*r))                                \
            memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE);  \
        } while (0)
          if (2*NE < sizeof(*r))                                \
            memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE);  \
        } while (0)


@@ -279,10 +279,10 @@ typedef unsigned int UHItype __attribute__ ((mode (HI)));
 #   define NE 10
 #   define MAXDECEXP 4932
 #   define MINDECEXP -4977
 #   define NE 10
 #   define MAXDECEXP 4932
 #   define MINDECEXP -4977

-#   define GET_REAL(r,e) memcpy ((char *)(e), (char *)(r), 2*NE)
+#   define GET_REAL(r,e) memcpy ((e), (r), 2*NE)

 #   define PUT_REAL(e,r)                                       \
        do {                                                    \
 #   define PUT_REAL(e,r)                                       \
        do {                                                    \

-         memcpy ((char *)(r), (char *)(e), 2*NE);              \
+         memcpy ((r), (e), 2*NE);                              \

          if (2*NE < sizeof(*r))                                \
            memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE);  \
        } while (0)
          if (2*NE < sizeof(*r))                                \
            memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE);  \
        } while (0)


@@ -297,14 +297,14 @@ typedef unsigned int UHItype __attribute__ ((mode (HI)));
 #define GET_REAL(r,e)                                                  \
 do {                                                                   \
      if (HOST_FLOAT_WORDS_BIG_ENDIAN == REAL_WORDS_BIG_ENDIAN)         \
 #define GET_REAL(r,e)                                                  \
 do {                                                                   \
      if (HOST_FLOAT_WORDS_BIG_ENDIAN == REAL_WORDS_BIG_ENDIAN)         \

-       e53toe ((UEMUSHORT *) (r), (e));                                \
+       e53toe ((const UEMUSHORT *) (r), (e));                          \

      else                                                              \
        {                                                               \
         UEMUSHORT w[4];                                        \
      else                                                              \
        {                                                               \
         UEMUSHORT w[4];                                        \

-         memcpy (&w[3], ((EMUSHORT *) r), sizeof (EMUSHORT));          \
-         memcpy (&w[2], ((EMUSHORT *) r) + 1, sizeof (EMUSHORT));      \
-         memcpy (&w[1], ((EMUSHORT *) r) + 2, sizeof (EMUSHORT));      \
-         memcpy (&w[0], ((EMUSHORT *) r) + 3, sizeof (EMUSHORT));      \
+         memcpy (&w[3], ((const EMUSHORT *) r), sizeof (EMUSHORT));    \
+         memcpy (&w[2], ((const EMUSHORT *) r) + 1, sizeof (EMUSHORT));        \
+         memcpy (&w[1], ((const EMUSHORT *) r) + 2, sizeof (EMUSHORT));        \
+         memcpy (&w[0], ((const EMUSHORT *) r) + 3, sizeof (EMUSHORT));        \

         e53toe (w, (e));                                               \
        }                                                               \
    } while (0)
         e53toe (w, (e));                                               \
        }                                                               \
    } while (0)


@@ -327,7 +327,7 @@ do {                                                                        \
 #else /* not REAL_ARITHMETIC */
 
 /* emulator uses host format */
 #else /* not REAL_ARITHMETIC */
 
 /* emulator uses host format */

-#define GET_REAL(r,e) e53toe ((UEMUSHORT *) (r), (e))
+#define GET_REAL(r,e) e53toe ((const UEMUSHORT *) (r), (e))

 #define PUT_REAL(e,r) etoe53 ((e), (UEMUSHORT *) (r))
 
 #endif /* not REAL_ARITHMETIC */
 #define PUT_REAL(e,r) etoe53 ((e), (UEMUSHORT *) (r))
 
 #endif /* not REAL_ARITHMETIC */


@@ -363,97 +363,97 @@ do {                                                                      \
 #endif
 
 extern int extra_warnings;
 #endif
 
 extern int extra_warnings;

-extern UEMUSHORT ezero[], ehalf[], eone[], etwo[];
-extern UEMUSHORT elog2[], esqrt2[];
+extern const UEMUSHORT ezero[NE], ehalf[NE], eone[NE], etwo[NE];
+extern const UEMUSHORT elog2[NE], esqrt2[NE];

 
 

-static void endian     PARAMS ((UEMUSHORT *, long *,
+static void endian     PARAMS ((const UEMUSHORT *, long *,

                               enum machine_mode));
 static void eclear     PARAMS ((UEMUSHORT *));
                               enum machine_mode));
 static void eclear     PARAMS ((UEMUSHORT *));

-static void emov       PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void emov       PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 #if 0
 static void eabs       PARAMS ((UEMUSHORT *));
 #endif
 static void eneg       PARAMS ((UEMUSHORT *));
 #if 0
 static void eabs       PARAMS ((UEMUSHORT *));
 #endif
 static void eneg       PARAMS ((UEMUSHORT *));

-static int eisneg      PARAMS ((UEMUSHORT *));
-static int eisinf      PARAMS ((UEMUSHORT *));
-static int eisnan      PARAMS ((UEMUSHORT *));
+static int eisneg      PARAMS ((const UEMUSHORT *));
+static int eisinf      PARAMS ((const UEMUSHORT *));
+static int eisnan      PARAMS ((const UEMUSHORT *));

 static void einfin     PARAMS ((UEMUSHORT *));
 #ifdef NANS
 static void enan       PARAMS ((UEMUSHORT *, int));
 static void einan      PARAMS ((UEMUSHORT *));
 static void einfin     PARAMS ((UEMUSHORT *));
 #ifdef NANS
 static void enan       PARAMS ((UEMUSHORT *, int));
 static void einan      PARAMS ((UEMUSHORT *));

-static int eiisnan     PARAMS ((UEMUSHORT *));
-static int eiisneg     PARAMS ((UEMUSHORT *));
+static int eiisnan     PARAMS ((const UEMUSHORT *));
+static int eiisneg     PARAMS ((const UEMUSHORT *));

 static void make_nan   PARAMS ((UEMUSHORT *, int, enum machine_mode));
 #endif
 static void make_nan   PARAMS ((UEMUSHORT *, int, enum machine_mode));
 #endif

-static void emovi      PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void emovo      PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void emovi      PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void emovo      PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 static void ecleaz     PARAMS ((UEMUSHORT *));
 static void ecleazs    PARAMS ((UEMUSHORT *));
 static void ecleaz     PARAMS ((UEMUSHORT *));
 static void ecleazs    PARAMS ((UEMUSHORT *));

-static void emovz      PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void emovz      PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 #if 0
 static void eiinfin    PARAMS ((UEMUSHORT *));
 #endif
 #ifdef INFINITY
 #if 0
 static void eiinfin    PARAMS ((UEMUSHORT *));
 #endif
 #ifdef INFINITY

-static int eiisinf     PARAMS ((UEMUSHORT *));
+static int eiisinf     PARAMS ((const UEMUSHORT *));

 #endif
 #endif

-static int ecmpm       PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static int ecmpm       PARAMS ((const UEMUSHORT *, const UEMUSHORT *));

 static void eshdn1     PARAMS ((UEMUSHORT *));
 static void eshup1     PARAMS ((UEMUSHORT *));
 static void eshdn8     PARAMS ((UEMUSHORT *));
 static void eshup8     PARAMS ((UEMUSHORT *));
 static void eshup6     PARAMS ((UEMUSHORT *));
 static void eshdn6     PARAMS ((UEMUSHORT *));
 static void eshdn1     PARAMS ((UEMUSHORT *));
 static void eshup1     PARAMS ((UEMUSHORT *));
 static void eshdn8     PARAMS ((UEMUSHORT *));
 static void eshup8     PARAMS ((UEMUSHORT *));
 static void eshup6     PARAMS ((UEMUSHORT *));
 static void eshdn6     PARAMS ((UEMUSHORT *));

-static void eaddm      PARAMS ((UEMUSHORT *, UEMUSHORT *));\f
-static void esubm      PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void m16m       PARAMS ((unsigned int, UEMUSHORT *, UEMUSHORT *));
-static int edivm       PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static int emulm       PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void eaddm      PARAMS ((const UEMUSHORT *, UEMUSHORT *));\f
+static void esubm      PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void m16m       PARAMS ((unsigned int, const UEMUSHORT *, UEMUSHORT *));
+static int edivm       PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static int emulm       PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 static void emdnorm    PARAMS ((UEMUSHORT *, int, int, EMULONG, int));
 static void emdnorm    PARAMS ((UEMUSHORT *, int, int, EMULONG, int));

-static void esub       PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              UEMUSHORT *));
-static void eadd       PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              UEMUSHORT *));
-static void eadd1      PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              UEMUSHORT *));
-static void ediv       PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              UEMUSHORT *));
-static void emul       PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              UEMUSHORT *));
-static void e53toe     PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void e64toe     PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void esub       PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
+                                UEMUSHORT *));
+static void eadd       PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
+                                UEMUSHORT *));
+static void eadd1      PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
+                                UEMUSHORT *));
+static void ediv       PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
+                                UEMUSHORT *));
+static void emul       PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
+                                UEMUSHORT *));
+static void e53toe     PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void e64toe     PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 #if (INTEL_EXTENDED_IEEE_FORMAT == 0)
 #if (INTEL_EXTENDED_IEEE_FORMAT == 0)

-static void e113toe    PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void e113toe    PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 #endif
 #endif

-static void e24toe     PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void e24toe     PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 #if (INTEL_EXTENDED_IEEE_FORMAT == 0)
 #if (INTEL_EXTENDED_IEEE_FORMAT == 0)

-static void etoe113    PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void etoe113    PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 static void toe113     PARAMS ((UEMUSHORT *, UEMUSHORT *));
 #endif
 static void toe113     PARAMS ((UEMUSHORT *, UEMUSHORT *));
 #endif

-static void etoe64     PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void etoe64     PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 static void toe64      PARAMS ((UEMUSHORT *, UEMUSHORT *));
 static void toe64      PARAMS ((UEMUSHORT *, UEMUSHORT *));

-static void etoe53     PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void etoe53     PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 static void toe53      PARAMS ((UEMUSHORT *, UEMUSHORT *));
 static void toe53      PARAMS ((UEMUSHORT *, UEMUSHORT *));

-static void etoe24     PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void etoe24     PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 static void toe24      PARAMS ((UEMUSHORT *, UEMUSHORT *));
 static void toe24      PARAMS ((UEMUSHORT *, UEMUSHORT *));

-static int ecmp                PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static int ecmp                PARAMS ((const UEMUSHORT *, const UEMUSHORT *));

 #if 0
 #if 0

-static void eround     PARAMS ((UEMUSHORT *, UEMUSHORT *));
-#endif
-static void ltoe       PARAMS ((HOST_WIDE_INT *, UEMUSHORT *));
-static void ultoe      PARAMS ((unsigned HOST_WIDE_INT *, UEMUSHORT *));
-static void eifrac     PARAMS ((UEMUSHORT *, HOST_WIDE_INT *,
-                              UEMUSHORT *));
-static void euifrac    PARAMS ((UEMUSHORT *, unsigned HOST_WIDE_INT *,
-                              UEMUSHORT *));
+static void eround     PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+#endif
+static void ltoe       PARAMS ((const HOST_WIDE_INT *, UEMUSHORT *));
+static void ultoe      PARAMS ((const unsigned HOST_WIDE_INT *, UEMUSHORT *));
+static void eifrac     PARAMS ((const UEMUSHORT *, HOST_WIDE_INT *,
+                                UEMUSHORT *));
+static void euifrac    PARAMS ((const UEMUSHORT *, unsigned HOST_WIDE_INT *,
+                                UEMUSHORT *));

 static int eshift      PARAMS ((UEMUSHORT *, int));
 static int enormlz     PARAMS ((UEMUSHORT *));
 #if 0
 static int eshift      PARAMS ((UEMUSHORT *, int));
 static int enormlz     PARAMS ((UEMUSHORT *));
 #if 0

-static void e24toasc   PARAMS ((UEMUSHORT *, char *, int));
-static void e53toasc   PARAMS ((UEMUSHORT *, char *, int));
-static void e64toasc   PARAMS ((UEMUSHORT *, char *, int));
-static void e113toasc  PARAMS ((UEMUSHORT *, char *, int));
+static void e24toasc   PARAMS ((const UEMUSHORT *, char *, int));
+static void e53toasc   PARAMS ((const UEMUSHORT *, char *, int));
+static void e64toasc   PARAMS ((const UEMUSHORT *, char *, int));
+static void e113toasc  PARAMS ((const UEMUSHORT *, char *, int));

 #endif /* 0 */
 #endif /* 0 */

-static void etoasc     PARAMS ((UEMUSHORT *, char *, int));
+static void etoasc     PARAMS ((const UEMUSHORT *, char *, int));

 static void asctoe24   PARAMS ((const char *, UEMUSHORT *));
 static void asctoe53   PARAMS ((const char *, UEMUSHORT *));
 static void asctoe64   PARAMS ((const char *, UEMUSHORT *));
 static void asctoe24   PARAMS ((const char *, UEMUSHORT *));
 static void asctoe53   PARAMS ((const char *, UEMUSHORT *));
 static void asctoe64   PARAMS ((const char *, UEMUSHORT *));


@@ -462,45 +462,45 @@ static void asctoe113     PARAMS ((const char *, UEMUSHORT *));
 #endif
 static void asctoe     PARAMS ((const char *, UEMUSHORT *));
 static void asctoeg    PARAMS ((const char *, UEMUSHORT *, int));
 #endif
 static void asctoe     PARAMS ((const char *, UEMUSHORT *));
 static void asctoeg    PARAMS ((const char *, UEMUSHORT *, int));

-static void efloor     PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void efloor     PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 #if 0
 #if 0

-static void efrexp     PARAMS ((UEMUSHORT *, int *,
-                              UEMUSHORT *));
+static void efrexp     PARAMS ((const UEMUSHORT *, int *,
+                                UEMUSHORT *));

 #endif
 #endif

-static void eldexp     PARAMS ((UEMUSHORT *, int, UEMUSHORT *));
+static void eldexp     PARAMS ((const UEMUSHORT *, int, UEMUSHORT *));

 #if 0
 #if 0

-static void eremain    PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              UEMUSHORT *));
+static void eremain    PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
+                                UEMUSHORT *));

 #endif
 static void eiremain   PARAMS ((UEMUSHORT *, UEMUSHORT *));
 static void mtherr     PARAMS ((const char *, int));
 #ifdef DEC
 #endif
 static void eiremain   PARAMS ((UEMUSHORT *, UEMUSHORT *));
 static void mtherr     PARAMS ((const char *, int));
 #ifdef DEC

-static void dectoe     PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void etodec     PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void dectoe     PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void etodec     PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 static void todec      PARAMS ((UEMUSHORT *, UEMUSHORT *));
 #endif
 #ifdef IBM
 static void todec      PARAMS ((UEMUSHORT *, UEMUSHORT *));
 #endif
 #ifdef IBM

-static void ibmtoe     PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              enum machine_mode));
-static void etoibm     PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              enum machine_mode));
+static void ibmtoe     PARAMS ((const UEMUSHORT *, UEMUSHORT *,
+                                enum machine_mode));
+static void etoibm     PARAMS ((const UEMUSHORT *, UEMUSHORT *,
+                                enum machine_mode));

 static void toibm      PARAMS ((UEMUSHORT *, UEMUSHORT *,
 static void toibm      PARAMS ((UEMUSHORT *, UEMUSHORT *,

-                              enum machine_mode));
+                                enum machine_mode));

 #endif
 #ifdef C4X
 #endif
 #ifdef C4X

-static void c4xtoe     PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              enum machine_mode));
-static void etoc4x     PARAMS ((UEMUSHORT *, UEMUSHORT *,
-                              enum machine_mode));
+static void c4xtoe     PARAMS ((const UEMUSHORT *, UEMUSHORT *,
+                                enum machine_mode));
+static void etoc4x     PARAMS ((const UEMUSHORT *, UEMUSHORT *,
+                                enum machine_mode));

 static void toc4x      PARAMS ((UEMUSHORT *, UEMUSHORT *,
 static void toc4x      PARAMS ((UEMUSHORT *, UEMUSHORT *,

-                              enum machine_mode));
+                                enum machine_mode));

 #endif
 #if 0
 #endif
 #if 0

-static void uditoe     PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void ditoe      PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void etoudi     PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void etodi      PARAMS ((UEMUSHORT *, UEMUSHORT *));
-static void esqrt      PARAMS ((UEMUSHORT *, UEMUSHORT *));
+static void uditoe     PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void ditoe      PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void etoudi     PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void etodi      PARAMS ((const UEMUSHORT *, UEMUSHORT *));
+static void esqrt      PARAMS ((const UEMUSHORT *, UEMUSHORT *));

 #endif
 \f
 /* Copy 32-bit numbers obtained from array containing 16-bit numbers,
 #endif
 \f
 /* Copy 32-bit numbers obtained from array containing 16-bit numbers,


@@ -509,7 +509,7 @@ static void esqrt   PARAMS ((UEMUSHORT *, UEMUSHORT *));
 
 static void
 endian (e, x, mode)
 
 static void
 endian (e, x, mode)

-     UEMUSHORT e[];
+     const UEMUSHORT e[];

      long x[];
      enum machine_mode mode;
 {
      long x[];
      enum machine_mode mode;
 {


@@ -1541,70 +1541,62 @@ ereal_isneg (x)
 
 #if MAX_LONG_DOUBLE_TYPE_SIZE == 128 && (INTEL_EXTENDED_IEEE_FORMAT == 0)
 /* 0.0 */
 
 #if MAX_LONG_DOUBLE_TYPE_SIZE == 128 && (INTEL_EXTENDED_IEEE_FORMAT == 0)
 /* 0.0 */

-UEMUSHORT ezero[NE] =
+const UEMUSHORT ezero[NE] =

  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,};
  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,};

-extern UEMUSHORT ezero[];

 
 /* 5.0E-1 */
 
 /* 5.0E-1 */

-UEMUSHORT ehalf[NE] =
+const UEMUSHORT ehalf[NE] =

  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x3ffe,};
  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x3ffe,};

-extern UEMUSHORT ehalf[];

 
 /* 1.0E0 */
 
 /* 1.0E0 */

-UEMUSHORT eone[NE] =
+const UEMUSHORT eone[NE] =

  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x3fff,};
  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x3fff,};

-extern UEMUSHORT eone[];

 
 /* 2.0E0 */
 
 /* 2.0E0 */

-UEMUSHORT etwo[NE] =
+const UEMUSHORT etwo[NE] =

  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x4000,};
  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x4000,};

-extern UEMUSHORT etwo[];

 
 /* 3.2E1 */
 
 /* 3.2E1 */

-UEMUSHORT e32[NE] =
+const UEMUSHORT e32[NE] =

  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x4004,};
  {0x0000, 0x0000, 0x0000, 0x0000,
   0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x4004,};

-extern UEMUSHORT e32[];

 
 /* 6.93147180559945309417232121458176568075500134360255E-1 */
 
 /* 6.93147180559945309417232121458176568075500134360255E-1 */

-UEMUSHORT elog2[NE] =
+const UEMUSHORT elog2[NE] =

  {0x40f3, 0xf6af, 0x03f2, 0xb398,
   0xc9e3, 0x79ab, 0150717, 0013767, 0130562, 0x3ffe,};
  {0x40f3, 0xf6af, 0x03f2, 0xb398,
   0xc9e3, 0x79ab, 0150717, 0013767, 0130562, 0x3ffe,};

-extern UEMUSHORT elog2[];

 
 /* 1.41421356237309504880168872420969807856967187537695E0 */
 
 /* 1.41421356237309504880168872420969807856967187537695E0 */

-UEMUSHORT esqrt2[NE] =
+const UEMUSHORT esqrt2[NE] =

  {0x1d6f, 0xbe9f, 0x754a, 0x89b3,
   0x597d, 0x6484, 0174736, 0171463, 0132404, 0x3fff,};
  {0x1d6f, 0xbe9f, 0x754a, 0x89b3,
   0x597d, 0x6484, 0174736, 0171463, 0132404, 0x3fff,};

-extern UEMUSHORT esqrt2[];

 
 /* 3.14159265358979323846264338327950288419716939937511E0 */
 
 /* 3.14159265358979323846264338327950288419716939937511E0 */

-UEMUSHORT epi[NE] =
+const UEMUSHORT epi[NE] =

  {0x2902, 0x1cd1, 0x80dc, 0x628b,
   0xc4c6, 0xc234, 0020550, 0155242, 0144417, 0040000,};
  {0x2902, 0x1cd1, 0x80dc, 0x628b,
   0xc4c6, 0xc234, 0020550, 0155242, 0144417, 0040000,};

-extern UEMUSHORT epi[];

 
 #else
 /* LONG_DOUBLE_TYPE_SIZE is other than 128 */
 
 #else
 /* LONG_DOUBLE_TYPE_SIZE is other than 128 */

-UEMUSHORT ezero[NE] =
+const UEMUSHORT ezero[NE] =

  {0, 0000000, 0000000, 0000000, 0000000, 0000000,};
  {0, 0000000, 0000000, 0000000, 0000000, 0000000,};

-UEMUSHORT ehalf[NE] =
+const UEMUSHORT ehalf[NE] =

  {0, 0000000, 0000000, 0000000, 0100000, 0x3ffe,};
  {0, 0000000, 0000000, 0000000, 0100000, 0x3ffe,};

-UEMUSHORT eone[NE] =
+const UEMUSHORT eone[NE] =

  {0, 0000000, 0000000, 0000000, 0100000, 0x3fff,};
  {0, 0000000, 0000000, 0000000, 0100000, 0x3fff,};

-UEMUSHORT etwo[NE] =
+const UEMUSHORT etwo[NE] =

  {0, 0000000, 0000000, 0000000, 0100000, 0040000,};
  {0, 0000000, 0000000, 0000000, 0100000, 0040000,};

-UEMUSHORT e32[NE] =
+const UEMUSHORT e32[NE] =

  {0, 0000000, 0000000, 0000000, 0100000, 0040004,};
  {0, 0000000, 0000000, 0000000, 0100000, 0040004,};

-UEMUSHORT elog2[NE] =
+const UEMUSHORT elog2[NE] =

  {0xc9e4, 0x79ab, 0150717, 0013767, 0130562, 0x3ffe,};
  {0xc9e4, 0x79ab, 0150717, 0013767, 0130562, 0x3ffe,};

-UEMUSHORT esqrt2[NE] =
+const UEMUSHORT esqrt2[NE] =

  {0x597e, 0x6484, 0174736, 0171463, 0132404, 0x3fff,};
  {0x597e, 0x6484, 0174736, 0171463, 0132404, 0x3fff,};

-UEMUSHORT epi[NE] =
+const UEMUSHORT epi[NE] =

  {0xc4c6, 0xc234, 0020550, 0155242, 0144417, 0040000,};
 #endif
 
  {0xc4c6, 0xc234, 0020550, 0155242, 0144417, 0040000,};
 #endif
 


@@ -1630,7 +1622,8 @@ eclear (x)
 
 static void
 emov (a, b)
 
 static void
 emov (a, b)

-     UEMUSHORT *a, *b;
+     const UEMUSHORT *a;
+     UEMUSHORT *b;

 {
   int i;
 
 {
   int i;
 


@@ -1665,7 +1658,7 @@ eneg (x)
 
 static int
 eisneg (x)
 
 static int
 eisneg (x)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

 {
 
   if (x[NE - 1] & 0x8000)
 {
 
   if (x[NE - 1] & 0x8000)


@@ -1678,7 +1671,7 @@ eisneg (x)
 
 static int
 eisinf (x)
 
 static int
 eisinf (x)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

 {
 
 #ifdef NANS
 {
 
 #ifdef NANS


@@ -1696,7 +1689,7 @@ eisinf (x)
 
 static int
 eisnan (x)
 
 static int
 eisnan (x)

-     UEMUSHORT x[] ATTRIBUTE_UNUSED;
+     const UEMUSHORT x[] ATTRIBUTE_UNUSED;

 {
 #ifdef NANS
   int i;
 {
 #ifdef NANS
   int i;


@@ -1780,9 +1773,11 @@ enan (x, sign)
 
 static void
 emovi (a, b)
 
 static void
 emovi (a, b)

-     UEMUSHORT *a, *b;
+     const UEMUSHORT *a;
+     UEMUSHORT *b;

 {
 {

-  UEMUSHORT *p, *q;
+  const UEMUSHORT *p;
+  UEMUSHORT *q;

   int i;
 
   q = b;
   int i;
 
   q = b;


@@ -1827,9 +1822,11 @@ emovi (a, b)
 
 static void
 emovo (a, b)
 
 static void
 emovo (a, b)

-     UEMUSHORT *a, *b;
+     const UEMUSHORT *a;
+     UEMUSHORT *b;

 {
 {

-  UEMUSHORT *p, *q;
+  const UEMUSHORT *p;
+  UEMUSHORT *q;

   UEMUSHORT i;
   int j;
 
   UEMUSHORT i;
   int j;
 


@@ -1891,7 +1888,8 @@ ecleazs (xi)
 
 static void
 emovz (a, b)
 
 static void
 emovz (a, b)

-     UEMUSHORT *a, *b;
+     const UEMUSHORT *a;
+     UEMUSHORT *b;

 {
   int i;
 
 {
   int i;
 


@@ -1922,7 +1920,7 @@ einan (x)
 #ifdef NANS
 static int
 eiisnan (x)
 #ifdef NANS
 static int
 eiisnan (x)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

 {
   int i;
 
 {
   int i;
 


@@ -1943,7 +1941,7 @@ eiisnan (x)
 #ifdef NANS
 static int
 eiisneg (x)
 #ifdef NANS
 static int
 eiisneg (x)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

 {
 
   return x[0] != 0;
 {
 
   return x[0] != 0;


@@ -1969,7 +1967,7 @@ eiinfin (x)
 #ifdef INFINITY
 static int
 eiisinf (x)
 #ifdef INFINITY
 static int
 eiisinf (x)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

 {
 
 #ifdef NANS
 {
 
 #ifdef NANS


@@ -1991,7 +1989,7 @@ eiisinf (x)
 
 static int
 ecmpm (a, b)
 
 static int
 ecmpm (a, b)

-     UEMUSHORT *a, *b;
+     const UEMUSHORT *a, *b;

 {
   int i;
 
 {
   int i;
 


@@ -2143,7 +2141,8 @@ eshdn6 (x)
 
 static void
 eaddm (x, y)
 
 static void
 eaddm (x, y)

-     UEMUSHORT *x, *y;
+     const UEMUSHORT *x;
+     UEMUSHORT *y;

 {
   unsigned EMULONG a;
   int i;
 {
   unsigned EMULONG a;
   int i;


@@ -2169,7 +2168,8 @@ eaddm (x, y)
 
 static void
 esubm (x, y)
 
 static void
 esubm (x, y)

-     UEMUSHORT *x, *y;
+     const UEMUSHORT *x;
+     UEMUSHORT *y;

 {
   unsigned EMULONG a;
   int i;
 {
   unsigned EMULONG a;
   int i;


@@ -2354,11 +2354,12 @@ emulm (a, b)
 static void
 m16m (a, b, c)
      unsigned int a;
 static void
 m16m (a, b, c)
      unsigned int a;

-     UEMUSHORT b[], c[];
+     const UEMUSHORT b[];
+     UEMUSHORT c[];

 {
   UEMUSHORT *pp;
   unsigned EMULONG carry;
 {
   UEMUSHORT *pp;
   unsigned EMULONG carry;

-  UEMUSHORT *ps;
+  const UEMUSHORT *ps;

   UEMUSHORT p[NI];
   unsigned EMULONG aa, m;
   int i;
   UEMUSHORT p[NI];
   unsigned EMULONG aa, m;
   int i;


@@ -2397,7 +2398,8 @@ m16m (a, b, c)
 
 static int
 edivm (den, num)
 
 static int
 edivm (den, num)

-     UEMUSHORT den[], num[];
+     const UEMUSHORT den[];
+     UEMUSHORT num[];

 {
   int i;
   UEMUSHORT *p;
 {
   int i;
   UEMUSHORT *p;


@@ -2462,9 +2464,11 @@ edivm (den, num)
 
 static int
 emulm (a, b)
 
 static int
 emulm (a, b)

-     UEMUSHORT a[], b[];
+     const UEMUSHORT a[];
+     UEMUSHORT b[];

 {
 {

-  UEMUSHORT *p, *q;
+  const UEMUSHORT *p;
+  UEMUSHORT *q;

   UEMUSHORT pprod[NI];
   UEMUSHORT j;
   int i;
   UEMUSHORT pprod[NI];
   UEMUSHORT j;
   int i;


@@ -2754,7 +2758,8 @@ static int subflg = 0;
 
 static void
 esub (a, b, c)
 
 static void
 esub (a, b, c)

-     UEMUSHORT *a, *b, *c;
+     const UEMUSHORT *a, *b;
+     UEMUSHORT *c;

 {
 
 #ifdef NANS
 {
 
 #ifdef NANS


@@ -2786,7 +2791,8 @@ esub (a, b, c)
 
 static void
 eadd (a, b, c)
 
 static void
 eadd (a, b, c)

-     UEMUSHORT *a, *b, *c;
+     const UEMUSHORT *a, *b;
+     UEMUSHORT *c;

 {
 
 #ifdef NANS
 {
 
 #ifdef NANS


@@ -2819,7 +2825,8 @@ eadd (a, b, c)
 
 static void
 eadd1 (a, b, c)
 
 static void
 eadd1 (a, b, c)

-     UEMUSHORT *a, *b, *c;
+     const UEMUSHORT *a, *b;
+     UEMUSHORT *c;

 {
   UEMUSHORT ai[NI], bi[NI], ci[NI];
   int i, lost, j, k;
 {
   UEMUSHORT ai[NI], bi[NI], ci[NI];
   int i, lost, j, k;


@@ -2930,7 +2937,8 @@ eadd1 (a, b, c)
 
 static void
 ediv (a, b, c)
 
 static void
 ediv (a, b, c)

-     UEMUSHORT *a, *b, *c;
+     const UEMUSHORT *a, *b;
+     UEMUSHORT *c;

 {
   UEMUSHORT ai[NI], bi[NI];
   int i, sign;
 {
   UEMUSHORT ai[NI], bi[NI];
   int i, sign;


@@ -3034,7 +3042,8 @@ ediv (a, b, c)
 
 static void
 emul (a, b, c)
 
 static void
 emul (a, b, c)

-     UEMUSHORT *a, *b, *c;
+     const UEMUSHORT *a, *b;
+     UEMUSHORT *c;

 {
   UEMUSHORT ai[NI], bi[NI];
   int i, j, sign;
 {
   UEMUSHORT ai[NI], bi[NI];
   int i, j, sign;


@@ -3130,7 +3139,8 @@ emul (a, b, c)
 
 static void
 e53toe (pe, y)
 
 static void
 e53toe (pe, y)

-     UEMUSHORT *pe, *y;
+     const UEMUSHORT *pe;
+     UEMUSHORT *y;

 {
 #ifdef DEC
 
 {
 #ifdef DEC
 


@@ -3148,7 +3158,8 @@ e53toe (pe, y)
 
 #else
   UEMUSHORT r;
 
 #else
   UEMUSHORT r;

-  UEMUSHORT *e, *p;
+  const UEMUSHORT *e;
+  UEMUSHORT *p;

   UEMUSHORT yy[NI];
   int denorm, k;
 
   UEMUSHORT yy[NI];
   int denorm, k;
 


@@ -3239,10 +3250,12 @@ e53toe (pe, y)
 
 static void
 e64toe (pe, y)
 
 static void
 e64toe (pe, y)

-     UEMUSHORT *pe, *y;
+     const UEMUSHORT *pe;
+     UEMUSHORT *y;

 {
   UEMUSHORT yy[NI];
 {
   UEMUSHORT yy[NI];

-  UEMUSHORT *e, *p, *q;
+  const UEMUSHORT *e;
+  UEMUSHORT *p, *q;

   int i;
 
   e = pe;
   int i;
 
   e = pe;


@@ -3362,10 +3375,12 @@ bigend_nan:
 
 static void
 e113toe (pe, y)
 
 static void
 e113toe (pe, y)

-     UEMUSHORT *pe, *y;
+     const UEMUSHORT *pe;
+     UEMUSHORT *y;

 {
   UEMUSHORT r;
 {
   UEMUSHORT r;

-  UEMUSHORT *e, *p;
+  const UEMUSHORT *e;
+  UEMUSHORT *p;

   UEMUSHORT yy[NI];
   int denorm, i;
 
   UEMUSHORT yy[NI];
   int denorm, i;
 


@@ -3448,7 +3463,8 @@ e113toe (pe, y)
 
 static void
 e24toe (pe, y)
 
 static void
 e24toe (pe, y)

-     UEMUSHORT *pe, *y;
+     const UEMUSHORT *pe;
+     UEMUSHORT *y;

 {
 #ifdef IBM
 
 {
 #ifdef IBM
 


@@ -3463,7 +3479,8 @@ e24toe (pe, y)
 #else
 
   UEMUSHORT r;
 #else
 
   UEMUSHORT r;

-  UEMUSHORT *e, *p;
+  const UEMUSHORT *e;
+  UEMUSHORT *p;

   UEMUSHORT yy[NI];
   int denorm, k;
 
   UEMUSHORT yy[NI];
   int denorm, k;
 


@@ -3552,7 +3569,8 @@ e24toe (pe, y)
 
 static void
 etoe113 (x, e)
 
 static void
 etoe113 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   UEMUSHORT xi[NI];
   EMULONG exp;
 {
   UEMUSHORT xi[NI];
   EMULONG exp;


@@ -3646,7 +3664,8 @@ toe113 (a, b)
 
 static void
 etoe64 (x, e)
 
 static void
 etoe64 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   UEMUSHORT xi[NI];
   EMULONG exp;
 {
   UEMUSHORT xi[NI];
   EMULONG exp;


@@ -3799,7 +3818,8 @@ toe64 (a, b)
 
 static void
 etoe53 (x, e)
 
 static void
 etoe53 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   etodec (x, e);               /* see etodec.c */
 }
 {
   etodec (x, e);               /* see etodec.c */
 }


@@ -3820,7 +3840,8 @@ toe53 (x, y)
 
 static void
 etoe53 (x, e)
 
 static void
 etoe53 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   etoibm (x, e, DFmode);
 }
 {
   etoibm (x, e, DFmode);
 }


@@ -3841,7 +3862,8 @@ toe53 (x, y)
 
 static void
 etoe53 (x, e)
 
 static void
 etoe53 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   etoc4x (x, e, HFmode);
 }
 {
   etoc4x (x, e, HFmode);
 }


@@ -3862,7 +3884,8 @@ toe53 (x, y)
 
 static void
 etoe53 (x, e)
 
 static void
 etoe53 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   UEMUSHORT xi[NI];
   EMULONG exp;
 {
   UEMUSHORT xi[NI];
   EMULONG exp;


@@ -3995,7 +4018,8 @@ toe53 (x, y)
 
 static void
 etoe24 (x, e)
 
 static void
 etoe24 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   etoibm (x, e, SFmode);
 }
 {
   etoibm (x, e, SFmode);
 }


@@ -4017,7 +4041,8 @@ toe24 (x, y)
 
 static void
 etoe24 (x, e)
 
 static void
 etoe24 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   etoc4x (x, e, QFmode);
 }
 {
   etoc4x (x, e, QFmode);
 }


@@ -4038,7 +4063,8 @@ toe24 (x, y)
 
 static void
 etoe24 (x, e)
 
 static void
 etoe24 (x, e)

-     UEMUSHORT *x, *e;
+     const UEMUSHORT *x;
+     UEMUSHORT *e;

 {
   EMULONG exp;
   UEMUSHORT xi[NI];
 {
   EMULONG exp;
   UEMUSHORT xi[NI];


@@ -4172,7 +4198,7 @@ toe24 (x, y)
 
 static int
 ecmp (a, b)
 
 static int
 ecmp (a, b)

-     UEMUSHORT *a, *b;
+     const UEMUSHORT *a, *b;

 {
   UEMUSHORT ai[NI], bi[NI];
   UEMUSHORT *p, *q;
 {
   UEMUSHORT ai[NI], bi[NI];
   UEMUSHORT *p, *q;


@@ -4235,7 +4261,8 @@ ecmp (a, b)
 
 static void
 eround (x, y)
 
 static void
 eround (x, y)

-     UEMUSHORT *x, *y;
+     const UEMUSHORT *x;
+     UEMUSHORT *y;

 {
   eadd (ehalf, x, y);
   efloor (y, y);
 {
   eadd (ehalf, x, y);
   efloor (y, y);


@@ -4246,7 +4273,7 @@ eround (x, y)
 
 static void
 ltoe (lp, y)
 
 static void
 ltoe (lp, y)

-     HOST_WIDE_INT *lp;
+     const HOST_WIDE_INT *lp;

      UEMUSHORT *y;
 {
   UEMUSHORT yi[NI];
      UEMUSHORT *y;
 {
   UEMUSHORT yi[NI];


@@ -4288,7 +4315,7 @@ ltoe (lp, y)
 
 static void
 ultoe (lp, y)
 
 static void
 ultoe (lp, y)

-     unsigned HOST_WIDE_INT *lp;
+     const unsigned HOST_WIDE_INT *lp;

      UEMUSHORT *y;
 {
   UEMUSHORT yi[NI];
      UEMUSHORT *y;
 {
   UEMUSHORT yi[NI];


@@ -4328,7 +4355,7 @@ ultoe (lp, y)
 
 static void
 eifrac (x, i, frac)
 
 static void
 eifrac (x, i, frac)

-     UEMUSHORT *x;
+     const UEMUSHORT *x;

      HOST_WIDE_INT *i;
      UEMUSHORT *frac;
 {
      HOST_WIDE_INT *i;
      UEMUSHORT *frac;
 {


@@ -4411,7 +4438,7 @@ eifrac (x, i, frac)
 
 static void
 euifrac (x, i, frac)
 
 static void
 euifrac (x, i, frac)

-     UEMUSHORT *x;
+     const UEMUSHORT *x;

      unsigned HOST_WIDE_INT *i;
      UEMUSHORT *frac;
 {
      unsigned HOST_WIDE_INT *i;
      UEMUSHORT *frac;
 {


@@ -4616,7 +4643,7 @@ enormlz (x)
 #define MAXP 4096
 
 #if MAX_LONG_DOUBLE_TYPE_SIZE == 128 && (INTEL_EXTENDED_IEEE_FORMAT == 0)
 #define MAXP 4096
 
 #if MAX_LONG_DOUBLE_TYPE_SIZE == 128 && (INTEL_EXTENDED_IEEE_FORMAT == 0)

-static UEMUSHORT etens[NTEN + 1][NE] =
+static const UEMUSHORT etens[NTEN + 1][NE] =

 {
   {0x6576, 0x4a92, 0x804a, 0x153f,
    0xc94c, 0x979a, 0x8a20, 0x5202, 0xc460, 0x7525,},   /* 10**4096 */
 {
   {0x6576, 0x4a92, 0x804a, 0x153f,
    0xc94c, 0x979a, 0x8a20, 0x5202, 0xc460, 0x7525,},   /* 10**4096 */


@@ -4646,7 +4673,7 @@ static UEMUSHORT etens[NTEN + 1][NE] =
    0x0000, 0x0000, 0x0000, 0x0000, 0xa000, 0x4002,},   /* 10**1 */
 };
 
    0x0000, 0x0000, 0x0000, 0x0000, 0xa000, 0x4002,},   /* 10**1 */
 };
 

-static UEMUSHORT emtens[NTEN + 1][NE] =
+static const UEMUSHORT emtens[NTEN + 1][NE] =

 {
   {0x2030, 0xcffc, 0xa1c3, 0x8123,
    0x2de3, 0x9fde, 0xd2ce, 0x04c8, 0xa6dd, 0x0ad8,},   /* 10**-4096 */
 {
   {0x2030, 0xcffc, 0xa1c3, 0x8123,
    0x2de3, 0x9fde, 0xd2ce, 0x04c8, 0xa6dd, 0x0ad8,},   /* 10**-4096 */


@@ -4677,7 +4704,7 @@ static UEMUSHORT emtens[NTEN + 1][NE] =
 };
 #else
 /* LONG_DOUBLE_TYPE_SIZE is other than 128 */
 };
 #else
 /* LONG_DOUBLE_TYPE_SIZE is other than 128 */

-static UEMUSHORT etens[NTEN + 1][NE] =
+static const UEMUSHORT etens[NTEN + 1][NE] =

 {
   {0xc94c, 0x979a, 0x8a20, 0x5202, 0xc460, 0x7525,},   /* 10**4096 */
   {0xa74d, 0x5de4, 0xc53d, 0x3b5d, 0x9e8b, 0x5a92,},   /* 10**2048 */
 {
   {0xc94c, 0x979a, 0x8a20, 0x5202, 0xc460, 0x7525,},   /* 10**4096 */
   {0xa74d, 0x5de4, 0xc53d, 0x3b5d, 0x9e8b, 0x5a92,},   /* 10**2048 */


@@ -4694,7 +4721,7 @@ static UEMUSHORT etens[NTEN + 1][NE] =
   {0x0000, 0x0000, 0x0000, 0x0000, 0xa000, 0x4002,},   /* 10**1 */
 };
 
   {0x0000, 0x0000, 0x0000, 0x0000, 0xa000, 0x4002,},   /* 10**1 */
 };
 

-static UEMUSHORT emtens[NTEN + 1][NE] =
+static const UEMUSHORT emtens[NTEN + 1][NE] =

 {
   {0x2de4, 0x9fde, 0xd2ce, 0x04c8, 0xa6dd, 0x0ad8,},   /* 10**-4096 */
   {0x4925, 0x2de4, 0x3436, 0x534f, 0xceae, 0x256b,},   /* 10**-2048 */
 {
   {0x2de4, 0x9fde, 0xd2ce, 0x04c8, 0xa6dd, 0x0ad8,},   /* 10**-4096 */
   {0x4925, 0x2de4, 0x3436, 0x534f, 0xceae, 0x256b,},   /* 10**-2048 */


@@ -4718,7 +4745,7 @@ static UEMUSHORT emtens[NTEN + 1][NE] =
 
 static void
 e24toasc (x, string, ndigs)
 
 static void
 e24toasc (x, string, ndigs)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

      char *string;
      int ndigs;
 {
      char *string;
      int ndigs;
 {


@@ -4733,7 +4760,7 @@ e24toasc (x, string, ndigs)
 
 static void
 e53toasc (x, string, ndigs)
 
 static void
 e53toasc (x, string, ndigs)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

      char *string;
      int ndigs;
 {
      char *string;
      int ndigs;
 {


@@ -4748,7 +4775,7 @@ e53toasc (x, string, ndigs)
 
 static void
 e64toasc (x, string, ndigs)
 
 static void
 e64toasc (x, string, ndigs)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

      char *string;
      int ndigs;
 {
      char *string;
      int ndigs;
 {


@@ -4763,7 +4790,7 @@ e64toasc (x, string, ndigs)
 
 static void
 e113toasc (x, string, ndigs)
 
 static void
 e113toasc (x, string, ndigs)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

      char *string;
      int ndigs;
 {
      char *string;
      int ndigs;
 {


@@ -4781,13 +4808,13 @@ static char wstring[80];        /* working storage for ASCII output */
 
 static void
 etoasc (x, string, ndigs)
 
 static void
 etoasc (x, string, ndigs)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

      char *string;
      int ndigs;
 {
   EMUSHORT digit;
   UEMUSHORT y[NI], t[NI], u[NI], w[NI];
      char *string;
      int ndigs;
 {
   EMUSHORT digit;
   UEMUSHORT y[NI], t[NI], u[NI], w[NI];

-  UEMUSHORT *p, *r, *ten;
+  const UEMUSHORT *p, *r, *ten;

   UEMUSHORT sign;
   int i, j, k, expon, rndsav;
   char *s, *ss;
   UEMUSHORT sign;
   int i, j, k, expon, rndsav;
   char *s, *ss;


@@ -5568,7 +5595,8 @@ static const UEMUSHORT bmask[] =
 
 static void
 efloor (x, y)
 
 static void
 efloor (x, y)

-     UEMUSHORT x[], y[];
+     const UEMUSHORT x[];
+     UEMUSHORT y[];

 {
   UEMUSHORT *p;
   int e, expon, i;
 {
   UEMUSHORT *p;
   int e, expon, i;


@@ -5619,7 +5647,7 @@ efloor (x, y)
 
 static void
 efrexp (x, exp, s)
 
 static void
 efrexp (x, exp, s)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

      int *exp;
      UEMUSHORT s[];
 {
      int *exp;
      UEMUSHORT s[];
 {


@@ -5644,7 +5672,7 @@ efrexp (x, exp, s)
 
 static void
 eldexp (x, pwr2, y)
 
 static void
 eldexp (x, pwr2, y)

-     UEMUSHORT x[];
+     const UEMUSHORT x[];

      int pwr2;
      UEMUSHORT y[];
 {
      int pwr2;
      UEMUSHORT y[];
 {


@@ -5667,7 +5695,8 @@ eldexp (x, pwr2, y)
 
 static void
 eremain (a, b, c)
 
 static void
 eremain (a, b, c)

-     UEMUSHORT a[], b[], c[];
+     const UEMUSHORT a[], b[];
+     UEMUSHORT c[];

 {
   UEMUSHORT den[NI], num[NI];
 
 {
   UEMUSHORT den[NI], num[NI];
 


@@ -5800,7 +5829,7 @@ mtherr (name, code)
 
 static void
 dectoe (d, e)
 
 static void
 dectoe (d, e)

-     UEMUSHORT *d;
+     const UEMUSHORT *d;

      UEMUSHORT *e;
 {
   UEMUSHORT y[NI];
      UEMUSHORT *e;
 {
   UEMUSHORT y[NI];


@@ -5840,7 +5869,8 @@ dectoe (d, e)
 
 static void
 etodec (x, d)
 
 static void
 etodec (x, d)

-     UEMUSHORT *x, *d;
+     const UEMUSHORT *x;
+     UEMUSHORT *d;

 {
   UEMUSHORT xi[NI];
   EMULONG exp;
 {
   UEMUSHORT xi[NI];
   EMULONG exp;


@@ -5908,7 +5938,7 @@ todec (x, y)
 
 static void
 ibmtoe (d, e, mode)
 
 static void
 ibmtoe (d, e, mode)

-     UEMUSHORT *d;
+     const UEMUSHORT *d;

      UEMUSHORT *e;
      enum machine_mode mode;
 {
      UEMUSHORT *e;
      enum machine_mode mode;
 {


@@ -5951,7 +5981,8 @@ ibmtoe (d, e, mode)
 
 static void
 etoibm (x, d, mode)
 
 static void
 etoibm (x, d, mode)

-     UEMUSHORT *x, *d;
+     const UEMUSHORT *x;
+     UEMUSHORT *d;

      enum machine_mode mode;
 {
   UEMUSHORT xi[NI];
      enum machine_mode mode;
 {
   UEMUSHORT xi[NI];


@@ -6028,7 +6059,7 @@ toibm (x, y, mode)
 
 static void
 c4xtoe (d, e, mode)
 
 static void
 c4xtoe (d, e, mode)

-     UEMUSHORT *d;
+     const UEMUSHORT *d;

      UEMUSHORT *e;
      enum machine_mode mode;
 {
      UEMUSHORT *e;
      enum machine_mode mode;
 {


@@ -6144,7 +6175,8 @@ c4xtoe (d, e, mode)
 
 static void
 etoc4x (x, d, mode)
 
 static void
 etoc4x (x, d, mode)

-     UEMUSHORT *x, *d;
+     const UEMUSHORT *x;
+     UEMUSHORT *d;

      enum machine_mode mode;
 {
   UEMUSHORT xi[NI];
      enum machine_mode mode;
 {
   UEMUSHORT xi[NI];


@@ -6277,9 +6309,9 @@ toc4x (x, y, mode)
 TFMODE_NAN;
 #else
 #ifdef IEEE
 TFMODE_NAN;
 #else
 #ifdef IEEE

-UEMUSHORT TFbignan[8] =
+static const UEMUSHORT TFbignan[8] =

  {0x7fff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff};
  {0x7fff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff};

-UEMUSHORT TFlittlenan[8] = {0, 0, 0, 0, 0, 0, 0x8000, 0xffff};
+static const UEMUSHORT TFlittlenan[8] = {0, 0, 0, 0, 0, 0, 0x8000, 0xffff};

 #endif
 #endif
 
 #endif
 #endif
 


@@ -6287,9 +6319,9 @@ UEMUSHORT TFlittlenan[8] = {0, 0, 0, 0, 0, 0, 0x8000, 0xffff};
 XFMODE_NAN;
 #else
 #ifdef IEEE
 XFMODE_NAN;
 #else
 #ifdef IEEE

-UEMUSHORT XFbignan[6] =
+static const UEMUSHORT XFbignan[6] =

  {0x7fff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff};
  {0x7fff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff};

-UEMUSHORT XFlittlenan[6] = {0, 0, 0, 0xc000, 0xffff, 0};
+static const UEMUSHORT XFlittlenan[6] = {0, 0, 0, 0xc000, 0xffff, 0};

 #endif
 #endif
 
 #endif
 #endif
 


@@ -6297,8 +6329,8 @@ UEMUSHORT XFlittlenan[6] = {0, 0, 0, 0xc000, 0xffff, 0};
 DFMODE_NAN;
 #else
 #ifdef IEEE
 DFMODE_NAN;
 #else
 #ifdef IEEE

-UEMUSHORT DFbignan[4] = {0x7fff, 0xffff, 0xffff, 0xffff};
-UEMUSHORT DFlittlenan[4] = {0, 0, 0, 0xfff8};
+static const UEMUSHORT DFbignan[4] = {0x7fff, 0xffff, 0xffff, 0xffff};
+static const UEMUSHORT DFlittlenan[4] = {0, 0, 0, 0xfff8};

 #endif
 #endif
 
 #endif
 #endif
 


@@ -6306,8 +6338,8 @@ UEMUSHORT DFlittlenan[4] = {0, 0, 0, 0xfff8};
 SFMODE_NAN;
 #else
 #ifdef IEEE
 SFMODE_NAN;
 #else
 #ifdef IEEE

-UEMUSHORT SFbignan[2] = {0x7fff, 0xffff};
-UEMUSHORT SFlittlenan[2] = {0, 0xffc0};
+static const UEMUSHORT SFbignan[2] = {0x7fff, 0xffff};
+static const UEMUSHORT SFlittlenan[2] = {0, 0xffc0};

 #endif
 #endif
 
 #endif
 #endif
 


@@ -6320,7 +6352,7 @@ make_nan (nan, sign, mode)
      enum machine_mode mode;
 {
   int n;
      enum machine_mode mode;
 {
   int n;

-  UEMUSHORT *p;
+  const UEMUSHORT *p;

 
   switch (mode)
     {
 
   switch (mode)
     {


@@ -6537,7 +6569,7 @@ ereal_from_double (d)
 
 static void
 uditoe (di, e)
 
 static void
 uditoe (di, e)

-     UEMUSHORT *di;  /* Address of the 64-bit int.  */
+     const UEMUSHORT *di;  /* Address of the 64-bit int.  */

      UEMUSHORT *e;
 {
   UEMUSHORT yi[NI];
      UEMUSHORT *e;
 {
   UEMUSHORT yi[NI];


@@ -6566,7 +6598,7 @@ uditoe (di, e)
 
 static void
 ditoe (di, e)
 
 static void
 ditoe (di, e)

-     UEMUSHORT *di;  /* Address of the 64-bit int.  */
+     const UEMUSHORT *di;  /* Address of the 64-bit int.  */

      UEMUSHORT *e;
 {
   unsigned EMULONG acc;
      UEMUSHORT *e;
 {
   unsigned EMULONG acc;


@@ -6615,7 +6647,7 @@ ditoe (di, e)
 
 static void
 etoudi (x, i)
 
 static void
 etoudi (x, i)

-     UEMUSHORT *x;
+     const UEMUSHORT *x;

      UEMUSHORT *i;
 {
   UEMUSHORT xi[NI];
      UEMUSHORT *i;
 {
   UEMUSHORT xi[NI];


@@ -6698,7 +6730,7 @@ noshift:
 
 static void
 etodi (x, i)
 
 static void
 etodi (x, i)

-     UEMUSHORT *x;
+     const UEMUSHORT *x;

      UEMUSHORT *i;
 {
   unsigned EMULONG acc;
      UEMUSHORT *i;
 {
   unsigned EMULONG acc;


@@ -6800,7 +6832,8 @@ static unsigned short sqrndbit[NI];
 
 static void
 esqrt (x, y)
 
 static void
 esqrt (x, y)

-     UEMUSHORT *x, *y;
+     const UEMUSHORT *x;
+     UEMUSHORT *y;

 {
   UEMUSHORT temp[NI], num[NI], sq[NI], xx[NI];
   EMULONG m, exp;
 {
   UEMUSHORT temp[NI], num[NI], sq[NI], xx[NI];
   EMULONG m, exp;