|
111
|
1 /* { dg-do run } */
|
|
|
2 /* { dg-options "-O" } */
|
|
|
3 /* { dg-require-effective-target int32plus } */
|
|
|
4
|
|
|
5 extern void abort (void);
|
|
|
6 typedef unsigned int u_int32;
|
|
|
7
|
|
|
8 typedef struct {
|
|
|
9 union {u_int32 Xl_ui;} Ul_i;
|
|
|
10 union {u_int32 Xl_uf;} Ul_f;
|
|
|
11 } l_fp;
|
|
|
12
|
|
|
13 void
|
|
|
14 dolfptoa (short ndec)
|
|
|
15 {
|
|
|
16 l_fp work, ftmp;
|
|
|
17
|
|
|
18 work.Ul_i.Xl_ui = 0;
|
|
|
19 work.Ul_f.Xl_uf = 0x535f3d8;
|
|
|
20
|
|
|
21 while (ndec > 0)
|
|
|
22 {
|
|
|
23 u_int32 lo_tmp;
|
|
|
24 u_int32 hi_tmp;
|
|
|
25
|
|
|
26 ndec--;
|
|
|
27 work.Ul_i.Xl_ui = 0;
|
|
|
28 work.Ul_i.Xl_ui <<= 1;
|
|
|
29 if ((work.Ul_f.Xl_uf) & 0x80000000)
|
|
|
30 (work.Ul_i.Xl_ui) |= 0x1;
|
|
|
31 (work.Ul_f.Xl_uf) <<= 1;
|
|
|
32
|
|
|
33 ftmp = work;
|
|
|
34 (work.Ul_i.Xl_ui) <<= 1;
|
|
|
35 if ((work.Ul_f.Xl_uf) & 0x80000000)
|
|
|
36 (work.Ul_i.Xl_ui) |= 0x1;
|
|
|
37 (work.Ul_f.Xl_uf) <<= 1;
|
|
|
38
|
|
|
39 (work.Ul_i.Xl_ui) <<= 1;
|
|
|
40 if ((work.Ul_f.Xl_uf) & 0x80000000)
|
|
|
41 (work.Ul_i.Xl_ui) |= 0x1;
|
|
|
42 (work.Ul_f.Xl_uf) <<= 1;
|
|
|
43
|
|
|
44 lo_tmp = ((work.Ul_f.Xl_uf) & 0xffff) + ((ftmp.Ul_f.Xl_uf) & 0xffff);
|
|
|
45 hi_tmp = (((work.Ul_f.Xl_uf) >> 16) & 0xffff)
|
|
|
46 + (((ftmp.Ul_f.Xl_uf) >> 16) & 0xffff);
|
|
|
47
|
|
|
48 if (lo_tmp & 0x10000)
|
|
|
49 hi_tmp++;
|
|
|
50
|
|
|
51 (work.Ul_f.Xl_uf) = ((hi_tmp & 0xffff) << 16) | (lo_tmp & 0xffff);
|
|
|
52 (work.Ul_i.Xl_ui) += (ftmp.Ul_i.Xl_ui);
|
|
|
53
|
|
|
54 if (hi_tmp & 0x10000)
|
|
|
55 (work.Ul_i.Xl_ui)++;
|
|
|
56
|
|
|
57
|
|
|
58 if (!(work.Ul_i.Xl_ui < 10))
|
|
|
59 abort ();
|
|
|
60 }
|
|
|
61 }
|
|
|
62
|
|
|
63 int main()
|
|
|
64 {
|
|
|
65 dolfptoa(6);
|
|
|
66 return 0;
|
|
|
67 }
|
