Skip to content

R
riscv-gcc-1
Commit 0c5d8c82 by Kaveh R. Ghazi Committed by Kaveh Ghazi
Options

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

	* 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.

From-SVN: r48484
parent 817e13c4
Showing with 240 additions and 191 deletions
gcc/ChangeLog
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> 2002-01-02 Joseph S. Myers <jsm28@cam.ac.uk>
* config.gcc (ia64-*-*): Set extra_headers. * config.gcc (ia64-*-*): Set extra_headers.
......
gcc/real.c
...@@ -267,10 +267,10 @@ typedef unsigned int UHItype __attribute__ ((mode (HI))); ...@@ -267,10 +267,10 @@ typedef unsigned int UHItype __attribute__ ((mode (HI)));
# define NE 6 # define NE 6
# define MAXDECEXP 4932 # define MAXDECEXP 4932
# define MINDECEXP -4956 # 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) \ # define PUT_REAL(e,r) \
do { \ do { \
memcpy ((char *)(r), (char *)(e), 2*NE); \ memcpy ((r), (e), 2*NE); \
if (2*NE < sizeof(*r)) \ if (2*NE < sizeof(*r)) \
memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE); \ memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE); \
} while (0) } while (0)
...@@ -279,10 +279,10 @@ typedef unsigned int UHItype __attribute__ ((mode (HI))); ...@@ -279,10 +279,10 @@ typedef unsigned int UHItype __attribute__ ((mode (HI)));
# define NE 10 # define NE 10
# define MAXDECEXP 4932 # define MAXDECEXP 4932
# define MINDECEXP -4977 # 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) \ # define PUT_REAL(e,r) \
do { \ do { \
memcpy ((char *)(r), (char *)(e), 2*NE); \ memcpy ((r), (e), 2*NE); \
if (2*NE < sizeof(*r)) \ if (2*NE < sizeof(*r)) \
memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE); \ memset ((char *)(r) + 2*NE, 0, sizeof(*r) - 2*NE); \
} while (0) } while (0)
...@@ -297,14 +297,14 @@ typedef unsigned int UHItype __attribute__ ((mode (HI))); ...@@ -297,14 +297,14 @@ typedef unsigned int UHItype __attribute__ ((mode (HI)));
#define GET_REAL(r,e) \ #define GET_REAL(r,e) \
do { \ do { \
if (HOST_FLOAT_WORDS_BIG_ENDIAN == REAL_WORDS_BIG_ENDIAN) \ if (HOST_FLOAT_WORDS_BIG_ENDIAN == REAL_WORDS_BIG_ENDIAN) \
e53toe ((UEMUSHORT *) (r), (e)); \ e53toe ((const UEMUSHORT *) (r), (e)); \
else \ else \
{ \ { \
UEMUSHORT w[4]; \ UEMUSHORT w[4]; \
memcpy (&w[3], ((EMUSHORT *) r), sizeof (EMUSHORT)); \ memcpy (&w[3], ((const EMUSHORT *) r), sizeof (EMUSHORT)); \
memcpy (&w[2], ((EMUSHORT *) r) + 1, sizeof (EMUSHORT)); \ memcpy (&w[2], ((const EMUSHORT *) r) + 1, sizeof (EMUSHORT)); \
memcpy (&w[1], ((EMUSHORT *) r) + 2, sizeof (EMUSHORT)); \ memcpy (&w[1], ((const EMUSHORT *) r) + 2, sizeof (EMUSHORT)); \
memcpy (&w[0], ((EMUSHORT *) r) + 3, sizeof (EMUSHORT)); \ memcpy (&w[0], ((const EMUSHORT *) r) + 3, sizeof (EMUSHORT)); \
e53toe (w, (e)); \ e53toe (w, (e)); \
} \ } \
} while (0) } while (0)
...@@ -327,7 +327,7 @@ do { \ ...@@ -327,7 +327,7 @@ do { \
#else /* not REAL_ARITHMETIC */ #else /* not REAL_ARITHMETIC */
/* emulator uses host format */ /* 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)) #define PUT_REAL(e,r) etoe53 ((e), (UEMUSHORT *) (r))
#endif /* not REAL_ARITHMETIC */ #endif /* not REAL_ARITHMETIC */
...@@ -363,97 +363,97 @@ do { \ ...@@ -363,97 +363,97 @@ do { \
#endif #endif
extern int extra_warnings; extern int extra_warnings;
extern UEMUSHORT ezero[], ehalf[], eone[], etwo[]; extern const UEMUSHORT ezero[NE], ehalf[NE], eone[NE], etwo[NE];
extern UEMUSHORT elog2[], esqrt2[]; extern const UEMUSHORT elog2[NE], esqrt2[NE];
static void endian PARAMS ((UEMUSHORT *, long *, static void endian PARAMS ((const UEMUSHORT *, long *,
enum machine_mode)); enum machine_mode));
static void eclear PARAMS ((UEMUSHORT *)); static void eclear PARAMS ((UEMUSHORT *));
static void emov PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void emov PARAMS ((const UEMUSHORT *, UEMUSHORT *));
#if 0 #if 0
static void eabs PARAMS ((UEMUSHORT *)); static void eabs PARAMS ((UEMUSHORT *));
#endif #endif
static void eneg PARAMS ((UEMUSHORT *)); static void eneg PARAMS ((UEMUSHORT *));
static int eisneg PARAMS ((UEMUSHORT *)); static int eisneg PARAMS ((const UEMUSHORT *));
static int eisinf PARAMS ((UEMUSHORT *)); static int eisinf PARAMS ((const UEMUSHORT *));
static int eisnan PARAMS ((UEMUSHORT *)); static int eisnan PARAMS ((const UEMUSHORT *));
static void einfin PARAMS ((UEMUSHORT *)); static void einfin PARAMS ((UEMUSHORT *));
#ifdef NANS #ifdef NANS
static void enan PARAMS ((UEMUSHORT *, int)); static void enan PARAMS ((UEMUSHORT *, int));
static void einan PARAMS ((UEMUSHORT *)); static void einan PARAMS ((UEMUSHORT *));
static int eiisnan PARAMS ((UEMUSHORT *)); static int eiisnan PARAMS ((const UEMUSHORT *));
static int eiisneg PARAMS ((UEMUSHORT *)); static int eiisneg PARAMS ((const UEMUSHORT *));
static void make_nan PARAMS ((UEMUSHORT *, int, enum machine_mode)); static void make_nan PARAMS ((UEMUSHORT *, int, enum machine_mode));
#endif #endif
static void emovi PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void emovi PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void emovo PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void emovo PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void ecleaz PARAMS ((UEMUSHORT *)); static void ecleaz PARAMS ((UEMUSHORT *));
static void ecleazs PARAMS ((UEMUSHORT *)); static void ecleazs PARAMS ((UEMUSHORT *));
static void emovz PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void emovz PARAMS ((const UEMUSHORT *, UEMUSHORT *));
#if 0 #if 0
static void eiinfin PARAMS ((UEMUSHORT *)); static void eiinfin PARAMS ((UEMUSHORT *));
#endif #endif
#ifdef INFINITY #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 eshdn1 PARAMS ((UEMUSHORT *));
static void eshup1 PARAMS ((UEMUSHORT *)); static void eshup1 PARAMS ((UEMUSHORT *));
static void eshdn8 PARAMS ((UEMUSHORT *)); static void eshdn8 PARAMS ((UEMUSHORT *));
static void eshup8 PARAMS ((UEMUSHORT *)); static void eshup8 PARAMS ((UEMUSHORT *));
static void eshup6 PARAMS ((UEMUSHORT *)); static void eshup6 PARAMS ((UEMUSHORT *));
static void eshdn6 PARAMS ((UEMUSHORT *)); static void eshdn6 PARAMS ((UEMUSHORT *));
static void eaddm PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void eaddm PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void esubm PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void esubm PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void m16m PARAMS ((unsigned int, UEMUSHORT *, UEMUSHORT *)); static void m16m PARAMS ((unsigned int, const UEMUSHORT *, UEMUSHORT *));
static int edivm PARAMS ((UEMUSHORT *, UEMUSHORT *)); static int edivm PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static int emulm PARAMS ((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 *, static void esub PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
UEMUSHORT *)); UEMUSHORT *));
static void eadd PARAMS ((UEMUSHORT *, UEMUSHORT *, static void eadd PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
UEMUSHORT *)); UEMUSHORT *));
static void eadd1 PARAMS ((UEMUSHORT *, UEMUSHORT *, static void eadd1 PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
UEMUSHORT *)); UEMUSHORT *));
static void ediv PARAMS ((UEMUSHORT *, UEMUSHORT *, static void ediv PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
UEMUSHORT *)); UEMUSHORT *));
static void emul PARAMS ((UEMUSHORT *, UEMUSHORT *, static void emul PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
UEMUSHORT *)); UEMUSHORT *));
static void e53toe PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void e53toe PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void e64toe PARAMS ((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 *)); static void toe113 PARAMS ((UEMUSHORT *, UEMUSHORT *));
#endif #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 *)); static void eround PARAMS ((const UEMUSHORT *, UEMUSHORT *));
#endif #endif
static void ltoe PARAMS ((HOST_WIDE_INT *, UEMUSHORT *)); static void ltoe PARAMS ((const HOST_WIDE_INT *, UEMUSHORT *));
static void ultoe PARAMS ((unsigned HOST_WIDE_INT *, UEMUSHORT *)); static void ultoe PARAMS ((const unsigned HOST_WIDE_INT *, UEMUSHORT *));
static void eifrac PARAMS ((UEMUSHORT *, HOST_WIDE_INT *, static void eifrac PARAMS ((const UEMUSHORT *, HOST_WIDE_INT *,
UEMUSHORT *)); UEMUSHORT *));
static void euifrac PARAMS ((UEMUSHORT *, unsigned HOST_WIDE_INT *, static void euifrac PARAMS ((const UEMUSHORT *, unsigned HOST_WIDE_INT *,
UEMUSHORT *)); UEMUSHORT *));
static int eshift PARAMS ((UEMUSHORT *, int)); static int eshift PARAMS ((UEMUSHORT *, int));
static int enormlz PARAMS ((UEMUSHORT *)); static int enormlz PARAMS ((UEMUSHORT *));
#if 0 #if 0
static void e24toasc PARAMS ((UEMUSHORT *, char *, int)); static void e24toasc PARAMS ((const UEMUSHORT *, char *, int));
static void e53toasc PARAMS ((UEMUSHORT *, char *, int)); static void e53toasc PARAMS ((const UEMUSHORT *, char *, int));
static void e64toasc PARAMS ((UEMUSHORT *, char *, int)); static void e64toasc PARAMS ((const UEMUSHORT *, char *, int));
static void e113toasc PARAMS ((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 asctoe24 PARAMS ((const char *, UEMUSHORT *));
static void asctoe53 PARAMS ((const char *, UEMUSHORT *)); static void asctoe53 PARAMS ((const char *, UEMUSHORT *));
static void asctoe64 PARAMS ((const char *, UEMUSHORT *)); static void asctoe64 PARAMS ((const char *, UEMUSHORT *));
...@@ -462,45 +462,45 @@ static void asctoe113 PARAMS ((const char *, UEMUSHORT *)); ...@@ -462,45 +462,45 @@ static void asctoe113 PARAMS ((const char *, UEMUSHORT *));
#endif #endif
static void asctoe PARAMS ((const char *, UEMUSHORT *)); static void asctoe PARAMS ((const char *, UEMUSHORT *));
static void asctoeg PARAMS ((const char *, UEMUSHORT *, int)); 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 *, static void efrexp PARAMS ((const UEMUSHORT *, int *,
UEMUSHORT *)); 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 *, static void eremain PARAMS ((const UEMUSHORT *, const UEMUSHORT *,
UEMUSHORT *)); UEMUSHORT *));
#endif #endif
static void eiremain PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void eiremain PARAMS ((UEMUSHORT *, UEMUSHORT *));
static void mtherr PARAMS ((const char *, int)); static void mtherr PARAMS ((const char *, int));
#ifdef DEC #ifdef DEC
static void dectoe PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void dectoe PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void etodec PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void etodec PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void todec PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void todec PARAMS ((UEMUSHORT *, UEMUSHORT *));
#endif #endif
#ifdef IBM #ifdef IBM
static void ibmtoe PARAMS ((UEMUSHORT *, UEMUSHORT *, static void ibmtoe PARAMS ((const UEMUSHORT *, UEMUSHORT *,
enum machine_mode)); enum machine_mode));
static void etoibm PARAMS ((UEMUSHORT *, UEMUSHORT *, static void etoibm PARAMS ((const UEMUSHORT *, UEMUSHORT *,
enum machine_mode)); enum machine_mode));
static void toibm PARAMS ((UEMUSHORT *, UEMUSHORT *, static void toibm PARAMS ((UEMUSHORT *, UEMUSHORT *,
enum machine_mode)); enum machine_mode));
#endif #endif
#ifdef C4X #ifdef C4X
static void c4xtoe PARAMS ((UEMUSHORT *, UEMUSHORT *, static void c4xtoe PARAMS ((const UEMUSHORT *, UEMUSHORT *,
enum machine_mode)); enum machine_mode));
static void etoc4x PARAMS ((UEMUSHORT *, UEMUSHORT *, static void etoc4x PARAMS ((const UEMUSHORT *, UEMUSHORT *,
enum machine_mode)); enum machine_mode));
static void toc4x PARAMS ((UEMUSHORT *, UEMUSHORT *, static void toc4x PARAMS ((UEMUSHORT *, UEMUSHORT *,
enum machine_mode)); enum machine_mode));
#endif #endif
#if 0 #if 0
static void uditoe PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void uditoe PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void ditoe PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void ditoe PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void etoudi PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void etoudi PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void etodi PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void etodi PARAMS ((const UEMUSHORT *, UEMUSHORT *));
static void esqrt PARAMS ((UEMUSHORT *, UEMUSHORT *)); static void esqrt PARAMS ((const UEMUSHORT *, UEMUSHORT *));
#endif #endif
/* Copy 32-bit numbers obtained from array containing 16-bit numbers, /* Copy 32-bit numbers obtained from array containing 16-bit numbers,
...@@ -509,7 +509,7 @@ static void esqrt PARAMS ((UEMUSHORT *, UEMUSHORT *)); ...@@ -509,7 +509,7 @@ static void esqrt PARAMS ((UEMUSHORT *, UEMUSHORT *));
static void static void
endian (e, x, mode) endian (e, x, mode)
UEMUSHORT e[]; const UEMUSHORT e[];
long x[]; long x[];
enum machine_mode mode; enum machine_mode mode;
{ {
...@@ -1541,70 +1541,62 @@ ereal_isneg (x) ...@@ -1541,70 +1541,62 @@ ereal_isneg (x)
#if MAX_LONG_DOUBLE_TYPE_SIZE == 128 && (INTEL_EXTENDED_IEEE_FORMAT == 0) #if MAX_LONG_DOUBLE_TYPE_SIZE == 128 && (INTEL_EXTENDED_IEEE_FORMAT == 0)
/* 0.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,
0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x3ffe,}; 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,
0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x3fff,}; 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,
0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x4000,}; 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,
0x0000, 0x0000, 0x0000, 0x0000, 0x8000, 0x4004,}; 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, {0x40f3, 0xf6af, 0x03f2, 0xb398,
0xc9e3, 0x79ab, 0150717, 0013767, 0130562, 0x3ffe,}; 0xc9e3, 0x79ab, 0150717, 0013767, 0130562, 0x3ffe,};
extern UEMUSHORT elog2[];
/* 1.41421356237309504880168872420969807856967187537695E0 */ /* 1.41421356237309504880168872420969807856967187537695E0 */
UEMUSHORT esqrt2[NE] = const UEMUSHORT esqrt2[NE] =
{0x1d6f, 0xbe9f, 0x754a, 0x89b3, {0x1d6f, 0xbe9f, 0x754a, 0x89b3,
0x597d, 0x6484, 0174736, 0171463, 0132404, 0x3fff,}; 0x597d, 0x6484, 0174736, 0171463, 0132404, 0x3fff,};
extern UEMUSHORT esqrt2[];
/* 3.14159265358979323846264338327950288419716939937511E0 */ /* 3.14159265358979323846264338327950288419716939937511E0 */
UEMUSHORT epi[NE] = const UEMUSHORT epi[NE] =
{0x2902, 0x1cd1, 0x80dc, 0x628b, {0x2902, 0x1cd1, 0x80dc, 0x628b,
0xc4c6, 0xc234, 0020550, 0155242, 0144417, 0040000,}; 0xc4c6, 0xc234, 0020550, 0155242, 0144417, 0040000,};
extern UEMUSHORT epi[];
#else #else
/* LONG_DOUBLE_TYPE_SIZE is other than 128 */ /* 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,}; {0xc4c6, 0xc234, 0020550, 0155242, 0144417, 0040000,};
#endif #endif
...@@ -1630,7 +1622,8 @@ eclear (x) ...@@ -1630,7 +1622,8 @@ eclear (x)
static void static void
emov (a, b) emov (a, b)
UEMUSHORT *a, *b; const UEMUSHORT *a;
UEMUSHORT *b;
{ {
int i; int i;
...@@ -1665,7 +1658,7 @@ eneg (x) ...@@ -1665,7 +1658,7 @@ eneg (x)
static int static int
eisneg (x) eisneg (x)
UEMUSHORT x[]; const UEMUSHORT x[];
{ {
if (x[NE - 1] & 0x8000) if (x[NE - 1] & 0x8000)
...@@ -1678,7 +1671,7 @@ eisneg (x) ...@@ -1678,7 +1671,7 @@ eisneg (x)
static int static int
eisinf (x) eisinf (x)
UEMUSHORT x[]; const UEMUSHORT x[];
{ {
#ifdef NANS #ifdef NANS
...@@ -1696,7 +1689,7 @@ eisinf (x) ...@@ -1696,7 +1689,7 @@ eisinf (x)
static int static int
eisnan (x) eisnan (x)
UEMUSHORT x[] ATTRIBUTE_UNUSED; const UEMUSHORT x[] ATTRIBUTE_UNUSED;
{ {
#ifdef NANS #ifdef NANS
int i; int i;
...@@ -1780,9 +1773,11 @@ enan (x, sign) ...@@ -1780,9 +1773,11 @@ enan (x, sign)
static void static void
emovi (a, b) emovi (a, b)
UEMUSHORT *a, *b; const UEMUSHORT *a;
UEMUSHORT *b;
{ {
UEMUSHORT *p, *q; const UEMUSHORT *p;
UEMUSHORT *q;
int i; int i;
q = b; q = b;
...@@ -1827,9 +1822,11 @@ emovi (a, b) ...@@ -1827,9 +1822,11 @@ emovi (a, b)
static void static void
emovo (a, b) emovo (a, b)
UEMUSHORT *a, *b; const UEMUSHORT *a;
UEMUSHORT *b;
{ {
UEMUSHORT *p, *q; const UEMUSHORT *p;
UEMUSHORT *q;
UEMUSHORT i; UEMUSHORT i;
int j; int j;
...@@ -1891,7 +1888,8 @@ ecleazs (xi) ...@@ -1891,7 +1888,8 @@ ecleazs (xi)
static void static void
emovz (a, b) emovz (a, b)
UEMUSHORT *a, *b; const UEMUSHORT *a;
UEMUSHORT *b;
{ {
int i; int i;
...@@ -1922,7 +1920,7 @@ einan (x) ...@@ -1922,7 +1920,7 @@ einan (x)
#ifdef NANS #ifdef NANS
static int static int
eiisnan (x) eiisnan (x)
UEMUSHORT x[]; const UEMUSHORT x[];
{ {
int i; int i;
...@@ -1943,7 +1941,7 @@ eiisnan (x) ...@@ -1943,7 +1941,7 @@ eiisnan (x)
#ifdef NANS #ifdef NANS
static int static int
eiisneg (x) eiisneg (x)
UEMUSHORT x[]; const UEMUSHORT x[];
{ {
return x[0] != 0; return x[0] != 0;
...@@ -1969,7 +1967,7 @@ eiinfin (x) ...@@ -1969,7 +1967,7 @@ eiinfin (x)
#ifdef INFINITY #ifdef INFINITY
static int static int
eiisinf (x) eiisinf (x)
UEMUSHORT x[]; const UEMUSHORT x[];
{ {
#ifdef NANS #ifdef NANS
...@@ -1991,7 +1989,7 @@ eiisinf (x) ...@@ -1991,7 +1989,7 @@ eiisinf (x)
static int static int
ecmpm (a, b) ecmpm (a, b)
UEMUSHORT *a, *b; const UEMUSHORT *a, *b;
{ {
int i; int i;
...@@ -2143,7 +2141,8 @@ eshdn6 (x) ...@@ -2143,7 +2141,8 @@ eshdn6 (x)
static void static void
eaddm (x, y) eaddm (x, y)
UEMUSHORT *x, *y; const UEMUSHORT *x;
UEMUSHORT *y;
{ {
unsigned EMULONG a; unsigned EMULONG a;
int i; int i;
...@@ -2169,7 +2168,8 @@ eaddm (x, y) ...@@ -2169,7 +2168,8 @@ eaddm (x, y)
static void static void
esubm (x, y) esubm (x, y)
UEMUSHORT *x, *y; const UEMUSHORT *x;
UEMUSHORT *y;
{ {
unsigned EMULONG a; unsigned EMULONG a;
int i; int i;
...@@ -2354,11 +2354,12 @@ emulm (a, b) ...@@ -2354,11 +2354,12 @@ emulm (a, b)
static void static void
m16m (a, b, c) m16m (a, b, c)
unsigned int a; unsigned int a;
UEMUSHORT b[], c[]; const UEMUSHORT b[];
UEMUSHORT c[];
{ {
UEMUSHORT *pp; UEMUSHORT *pp;
unsigned EMULONG carry; unsigned EMULONG carry;
UEMUSHORT *ps; const UEMUSHORT *ps;
UEMUSHORT p[NI]; UEMUSHORT p[NI];
unsigned EMULONG aa, m; unsigned EMULONG aa, m;
int i; int i;
...@@ -2397,7 +2398,8 @@ m16m (a, b, c) ...@@ -2397,7 +2398,8 @@ m16m (a, b, c)
static int static int
edivm (den, num) edivm (den, num)
UEMUSHORT den[], num[]; const UEMUSHORT den[];
UEMUSHORT num[];
{ {
int i; int i;
UEMUSHORT *p; UEMUSHORT *p;
...@@ -2462,9 +2464,11 @@ edivm (den, num) ...@@ -2462,9 +2464,11 @@ edivm (den, num)
static int static int
emulm (a, b) emulm (a, b)
UEMUSHORT a[], b[]; const UEMUSHORT a[];
UEMUSHORT b[];
{ {
UEMUSHORT *p, *q; const UEMUSHORT *p;
UEMUSHORT *q;
UEMUSHORT pprod[NI]; UEMUSHORT pprod[NI];
UEMUSHORT j; UEMUSHORT j;
int i; int i;
...@@ -2754,7 +2758,8 @@ static int subflg = 0; ...@@ -2754,7 +2758,8 @@ static int subflg = 0;
static void static void
esub (a, b, c) 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) ...@@ -2786,7 +2791,8 @@ esub (a, b, c)
static void static void
eadd (a, b, c) 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) ...@@ -2819,7 +2825,8 @@ eadd (a, b, c)
static void static void
eadd1 (a, b, c) eadd1 (a, b, c)
UEMUSHORT *a, *b, *c; const UEMUSHORT *a, *b;
UEMUSHORT *c;
{ {
UEMUSHORT ai[NI], bi[NI], ci[NI]; UEMUSHORT ai[NI], bi[NI], ci[NI];
int i, lost, j, k; int i, lost, j, k;
...@@ -2930,7 +2937,8 @@ eadd1 (a, b, c) ...@@ -2930,7 +2937,8 @@ eadd1 (a, b, c)
static void static void
ediv (a, b, c) ediv (a, b, c)
UEMUSHORT *a, *b, *c; const UEMUSHORT *a, *b;
UEMUSHORT *c;
{ {
UEMUSHORT ai[NI], bi[NI]; UEMUSHORT ai[NI], bi[NI];
int i, sign; int i, sign;
...@@ -3034,7 +3042,8 @@ ediv (a, b, c) ...@@ -3034,7 +3042,8 @@ ediv (a, b, c)
static void static void
emul (a, b, c) emul (a, b, c)
UEMUSHORT *a, *b, *c; const UEMUSHORT *a, *b;
UEMUSHORT *c;
{ {
UEMUSHORT ai[NI], bi[NI]; UEMUSHORT ai[NI], bi[NI];
int i, j, sign; int i, j, sign;
...@@ -3130,7 +3139,8 @@ emul (a, b, c) ...@@ -3130,7 +3139,8 @@ emul (a, b, c)
static void static void
e53toe (pe, y) e53toe (pe, y)
UEMUSHORT *pe, *y; const UEMUSHORT *pe;
UEMUSHORT *y;
{ {
#ifdef DEC #ifdef DEC
...@@ -3148,7 +3158,8 @@ e53toe (pe, y) ...@@ -3148,7 +3158,8 @@ e53toe (pe, y)
#else #else
UEMUSHORT r; UEMUSHORT r;
UEMUSHORT *e, *p; const UEMUSHORT *e;
UEMUSHORT *p;
UEMUSHORT yy[NI]; UEMUSHORT yy[NI];
int denorm, k; int denorm, k;
...@@ -3239,10 +3250,12 @@ e53toe (pe, y) ...@@ -3239,10 +3250,12 @@ e53toe (pe, y)
static void static void
e64toe (pe, y) 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; int i;
e = pe; e = pe;
...@@ -3362,10 +3375,12 @@ bigend_nan: ...@@ -3362,10 +3375,12 @@ bigend_nan:
static void static void
e113toe (pe, y) 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]; UEMUSHORT yy[NI];
int denorm, i; int denorm, i;
...@@ -3448,7 +3463,8 @@ e113toe (pe, y) ...@@ -3448,7 +3463,8 @@ e113toe (pe, y)
static void static void
e24toe (pe, y) e24toe (pe, y)
UEMUSHORT *pe, *y; const UEMUSHORT *pe;
UEMUSHORT *y;
{ {
#ifdef IBM #ifdef IBM
...@@ -3463,7 +3479,8 @@ e24toe (pe, y) ...@@ -3463,7 +3479,8 @@ e24toe (pe, y)
#else #else
UEMUSHORT r; UEMUSHORT r;
UEMUSHORT *e, *p; const UEMUSHORT *e;
UEMUSHORT *p;
UEMUSHORT yy[NI]; UEMUSHORT yy[NI];
int denorm, k; int denorm, k;
...@@ -3552,7 +3569,8 @@ e24toe (pe, y) ...@@ -3552,7 +3569,8 @@ e24toe (pe, y)
static void static void
etoe113 (x, e) etoe113 (x, e)
UEMUSHORT *x, *e; const UEMUSHORT *x;
UEMUSHORT *e;
{ {
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
EMULONG exp; EMULONG exp;
...@@ -3646,7 +3664,8 @@ toe113 (a, b) ...@@ -3646,7 +3664,8 @@ toe113 (a, b)
static void static void
etoe64 (x, e) etoe64 (x, e)
UEMUSHORT *x, *e; const UEMUSHORT *x;
UEMUSHORT *e;
{ {
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
EMULONG exp; EMULONG exp;
...@@ -3799,7 +3818,8 @@ toe64 (a, b) ...@@ -3799,7 +3818,8 @@ toe64 (a, b)
static void static void
etoe53 (x, e) 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) ...@@ -3820,7 +3840,8 @@ toe53 (x, y)
static void static void
etoe53 (x, e) 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) ...@@ -3841,7 +3862,8 @@ toe53 (x, y)
static void static void
etoe53 (x, e) 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) ...@@ -3862,7 +3884,8 @@ toe53 (x, y)
static void static void
etoe53 (x, e) etoe53 (x, e)
UEMUSHORT *x, *e; const UEMUSHORT *x;
UEMUSHORT *e;
{ {
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
EMULONG exp; EMULONG exp;
...@@ -3995,7 +4018,8 @@ toe53 (x, y) ...@@ -3995,7 +4018,8 @@ toe53 (x, y)
static void static void
etoe24 (x, e) 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) ...@@ -4017,7 +4041,8 @@ toe24 (x, y)
static void static void
etoe24 (x, e) 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) ...@@ -4038,7 +4063,8 @@ toe24 (x, y)
static void static void
etoe24 (x, e) etoe24 (x, e)
UEMUSHORT *x, *e; const UEMUSHORT *x;
UEMUSHORT *e;
{ {
EMULONG exp; EMULONG exp;
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
...@@ -4172,7 +4198,7 @@ toe24 (x, y) ...@@ -4172,7 +4198,7 @@ toe24 (x, y)
static int static int
ecmp (a, b) ecmp (a, b)
UEMUSHORT *a, *b; const UEMUSHORT *a, *b;
{ {
UEMUSHORT ai[NI], bi[NI]; UEMUSHORT ai[NI], bi[NI];
UEMUSHORT *p, *q; UEMUSHORT *p, *q;
...@@ -4235,7 +4261,8 @@ ecmp (a, b) ...@@ -4235,7 +4261,8 @@ ecmp (a, b)
static void static void
eround (x, y) eround (x, y)
UEMUSHORT *x, *y; const UEMUSHORT *x;
UEMUSHORT *y;
{ {
eadd (ehalf, x, y); eadd (ehalf, x, y);
efloor (y, y); efloor (y, y);
...@@ -4246,7 +4273,7 @@ eround (x, y) ...@@ -4246,7 +4273,7 @@ eround (x, y)
static void static void
ltoe (lp, y) ltoe (lp, y)
HOST_WIDE_INT *lp; const HOST_WIDE_INT *lp;
UEMUSHORT *y; UEMUSHORT *y;
{ {
UEMUSHORT yi[NI]; UEMUSHORT yi[NI];
...@@ -4288,7 +4315,7 @@ ltoe (lp, y) ...@@ -4288,7 +4315,7 @@ ltoe (lp, y)
static void static void
ultoe (lp, y) ultoe (lp, y)
unsigned HOST_WIDE_INT *lp; const unsigned HOST_WIDE_INT *lp;
UEMUSHORT *y; UEMUSHORT *y;
{ {
UEMUSHORT yi[NI]; UEMUSHORT yi[NI];
...@@ -4328,7 +4355,7 @@ ultoe (lp, y) ...@@ -4328,7 +4355,7 @@ ultoe (lp, y)
static void static void
eifrac (x, i, frac) eifrac (x, i, frac)
UEMUSHORT *x; const UEMUSHORT *x;
HOST_WIDE_INT *i; HOST_WIDE_INT *i;
UEMUSHORT *frac; UEMUSHORT *frac;
{ {
...@@ -4411,7 +4438,7 @@ eifrac (x, i, frac) ...@@ -4411,7 +4438,7 @@ eifrac (x, i, frac)
static void static void
euifrac (x, i, frac) euifrac (x, i, frac)
UEMUSHORT *x; const UEMUSHORT *x;
unsigned HOST_WIDE_INT *i; unsigned HOST_WIDE_INT *i;
UEMUSHORT *frac; UEMUSHORT *frac;
{ {
...@@ -4616,7 +4643,7 @@ enormlz (x) ...@@ -4616,7 +4643,7 @@ enormlz (x)
#define MAXP 4096 #define MAXP 4096
#if MAX_LONG_DOUBLE_TYPE_SIZE == 128 && (INTEL_EXTENDED_IEEE_FORMAT == 0) #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, {0x6576, 0x4a92, 0x804a, 0x153f,
0xc94c, 0x979a, 0x8a20, 0x5202, 0xc460, 0x7525,}, /* 10**4096 */ 0xc94c, 0x979a, 0x8a20, 0x5202, 0xc460, 0x7525,}, /* 10**4096 */
...@@ -4646,7 +4673,7 @@ static UEMUSHORT etens[NTEN + 1][NE] = ...@@ -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, {0x2030, 0xcffc, 0xa1c3, 0x8123,
0x2de3, 0x9fde, 0xd2ce, 0x04c8, 0xa6dd, 0x0ad8,}, /* 10**-4096 */ 0x2de3, 0x9fde, 0xd2ce, 0x04c8, 0xa6dd, 0x0ad8,}, /* 10**-4096 */
...@@ -4677,7 +4704,7 @@ static UEMUSHORT emtens[NTEN + 1][NE] = ...@@ -4677,7 +4704,7 @@ static UEMUSHORT emtens[NTEN + 1][NE] =
}; };
#else #else
/* LONG_DOUBLE_TYPE_SIZE is other than 128 */ /* 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 */ {0xc94c, 0x979a, 0x8a20, 0x5202, 0xc460, 0x7525,}, /* 10**4096 */
{0xa74d, 0x5de4, 0xc53d, 0x3b5d, 0x9e8b, 0x5a92,}, /* 10**2048 */ {0xa74d, 0x5de4, 0xc53d, 0x3b5d, 0x9e8b, 0x5a92,}, /* 10**2048 */
...@@ -4694,7 +4721,7 @@ static UEMUSHORT etens[NTEN + 1][NE] = ...@@ -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 */ {0x2de4, 0x9fde, 0xd2ce, 0x04c8, 0xa6dd, 0x0ad8,}, /* 10**-4096 */
{0x4925, 0x2de4, 0x3436, 0x534f, 0xceae, 0x256b,}, /* 10**-2048 */ {0x4925, 0x2de4, 0x3436, 0x534f, 0xceae, 0x256b,}, /* 10**-2048 */
...@@ -4718,7 +4745,7 @@ static UEMUSHORT emtens[NTEN + 1][NE] = ...@@ -4718,7 +4745,7 @@ static UEMUSHORT emtens[NTEN + 1][NE] =
static void static void
e24toasc (x, string, ndigs) e24toasc (x, string, ndigs)
UEMUSHORT x[]; const UEMUSHORT x[];
char *string; char *string;
int ndigs; int ndigs;
{ {
...@@ -4733,7 +4760,7 @@ e24toasc (x, string, ndigs) ...@@ -4733,7 +4760,7 @@ e24toasc (x, string, ndigs)
static void static void
e53toasc (x, string, ndigs) e53toasc (x, string, ndigs)
UEMUSHORT x[]; const UEMUSHORT x[];
char *string; char *string;
int ndigs; int ndigs;
{ {
...@@ -4748,7 +4775,7 @@ e53toasc (x, string, ndigs) ...@@ -4748,7 +4775,7 @@ e53toasc (x, string, ndigs)
static void static void
e64toasc (x, string, ndigs) e64toasc (x, string, ndigs)
UEMUSHORT x[]; const UEMUSHORT x[];
char *string; char *string;
int ndigs; int ndigs;
{ {
...@@ -4763,7 +4790,7 @@ e64toasc (x, string, ndigs) ...@@ -4763,7 +4790,7 @@ e64toasc (x, string, ndigs)
static void static void
e113toasc (x, string, ndigs) e113toasc (x, string, ndigs)
UEMUSHORT x[]; const UEMUSHORT x[];
char *string; char *string;
int ndigs; int ndigs;
{ {
...@@ -4781,13 +4808,13 @@ static char wstring[80]; /* working storage for ASCII output */ ...@@ -4781,13 +4808,13 @@ static char wstring[80]; /* working storage for ASCII output */
static void static void
etoasc (x, string, ndigs) etoasc (x, string, ndigs)
UEMUSHORT x[]; const UEMUSHORT x[];
char *string; char *string;
int ndigs; int ndigs;
{ {
EMUSHORT digit; EMUSHORT digit;
UEMUSHORT y[NI], t[NI], u[NI], w[NI]; UEMUSHORT y[NI], t[NI], u[NI], w[NI];
UEMUSHORT *p, *r, *ten; const UEMUSHORT *p, *r, *ten;
UEMUSHORT sign; UEMUSHORT sign;
int i, j, k, expon, rndsav; int i, j, k, expon, rndsav;
char *s, *ss; char *s, *ss;
...@@ -5568,7 +5595,8 @@ static const UEMUSHORT bmask[] = ...@@ -5568,7 +5595,8 @@ static const UEMUSHORT bmask[] =
static void static void
efloor (x, y) efloor (x, y)
UEMUSHORT x[], y[]; const UEMUSHORT x[];
UEMUSHORT y[];
{ {
UEMUSHORT *p; UEMUSHORT *p;
int e, expon, i; int e, expon, i;
...@@ -5619,7 +5647,7 @@ efloor (x, y) ...@@ -5619,7 +5647,7 @@ efloor (x, y)
static void static void
efrexp (x, exp, s) efrexp (x, exp, s)
UEMUSHORT x[]; const UEMUSHORT x[];
int *exp; int *exp;
UEMUSHORT s[]; UEMUSHORT s[];
{ {
...@@ -5644,7 +5672,7 @@ efrexp (x, exp, s) ...@@ -5644,7 +5672,7 @@ efrexp (x, exp, s)
static void static void
eldexp (x, pwr2, y) eldexp (x, pwr2, y)
UEMUSHORT x[]; const UEMUSHORT x[];
int pwr2; int pwr2;
UEMUSHORT y[]; UEMUSHORT y[];
{ {
...@@ -5667,7 +5695,8 @@ eldexp (x, pwr2, y) ...@@ -5667,7 +5695,8 @@ eldexp (x, pwr2, y)
static void static void
eremain (a, b, c) 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) ...@@ -5800,7 +5829,7 @@ mtherr (name, code)
static void static void
dectoe (d, e) dectoe (d, e)
UEMUSHORT *d; const UEMUSHORT *d;
UEMUSHORT *e; UEMUSHORT *e;
{ {
UEMUSHORT y[NI]; UEMUSHORT y[NI];
...@@ -5840,7 +5869,8 @@ dectoe (d, e) ...@@ -5840,7 +5869,8 @@ dectoe (d, e)
static void static void
etodec (x, d) etodec (x, d)
UEMUSHORT *x, *d; const UEMUSHORT *x;
UEMUSHORT *d;
{ {
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
EMULONG exp; EMULONG exp;
...@@ -5908,7 +5938,7 @@ todec (x, y) ...@@ -5908,7 +5938,7 @@ todec (x, y)
static void static void
ibmtoe (d, e, mode) ibmtoe (d, e, mode)
UEMUSHORT *d; const UEMUSHORT *d;
UEMUSHORT *e; UEMUSHORT *e;
enum machine_mode mode; enum machine_mode mode;
{ {
...@@ -5951,7 +5981,8 @@ ibmtoe (d, e, mode) ...@@ -5951,7 +5981,8 @@ ibmtoe (d, e, mode)
static void static void
etoibm (x, d, mode) etoibm (x, d, mode)
UEMUSHORT *x, *d; const UEMUSHORT *x;
UEMUSHORT *d;
enum machine_mode mode; enum machine_mode mode;
{ {
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
...@@ -6028,7 +6059,7 @@ toibm (x, y, mode) ...@@ -6028,7 +6059,7 @@ toibm (x, y, mode)
static void static void
c4xtoe (d, e, mode) c4xtoe (d, e, mode)
UEMUSHORT *d; const UEMUSHORT *d;
UEMUSHORT *e; UEMUSHORT *e;
enum machine_mode mode; enum machine_mode mode;
{ {
...@@ -6144,7 +6175,8 @@ c4xtoe (d, e, mode) ...@@ -6144,7 +6175,8 @@ c4xtoe (d, e, mode)
static void static void
etoc4x (x, d, mode) etoc4x (x, d, mode)
UEMUSHORT *x, *d; const UEMUSHORT *x;
UEMUSHORT *d;
enum machine_mode mode; enum machine_mode mode;
{ {
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
...@@ -6277,9 +6309,9 @@ toc4x (x, y, mode) ...@@ -6277,9 +6309,9 @@ toc4x (x, y, mode)
TFMODE_NAN; TFMODE_NAN;
#else #else
#ifdef IEEE #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}; ...@@ -6287,9 +6319,9 @@ UEMUSHORT TFlittlenan[8] = {0, 0, 0, 0, 0, 0, 0x8000, 0xffff};
XFMODE_NAN; XFMODE_NAN;
#else #else
#ifdef IEEE #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}; ...@@ -6297,8 +6329,8 @@ UEMUSHORT XFlittlenan[6] = {0, 0, 0, 0xc000, 0xffff, 0};
DFMODE_NAN; DFMODE_NAN;
#else #else
#ifdef IEEE #ifdef IEEE
UEMUSHORT DFbignan[4] = {0x7fff, 0xffff, 0xffff, 0xffff}; static const UEMUSHORT DFbignan[4] = {0x7fff, 0xffff, 0xffff, 0xffff};
UEMUSHORT DFlittlenan[4] = {0, 0, 0, 0xfff8}; static const UEMUSHORT DFlittlenan[4] = {0, 0, 0, 0xfff8};
#endif #endif
#endif #endif
...@@ -6306,8 +6338,8 @@ UEMUSHORT DFlittlenan[4] = {0, 0, 0, 0xfff8}; ...@@ -6306,8 +6338,8 @@ UEMUSHORT DFlittlenan[4] = {0, 0, 0, 0xfff8};
SFMODE_NAN; SFMODE_NAN;
#else #else
#ifdef IEEE #ifdef IEEE
UEMUSHORT SFbignan[2] = {0x7fff, 0xffff}; static const UEMUSHORT SFbignan[2] = {0x7fff, 0xffff};
UEMUSHORT SFlittlenan[2] = {0, 0xffc0}; static const UEMUSHORT SFlittlenan[2] = {0, 0xffc0};
#endif #endif
#endif #endif
...@@ -6320,7 +6352,7 @@ make_nan (nan, sign, mode) ...@@ -6320,7 +6352,7 @@ make_nan (nan, sign, mode)
enum machine_mode mode; enum machine_mode mode;
{ {
int n; int n;
UEMUSHORT *p; const UEMUSHORT *p;
switch (mode) switch (mode)
{ {
...@@ -6537,7 +6569,7 @@ ereal_from_double (d) ...@@ -6537,7 +6569,7 @@ ereal_from_double (d)
static void static void
uditoe (di, e) uditoe (di, e)
UEMUSHORT *di; /* Address of the 64-bit int. */ const UEMUSHORT *di; /* Address of the 64-bit int. */
UEMUSHORT *e; UEMUSHORT *e;
{ {
UEMUSHORT yi[NI]; UEMUSHORT yi[NI];
...@@ -6566,7 +6598,7 @@ uditoe (di, e) ...@@ -6566,7 +6598,7 @@ uditoe (di, e)
static void static void
ditoe (di, e) ditoe (di, e)
UEMUSHORT *di; /* Address of the 64-bit int. */ const UEMUSHORT *di; /* Address of the 64-bit int. */
UEMUSHORT *e; UEMUSHORT *e;
{ {
unsigned EMULONG acc; unsigned EMULONG acc;
...@@ -6615,7 +6647,7 @@ ditoe (di, e) ...@@ -6615,7 +6647,7 @@ ditoe (di, e)
static void static void
etoudi (x, i) etoudi (x, i)
UEMUSHORT *x; const UEMUSHORT *x;
UEMUSHORT *i; UEMUSHORT *i;
{ {
UEMUSHORT xi[NI]; UEMUSHORT xi[NI];
...@@ -6698,7 +6730,7 @@ noshift: ...@@ -6698,7 +6730,7 @@ noshift:
static void static void
etodi (x, i) etodi (x, i)
UEMUSHORT *x; const UEMUSHORT *x;
UEMUSHORT *i; UEMUSHORT *i;
{ {
unsigned EMULONG acc; unsigned EMULONG acc;
...@@ -6800,7 +6832,8 @@ static unsigned short sqrndbit[NI]; ...@@ -6800,7 +6832,8 @@ static unsigned short sqrndbit[NI];
static void static void
esqrt (x, y) esqrt (x, y)
UEMUSHORT *x, *y; const UEMUSHORT *x;
UEMUSHORT *y;
{ {
UEMUSHORT temp[NI], num[NI], sq[NI], xx[NI]; UEMUSHORT temp[NI], num[NI], sq[NI], xx[NI];
EMULONG m, exp; EMULONG m, exp;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment