Make most functions static and add prototypes for all static functions.

(GET_REAL, PUT_REAL): Cast parameter to proper pointer type in some
cases; use unsigned array.

From-SVN: r7120

diff --git a/gcc/real.c b/gcc/real.c
index 16d9ebcc696cdec03ada49d26479384aedb2066f..6933423161eb94a2c8e893ceb3964884157c1296 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -264,13 +264,13 @@ unknown arithmetic type
    but host stores it in host endian-ness. */
 
 #if HOST_FLOAT_WORDS_BIG_ENDIAN == FLOAT_WORDS_BIG_ENDIAN
-#define GET_REAL(r,e) e53toe ((r), (e))
-#define PUT_REAL(e,r) etoe53 ((e), (r))
+#define GET_REAL(r,e) e53toe ((unsigned EMUSHORT*) (r), (e))
+#define PUT_REAL(e,r) etoe53 ((e), (unsigned EMUSHORT *) (r))
 
 #else /* endian-ness differs */
 /* emulator uses target endian-ness internally */
 #define GET_REAL(r,e)          \
-do { EMUSHORT w[4];            \
+do { unsigned EMUSHORT w[4];   \
  w[3] = ((EMUSHORT *) r)[0];   \
  w[2] = ((EMUSHORT *) r)[1];   \
  w[1] = ((EMUSHORT *) r)[2];   \
@@ -278,7 +278,7 @@ do { EMUSHORT w[4];         \
  e53toe (w, (e)); } while (0)
 
 #define PUT_REAL(e,r)          \
-do { EMUSHORT w[4];            \
+do { unsigned EMUSHORT w[4];   \
  etoe53 ((e), w);              \
  *((EMUSHORT *) r) = w[3];     \
  *((EMUSHORT *) r + 1) = w[2]; \
@@ -290,8 +290,8 @@ do { EMUSHORT w[4];         \
 #else /* not REAL_ARITHMETIC */
 
 /* emulator uses host format */
-#define GET_REAL(r,e) e53toe ((r), (e))
-#define PUT_REAL(e,r) etoe53 ((e), (r))
+#define GET_REAL(r,e) e53toe ((unsigned EMUSHORT *) (r), (e))
+#define PUT_REAL(e,r) etoe53 ((e), (unsigned EMUSHORT *) (r))
 
 #endif /* not REAL_ARITHMETIC */
 #endif /* not TFmode */
@@ -318,29 +318,117 @@ do { EMUSHORT w[4];              \
 /* The exponent of 1.0 */
 #define EXONE (0x3fff)
 
-void warning ();
 extern int extra_warnings;
-int ecmp (), enormlz (), eshift ();
-int eisneg (), eisinf (), eisnan (), eiisinf (), eiisnan (), eiisneg ();
-void eadd (), esub (), emul (), ediv ();
-void eshup1 (), eshup8 (), eshup6 (), eshdn1 (), eshdn8 (), eshdn6 ();
-void eabs (), eneg (), emov (), eclear (), einfin (), efloor ();
-void eldexp (), efrexp (), eifrac (), euifrac (), ltoe (), ultoe ();
-void ereal_to_decimal (), eiinfin (), einan ();
-void esqrt (), elog (), eexp (), etanh (), epow ();
-void asctoe (), asctoe24 (), asctoe53 (), asctoe64 (), asctoe113 ();
-void etoasc (), e24toasc (), e53toasc (), e64toasc (), e113toasc ();
-void etoe64 (), etoe53 (), etoe24 (), e64toe (), e53toe (), e24toe ();
-void etoe113 (), e113toe ();
-void mtherr (), make_nan ();
-void enan ();
 extern unsigned EMUSHORT ezero[], ehalf[], eone[], etwo[];
 extern unsigned EMUSHORT elog2[], esqrt2[];
+
+static void endian     PROTO((unsigned EMUSHORT *, long *,
+                              enum machine_mode));
+static void eclear     PROTO((unsigned EMUSHORT *));
+static void emov       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void eabs       PROTO((unsigned EMUSHORT *));
+static void eneg       PROTO((unsigned EMUSHORT *));
+static int eisneg      PROTO((unsigned EMUSHORT *));
+static int eisinf      PROTO((unsigned EMUSHORT *));
+static int eisnan      PROTO((unsigned EMUSHORT *));
+static void einfin     PROTO((unsigned EMUSHORT *));
+static void enan       PROTO((unsigned EMUSHORT *, int));
+static void emovi      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void emovo      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void ecleaz     PROTO((unsigned EMUSHORT *));
+static void ecleazs    PROTO((unsigned EMUSHORT *));
+static void emovz      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void einan      PROTO((unsigned EMUSHORT *));
+static int eiisnan     PROTO((unsigned EMUSHORT *));
+static int eiisneg     PROTO((unsigned EMUSHORT *));
+static void eiinfin    PROTO((unsigned EMUSHORT *));
+static int eiisinf     PROTO((unsigned EMUSHORT *));
+static int ecmpm       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void eshdn1     PROTO((unsigned EMUSHORT *));
+static void eshup1     PROTO((unsigned EMUSHORT *));
+static void eshdn8     PROTO((unsigned EMUSHORT *));
+static void eshup8     PROTO((unsigned EMUSHORT *));
+static void eshup6     PROTO((unsigned EMUSHORT *));
+static void eshdn6     PROTO((unsigned EMUSHORT *));
+static void eaddm      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));\f
+static void esubm      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void m16m       PROTO((unsigned short, unsigned short *,
+                              unsigned short *));
+static int edivm       PROTO((unsigned short *, unsigned short *));
+static int emulm       PROTO((unsigned short *, unsigned short *));
+static void emdnorm    PROTO((unsigned EMUSHORT *, int, int, EMULONG, int));
+static void esub       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              unsigned EMUSHORT *));
+static void eadd       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              unsigned EMUSHORT *));
+static void eadd1      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              unsigned EMUSHORT *));
+static void ediv       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              unsigned EMUSHORT *));
+static void emul       PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              unsigned EMUSHORT *));
+static void e53toe     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void e64toe     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void e113toe    PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void e24toe     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void etoe113    PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void toe113     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void etoe64     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void toe64      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void etoe53     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void toe53      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void etoe24     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void toe24      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static int ecmp                PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void eround     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void ltoe       PROTO((HOST_WIDE_INT *, unsigned EMUSHORT *));
+static void ultoe      PROTO((unsigned HOST_WIDE_INT *, unsigned EMUSHORT *));
+static void eifrac     PROTO((unsigned EMUSHORT *, HOST_WIDE_INT *,
+                              unsigned EMUSHORT *));
+static void euifrac    PROTO((unsigned EMUSHORT *, unsigned HOST_WIDE_INT *,
+                              unsigned EMUSHORT *));
+static int eshift      PROTO((unsigned EMUSHORT *, int));
+static int enormlz     PROTO((unsigned EMUSHORT *));
+static void e24toasc   PROTO((unsigned EMUSHORT *, char *, int));
+static void e53toasc   PROTO((unsigned EMUSHORT *, char *, int));
+static void e64toasc   PROTO((unsigned EMUSHORT *, char *, int));
+static void e113toasc  PROTO((unsigned EMUSHORT *, char *, int));
+static void etoasc     PROTO((unsigned EMUSHORT *, char *, int));
+static void asctoe24   PROTO((char *, unsigned EMUSHORT *));
+static void asctoe53   PROTO((char *, unsigned EMUSHORT *));
+static void asctoe64   PROTO((char *, unsigned EMUSHORT *));
+static void asctoe113  PROTO((char *, unsigned EMUSHORT *));
+static void asctoe     PROTO((char *, unsigned EMUSHORT *));
+static void asctoeg    PROTO((char *, unsigned EMUSHORT *, int));
+static void efloor     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void efrexp     PROTO((unsigned EMUSHORT *, int *,
+                              unsigned EMUSHORT *));
+static void eldexp     PROTO((unsigned EMUSHORT *, int, unsigned EMUSHORT *));
+static void eremain    PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              unsigned EMUSHORT *));
+static void eiremain   PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void mtherr     PROTO((char *, int));
+static void dectoe     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void etodec     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void todec      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void ibmtoe     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              enum machine_mode));
+static void etoibm     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              enum machine_mode));
+static void toibm      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *,
+                              enum machine_mode));
+static void make_nan   PROTO((unsigned EMUSHORT *, int, enum machine_mode));
+static void uditoe     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void ditoe      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void etoudi     PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void etodi      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
+static void esqrt      PROTO((unsigned EMUSHORT *, unsigned EMUSHORT *));
 \f
 /* Copy 32-bit numbers obtained from array containing 16-bit numbers,
    swapping ends if required, into output array of longs.  The
    result is normally passed to fprintf by the ASM_OUTPUT_ macros.   */
-void 
+
+static void 
 endian (e, x, mode)
      unsigned EMUSHORT e[];
      long x[];
@@ -444,6 +532,7 @@ endian (e, x, mode)
 
 /* This is the implementation of the REAL_ARITHMETIC macro.
  */
+
 void 
 earith (value, icode, r1, r2)
      REAL_VALUE_TYPE *value;
@@ -703,6 +792,7 @@ ereal_from_int (d, i, j)
 
 /* REAL_VALUE_FROM_UNSIGNED_INT macro.
  */
+
 void 
 ereal_from_uint (d, i, j)
      REAL_VALUE_TYPE *d;
@@ -1260,24 +1350,9 @@ unsigned EMUSHORT epi[NE] =
 int rndprc = NBITS;
 extern int rndprc;
 
-void eaddm (), esubm (), emdnorm (), asctoeg ();
 static void toe24 (), toe53 (), toe64 (), toe113 ();
-void eremain (), einit (), eiremain ();
-int ecmpm (), edivm (), emulm ();
-void emovi (), emovo (), emovz (), ecleaz (), ecleazs (), eadd1 ();
-#ifdef DEC
-void etodec (), todec (), dectoe ();
-#endif
-#ifdef IBM
-void etoibm (), toibm (), ibmtoe ();
-#endif
 
 
-void 
-einit ()
-{
-}
-
 /*
 ; Clear out entire external format number.
 ;
@@ -1285,7 +1360,7 @@ einit ()
 ; eclear (x);
 */
 
-void 
+static void 
 eclear (x)
      register unsigned EMUSHORT *x;
 {
@@ -1302,7 +1377,7 @@ eclear (x)
  * emov (a, b);
  */
 
-void 
+static void 
 emov (a, b)
      register unsigned EMUSHORT *a, *b;
 {
@@ -1320,12 +1395,12 @@ emov (a, b)
 ;      eabs (x);
 */
 
-void 
+static void 
 eabs (x)
-     unsigned EMUSHORT x[];    /* x is the memory address of a short */
+     unsigned EMUSHORT x[];
 {
-
-  x[NE - 1] &= 0x7fff;         /* sign is top bit of last word of external format */
+  /* sign is top bit of last word of external format */
+  x[NE - 1] &= 0x7fff;         
 }
 
 
@@ -1338,7 +1413,7 @@ eabs (x)
 ;      eneg (x);
 */
 
-void 
+static void 
 eneg (x)
      unsigned EMUSHORT x[];
 {
@@ -1351,7 +1426,7 @@ eneg (x)
 /* Return 1 if sign bit of external format number is nonzero,
  * else return zero.
  */
-int 
+static int 
 eisneg (x)
      unsigned EMUSHORT x[];
 {
@@ -1366,7 +1441,8 @@ eisneg (x)
 /* Return 1 if external format number is infinity.
  * else return zero.
  */
-int 
+
+static int 
 eisinf (x)
      unsigned EMUSHORT x[];
 {
@@ -1386,7 +1462,7 @@ eisinf (x)
    The bit pattern is one that we defined, so we know for sure how to
    detect it.  */
 
-int 
+static int 
 eisnan (x)
      unsigned EMUSHORT x[];
 {
@@ -1409,7 +1485,7 @@ eisnan (x)
 /*  Fill external format number with infinity pattern (IEEE)
     or largest possible number (non-IEEE). */
 
-void 
+static void 
 einfin (x)
      register unsigned EMUSHORT *x;
 {
@@ -1453,7 +1529,7 @@ einfin (x)
    This generates Intel's quiet NaN pattern for extended real.
    The exponent is 7fff, the leading mantissa word is c000.  */
 
-void 
+static void 
 enan (x, sign)
      register unsigned EMUSHORT *x;
      int sign;
@@ -1470,7 +1546,7 @@ enan (x, sign)
 /* Move in external format number,
  * converting it to internal format.
  */
-void 
+static void 
 emovi (a, b)
      unsigned EMUSHORT *a, *b;
 {
@@ -1517,7 +1593,7 @@ emovi (a, b)
 /* Move internal format number out,
  * converting it to external format.
  */
-void 
+static void 
 emovo (a, b)
      unsigned EMUSHORT *a, *b;
 {
@@ -1560,7 +1636,7 @@ emovo (a, b)
 /* Clear out internal format number.
  */
 
-void 
+static void 
 ecleaz (xi)
      register unsigned EMUSHORT *xi;
 {
@@ -1573,7 +1649,7 @@ ecleaz (xi)
 
 /* same, but don't touch the sign. */
 
-void 
+static void 
 ecleazs (xi)
      register unsigned EMUSHORT *xi;
 {
@@ -1588,7 +1664,8 @@ ecleazs (xi)
 
 /* Move internal format number from a to b.
  */
-void 
+
+static void 
 emovz (a, b)
      register unsigned EMUSHORT *a, *b;
 {
@@ -1604,7 +1681,7 @@ emovz (a, b)
    The explicit pattern for this is maximum exponent and
    top two significand bits set.  */
 
-void
+static void
 einan (x)
      unsigned EMUSHORT x[];
 {
@@ -1616,7 +1693,7 @@ einan (x)
 
 /* Return nonzero if internal format number is a NaN. */
 
-int 
+static int 
 eiisnan (x)
      unsigned EMUSHORT x[];
 {
@@ -1635,7 +1712,7 @@ eiisnan (x)
 
 /* Return nonzero if sign of internal format number is nonzero.  */
 
-int 
+static int 
 eiisneg (x)
      unsigned EMUSHORT x[];
 {
@@ -1646,7 +1723,7 @@ eiisneg (x)
 /* Fill internal format number with infinity pattern.
    This has maximum exponent and significand all zeros.  */
 
-void
+static void
 eiinfin (x)
      unsigned EMUSHORT x[];
 {
@@ -1657,7 +1734,7 @@ eiinfin (x)
 
 /* Return nonzero if internal format number is infinite. */
 
-int 
+static int 
 eiisinf (x)
      unsigned EMUSHORT x[];
 {
@@ -1684,7 +1761,8 @@ eiisinf (x)
 ;               0 if a == b
 ;              -1 if a < b
 */
-int
+
+static int
 ecmpm (a, b)
      register unsigned EMUSHORT *a, *b;
 {
@@ -1711,7 +1789,7 @@ ecmpm (a, b)
 ;      Shift significand down by 1 bit
 */
 
-void 
+static void 
 eshdn1 (x)
      register unsigned EMUSHORT *x;
 {
@@ -1739,7 +1817,7 @@ eshdn1 (x)
 ;      Shift significand up by 1 bit
 */
 
-void 
+static void 
 eshup1 (x)
      register unsigned EMUSHORT *x;
 {
@@ -1767,7 +1845,7 @@ eshup1 (x)
 ;      Shift significand down by 8 bits
 */
 
-void 
+static void 
 eshdn8 (x)
      register unsigned EMUSHORT *x;
 {
@@ -1790,7 +1868,7 @@ eshdn8 (x)
 ;      Shift significand up by 8 bits
 */
 
-void 
+static void 
 eshup8 (x)
      register unsigned EMUSHORT *x;
 {
@@ -1814,7 +1892,7 @@ eshup8 (x)
 ;      Shift significand up by 16 bits
 */
 
-void 
+static void 
 eshup6 (x)
      register unsigned EMUSHORT *x;
 {
@@ -1834,7 +1912,7 @@ eshup6 (x)
 ;      Shift significand down by 16 bits
 */
 
-void 
+static void 
 eshdn6 (x)
      register unsigned EMUSHORT *x;
 {
@@ -1855,7 +1933,7 @@ eshdn6 (x)
 ;      x + y replaces y
 */
 
-void 
+static void 
 eaddm (x, y)
      unsigned EMUSHORT *x, *y;
 {
@@ -1884,7 +1962,7 @@ eaddm (x, y)
 ;      y - x replaces y
 */
 
-void 
+static void 
 esubm (x, y)
      unsigned EMUSHORT *x, *y;
 {
@@ -2066,9 +2144,9 @@ emulm (a, b)
 
 
 /* Multiply significand of e-type number b
-by 16-bit quantity a, e-type result to c. */
+   by 16-bit quantity a, e-type result to c. */
 
-void
+static void
 m16m (a, b, c)
      unsigned short a;
      unsigned short b[], c[];
@@ -2112,7 +2190,7 @@ m16m (a, b, c)
 /* Divide significands. Neither the numerator nor the denominator
    is permitted to have its high guard word nonzero.  */
 
-int
+static int
 edivm (den, num)
      unsigned short den[], num[];
 {
@@ -2178,7 +2256,7 @@ edivm (den, num)
 
 
 /* Multiply significands */
-int
+static int
 emulm (a, b)
      unsigned short a[], b[];
 {
@@ -2256,7 +2334,7 @@ static unsigned EMUSHORT rebit = 0;
 static int re = 0;
 static unsigned EMUSHORT rbit[NI];
 
-void 
+static void 
 emdnorm (s, lost, subflg, exp, rcntrl)
      unsigned EMUSHORT s[];
      int lost;
@@ -2459,7 +2537,7 @@ emdnorm (s, lost, subflg, exp, rcntrl)
 
 static int subflg = 0;
 
-void 
+static void 
 esub (a, b, c)
      unsigned EMUSHORT *a, *b, *c;
 {
@@ -2496,7 +2574,8 @@ esub (a, b, c)
 ;      unsigned EMUSHORT a[NE], b[NE], c[NE];
 ;      eadd (a, b, c);  c = b + a
 */
-void 
+
+static void 
 eadd (a, b, c)
      unsigned EMUSHORT *a, *b, *c;
 {
@@ -2527,7 +2606,7 @@ eadd (a, b, c)
   eadd1 (a, b, c);
 }
 
-void 
+static void 
 eadd1 (a, b, c)
      unsigned EMUSHORT *a, *b, *c;
 {
@@ -2637,7 +2716,8 @@ eadd1 (a, b, c)
 ;      unsigned EMUSHORT a[NE], b[NE], c[NE];
 ;      ediv (a, b, c); c = b / a
 */
-void 
+
+static void 
 ediv (a, b, c)
      unsigned EMUSHORT *a, *b, *c;
 {
@@ -2745,7 +2825,8 @@ ediv (a, b, c)
 ;      unsigned EMUSHORT a[NE], b[NE], c[NE];
 ;      emul (a, b, c); c = b * a
 */
-void 
+
+static void 
 emul (a, b, c)
      unsigned EMUSHORT *a, *b, *c;
 {
@@ -2842,7 +2923,8 @@ emul (a, b, c)
 ;      unsigned EMUSHORT x[N+2];
 ;      e53toe (&d, x);
 */
-void 
+
+static void
 e53toe (pe, y)
      unsigned EMUSHORT *pe, *y;
 {
@@ -2935,7 +3017,7 @@ e53toe (pe, y)
 #endif /* not DEC */
 }
 
-void 
+static void 
 e64toe (pe, y)
      unsigned EMUSHORT *pe, *y;
 {
@@ -3008,7 +3090,7 @@ e64toe (pe, y)
 }
 
 
-void 
+static void 
 e113toe (pe, y)
      unsigned EMUSHORT *pe, *y;
 {
@@ -3090,7 +3172,8 @@ e113toe (pe, y)
 ;      unsigned EMUSHORT x[N+2];
 ;      dtox (&d, x);
 */
-void 
+
+static void 
 e24toe (pe, y)
      unsigned EMUSHORT *pe, *y;
 {
@@ -3178,7 +3261,7 @@ e24toe (pe, y)
 }
 
 
-void 
+static void 
 etoe113 (x, e)
      unsigned EMUSHORT *x, *e;
 {
@@ -3209,6 +3292,7 @@ etoe113 (x, e)
 }
 
 /* move out internal format to ieee long double */
+
 static void 
 toe113 (a, b)
      unsigned EMUSHORT *a, *b;
@@ -3260,7 +3344,7 @@ toe113 (a, b)
 #endif
 }
 
-void 
+static void 
 etoe64 (x, e)
      unsigned EMUSHORT *x, *e;
 {
@@ -3291,6 +3375,7 @@ etoe64 (x, e)
   toe64 (xi, e);
 }
 
+
 /* move out internal format to ieee long double */
 static void 
 toe64 (a, b)
@@ -3353,7 +3438,7 @@ toe64 (a, b)
 
 #ifdef DEC
 
-void 
+static void 
 etoe53 (x, e)
      unsigned EMUSHORT *x, *e;
 {
@@ -3649,7 +3734,8 @@ toe24 (x, y)
  *          -1 if a < b
  *          -2 if either a or b is a NaN.
  */
-int 
+
+static int 
 ecmp (a, b)
      unsigned EMUSHORT *a, *b;
 {
@@ -3719,7 +3805,8 @@ ecmp (a, b)
  * unsigned EMUSHORT x[NE], y[NE]
  * eround (x, y);
  */
-void 
+
+static void 
 eround (x, y)
      unsigned EMUSHORT *x, *y;
 {
@@ -3738,7 +3825,8 @@ eround (x, y)
 ;      ltoe (&l, x);
 ; note &l is the memory address of l
 */
-void 
+
+static void 
 ltoe (lp, y)
      HOST_WIDE_INT *lp;
      unsigned EMUSHORT *y;
@@ -3786,7 +3874,8 @@ ltoe (lp, y)
 ;      ltox (&l, x);
 ; note &l is the memory address of l
 */
-void 
+
+static void 
 ultoe (lp, y)
      unsigned HOST_WIDE_INT *lp;
      unsigned EMUSHORT *y;
@@ -3826,7 +3915,7 @@ ultoe (lp, y)
    The output e-type fraction FRAC is the positive fractional
    part of abs (X).  */
 
-void 
+static void 
 eifrac (x, i, frac)
      unsigned EMUSHORT *x;
      HOST_WIDE_INT *i;
@@ -3909,7 +3998,7 @@ eifrac (x, i, frac)
    A negative e type input yields integer output = 0
    but correct fraction.  */
 
-void 
+static void 
 euifrac (x, i, frac)
      unsigned EMUSHORT *x;
      unsigned HOST_WIDE_INT *i;
@@ -3984,7 +4073,8 @@ euifrac (x, i, frac)
 ;      Shifts significand area up or down by the number of bits
 ;      given by the variable sc.
 */
-int 
+
+static int 
 eshift (x, sc)
      unsigned EMUSHORT *x;
      int sc;
@@ -4055,7 +4145,8 @@ eshift (x, sc)
 ; Shift normalizes the significand area pointed to by argument
 ; shift count (up = positive) is returned.
 */
-int 
+
+static int 
 enormlz (x)
      unsigned EMUSHORT x[];
 {
@@ -4228,7 +4319,7 @@ static unsigned EMUSHORT emtens[NTEN + 1][NE] =
 };
 #endif
 
-void 
+static void 
 e24toasc (x, string, ndigs)
      unsigned EMUSHORT x[];
      char *string;
@@ -4241,7 +4332,7 @@ e24toasc (x, string, ndigs)
 }
 
 
-void 
+static void 
 e53toasc (x, string, ndigs)
      unsigned EMUSHORT x[];
      char *string;
@@ -4254,7 +4345,7 @@ e53toasc (x, string, ndigs)
 }
 
 
-void 
+static void 
 e64toasc (x, string, ndigs)
      unsigned EMUSHORT x[];
      char *string;
@@ -4266,7 +4357,7 @@ e64toasc (x, string, ndigs)
   etoasc (w, string, ndigs);
 }
 
-void 
+static void 
 e113toasc (x, string, ndigs)
      unsigned EMUSHORT x[];
      char *string;
@@ -4281,7 +4372,7 @@ e113toasc (x, string, ndigs)
 
 static char wstring[80];       /* working storage for ASCII output */
 
-void 
+static void 
 etoasc (x, string, ndigs)
      unsigned EMUSHORT x[];
      char *string;
@@ -4610,7 +4701,8 @@ etoasc (x, string, ndigs)
 */
 
 /* ASCII to single */
-void 
+
+static void 
 asctoe24 (s, y)
      char *s;
      unsigned EMUSHORT *y;
@@ -4620,7 +4712,8 @@ asctoe24 (s, y)
 
 
 /* ASCII to double */
-void 
+
+static void 
 asctoe53 (s, y)
      char *s;
      unsigned EMUSHORT *y;
@@ -4634,7 +4727,8 @@ asctoe53 (s, y)
 
 
 /* ASCII to long double */
-void 
+
+static void 
 asctoe64 (s, y)
      char *s;
      unsigned EMUSHORT *y;
@@ -4643,7 +4737,8 @@ asctoe64 (s, y)
 }
 
 /* ASCII to 128-bit long double */
-void 
+
+static void 
 asctoe113 (s, y)
      char *s;
      unsigned EMUSHORT *y;
@@ -4652,7 +4747,7 @@ asctoe113 (s, y)
 }
 
 /* ASCII to super double */
-void 
+static void 
 asctoe (s, y)
      char *s;
      unsigned EMUSHORT *y;
@@ -4662,7 +4757,7 @@ asctoe (s, y)
 
 
 /* ASCII to e type, with specified rounding precision = oprec. */
-void 
+static void 
 asctoeg (ss, y, oprec)
      char *ss;
      unsigned EMUSHORT *y;
@@ -5001,7 +5096,7 @@ static unsigned EMUSHORT bmask[] =
   0x0000,
 };
 
-void 
+static void 
 efloor (x, y)
      unsigned EMUSHORT x[], y[];
 {
@@ -5057,7 +5152,8 @@ efloor (x, y)
  * For example, 1.1 = 0.55 * 2**1
  * Handles denormalized numbers properly using long integer exp.
  */
-void 
+
+static void 
 efrexp (x, exp, s)
      unsigned EMUSHORT x[];
      int *exp;
@@ -5087,7 +5183,8 @@ efrexp (x, exp, s)
  *
  * Returns y = x * 2**pwr2.
  */
-void 
+
+static void 
 eldexp (x, pwr2, y)
      unsigned EMUSHORT x[];
      int pwr2;
@@ -5109,7 +5206,8 @@ eldexp (x, pwr2, y)
 /* c = remainder after dividing b by a
  * Least significant integer quotient bits left in equot[].
  */
-void 
+
+static void 
 eremain (a, b, c)
      unsigned EMUSHORT a[], b[], c[];
 {
@@ -5142,7 +5240,7 @@ eremain (a, b, c)
   emovo (num, c);
 }
 
-void 
+static void 
 eiremain (den, num)
      unsigned EMUSHORT den[], num[];
 {
@@ -5252,7 +5350,7 @@ static char *ermsg[NMSGS] =
 int merror = 0;
 extern int merror;
 
-void 
+static void 
 mtherr (name, code)
      char *name;
      int code;
@@ -5291,7 +5389,8 @@ mtherr (name, code)
 ;      EMUSHORT e[NE];
 ;      dectoe (&d, e);
 */
-void 
+
+static void 
 dectoe (d, e)
      unsigned EMUSHORT *d;
      unsigned EMUSHORT *e;
@@ -5338,7 +5437,7 @@ dectoe (d, e)
 ;      etodec (e, &d);
 */
 
-void 
+static void 
 etodec (x, d)
      unsigned EMUSHORT *x, *d;
 {
@@ -5356,7 +5455,7 @@ etodec (x, d)
   todec (xi, d);
 }
 
-void 
+static void 
 todec (x, y)
      unsigned EMUSHORT *x, *y;
 {
@@ -5411,7 +5510,8 @@ todec (x, y)
 ;      enum machine_mode mode; SFmode/DFmode
 ;      ibmtoe (&d, e, mode);
 */
-void 
+
+static void 
 ibmtoe (d, e, mode)
      unsigned EMUSHORT *d;
      unsigned EMUSHORT *e;
@@ -5461,7 +5561,7 @@ ibmtoe (d, e, mode)
 ;      etoibm (e, &d, mode);
 */
 
-void 
+static void 
 etoibm (x, d, mode)
      unsigned EMUSHORT *x, *d;
      enum machine_mode mode;
@@ -5480,7 +5580,7 @@ etoibm (x, d, mode)
   toibm (xi, d, mode);
 }
 
-void 
+static void 
 toibm (x, y, mode)
      unsigned EMUSHORT *x, *y;
      enum machine_mode mode;
@@ -5585,11 +5685,11 @@ unsigned EMUSHORT SFnan[2] = {0, 0xffc0};
 #endif
 
 
-void
+static void
 make_nan (nan, sign, mode)
-unsigned EMUSHORT *nan;
-int sign;
-enum machine_mode mode;
+     unsigned EMUSHORT *nan;
+     int sign;
+     enum machine_mode mode;
 {
   int n;
   unsigned EMUSHORT *p;
@@ -5700,7 +5800,7 @@ ereal_from_double (d)
    The endian-ness of DImode follows the convention for integers,
    so we use WORDS_BIG_ENDIAN here, not FLOAT_WORDS_BIG_ENDIAN.  */
 
-void
+static void
 uditoe (di, e)
      unsigned EMUSHORT *di;  /* Address of the 64-bit int. */
      unsigned EMUSHORT *e;
@@ -5726,7 +5826,7 @@ uditoe (di, e)
 
 /* Convert target computer signed 64-bit integer to e-type. */
 
-void
+static void
 ditoe (di, e)
      unsigned EMUSHORT *di;  /* Address of the 64-bit int. */
      unsigned EMUSHORT *e;
@@ -5773,7 +5873,7 @@ ditoe (di, e)
 /* Convert e-type to unsigned 64-bit int. */
 
 void 
-etoudi (x, i)
+static etoudi (x, i)
      unsigned EMUSHORT *x;
      unsigned EMUSHORT *i;
 {
@@ -5852,7 +5952,7 @@ noshift:
 
 /* Convert e-type to signed 64-bit int. */
 
-void 
+static void 
 etodi (x, i)
      unsigned EMUSHORT *x;
      unsigned EMUSHORT *i;
@@ -5953,7 +6053,7 @@ etodi (x, i)
 static int esqinited = 0;
 static unsigned short sqrndbit[NI];
 
-void 
+static void 
 esqrt (x, y)
      unsigned EMUSHORT *x, *y;
 {