30 #define NE 10  macro
33 #define NI (NE+3)
120 #if NE == 10
122 static const unsigned short ezero[NE] = { 0x0000, 0x0000, 0x0000, 0x0000,
127 static const unsigned short eone[NE] = { 0x0000, 0x0000, 0x0000, 0x0000,
134 static const unsigned short ezero[NE] = {
139 static const unsigned short eone[NE] = {
474   for (i = 0; i < NE; i++)  in eclear()
490   for (i = 0; i < NE; i++)  in emov()
510   x[NE - 1] ^= 0x8000;		/* Toggle the sign bit */  in eneg()
526   if (x[NE - 1] & 0x8000)  in eisneg()
540   if ((x[NE - 1] & 0x7fff) == 0x7fff)  in eisinf()
561   if ((x[NE - 1] & 0x7fff) != 0x7fff)  in eisnan()
564   for (i = 0; i < NE - 1; i++)  in eisnan()
588   for (i = 0; i < NE - 1; i++)  in einfin()
593   for (i = 0; i < NE - 1; i++)  in einfin()
632   p = a + (NE - 1);		/* point to last word of external number */  in emovi()
661   for (i = 0; i < NE - 1; i++)  in emovi()
678   q = b + (NE - 1);		/* point to output exponent */  in emovo()
702   for (i = 0; i < NE - 1; i++)  in emovo()
1615 	*(c + (NE - 1)) = 0x8000;  in ediv()
1617 	*(c + (NE - 1)) = 0;  in ediv()
1657 	*(c + (NE - 1)) = 0;  in ediv()
1659 	*(c + (NE - 1)) = 0x8000;  in ediv()
1721 	*(c + (NE - 1)) = 0x8000;  in emul()
1723 	*(c + (NE - 1)) = 0;  in emul()
1915   for (i = 0; i < NE - 5; i++)  in e64toe()
1926   p = &yy[0] + (NE - 1);  in e64toe()
1936   if ((yy[NE - 1] & 0x7fff) == 0 && (yy[NE - 2] & 0x8000) == 0)  in e64toe()
1947   p = &yy[NE - 1];  in e64toe()
1983   for (i = 0; i < NE; i++)  in e64toe()
2649 #if NE == 10
2650 static const unsigned short etens[NTEN + 1][NE] = {
2679 static const unsigned short emtens[NTEN + 1][NE] = {
2708 static const unsigned short etens[NTEN + 1][NE] = {
2724 static const unsigned short emtens[NTEN + 1][NE] = {
2848       __int32_t expon = (e[NE - 1] & 0x7fff) - (EXONE - 1); /* exponent part */  in __ldtoa()
2990   if ((e[NE - 1] & 0x7fff) == 0x7fff)  in _ldcheck()
3027   if (y[NE - 1] & 0x8000)  in etoasc()
3030       y[NE - 1] &= 0x7fff;  in etoasc()
3040   if (y[NE - 1] == 0)  in etoasc()
3042       for (k = 0; k < NE - 1; k++)  in etoasc()
3053   if (y[NE - 1] == 0x7fff)  in etoasc()
3066   if ((y[NE - 1] != 0) && ((y[NE - 2] & 0x8000) == 0))  in etoasc()
3083       u[NE - 1] = EXONE + NBITS - 1;  in etoasc()
3091 	  for (j = 0; j < NE - 1; j++)  in etoasc()
3099 	  p += NE;  in etoasc()
3105       u[NE - 1] += y[NE - 1] - (unsigned int) (EXONE + NBITS - 1);  in etoasc()
3122 	  p += NE;  in etoasc()
3128       if (y[NE - 1] == 0)  in etoasc()
3130 	  while ((y[NE - 2] & 0x8000) == 0)  in etoasc()
3156 	      if (eone[NE - 1] <= u[1])  in etoasc()
3179 	  p += NE;  in etoasc()
3180 	  r += NE;  in etoasc()
3607       p -= NE;
3714   unsigned short f[NE];  in efloor()
3717   expon = (int) f[NE - 1];  in efloor()
3743       for (i = 0; i < NE - 1; i++)  in efloor()
3867       for (i = 0; i < NE - 2; i++)  in enan()
3871       for (i = 0; i < NE - 2; i++)  in enan()