94a95,97
> #ifdef FREE
> FREE((void*)v);
> #else
95a99
> #endif
113,114c117,118
< register int k;
< register ULong x = *y;
---
> int k;
> ULong x = *y;
213c217
< (x) register ULong x;
---
> (x) ULong x;
215c219
< (register ULong x)
---
> (ULong x)
218c222
< register int k = 0;
---
> int k = 0;
621c625
< double d;
---
> U d;
625,626c629,630
< #define d0 word0(d)
< #define d1 word1(d)
---
> #define d0 word0(&d)
> #define d1 word1(&d)
639c643
< d0 = Exp_1 | y >> Ebits - k;
---
> d0 = Exp_1 | y >> (Ebits - k);
641c645
< d1 = y << (32-Ebits) + k | w >> Ebits - k;
---
> d1 = y << ((32-Ebits) + k) | w >> (Ebits - k);
646c650
< d0 = Exp_1 | y << k | z >> 32 - k;
---
> d0 = Exp_1 | y << k | z >> (32 - k);
648c652
< d1 = z << k | y >> 32 - k;
---
> d1 = z << k | y >> (32 - k);
672,673c676,677
< word0(d) = d0 >> 16 | d0 << 16;
< word1(d) = d1 >> 16 | d1 << 16;
---
> word0(&d) = d0 >> 16 | d0 << 16;
> word1(&d) = d1 >> 16 | d1 << 16;
675c679
< return dval(d);
---
> return dval(&d);
683c687
< (d, e, bits) double d; int *e, *bits;
---
> (dd, e, bits) double dd; int *e, *bits;
685c689
< (double d, int *e, int *bits)
---
> (double dd, int *e, int *bits)
688a693
> U d;
696,697d700
< d0 = word0(d) >> 16 | word0(d) << 16;
< d1 = word1(d) >> 16 | word1(d) << 16;
699,700c702,703
< #define d0 word0(d)
< #define d1 word1(d)
---
> #define d0 word0(&d)
> #define d1 word1(&d)
701a705,709
> d.d = dd;
> #ifdef VAX
> d0 = word0(&d) >> 16 | word0(&d) << 16;
> d1 = word1(&d) >> 16 | word1(&d) << 16;
> #endif
724c732
< x[0] = y | z << 32 - k;
---
> x[0] = y | z << (32 - k);
735,738d742
< #ifdef DEBUG
< if (!z)
< Bug("Zero passed to d2b");
< #endif
797c801
< *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);
---
> *bits = 4*P + 8 - k - hi0bits(word0(&d) & Frac_mask);
850c854
< while(*a = *b++)
---
> while((*a = *b++))
864,865c868,869
< register char *a = (char*)a1, *ae = a + len;
< register char *b = (char*)b1, *a0 = a;
---
> char *a = (char*)a1, *ae = a + len;
> char *b = (char*)b1, *a0 = a;