Mercurial > hg > CbC > old > device

annotate test/basic.c @ 611:e761dfa47ed4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Sun, 09 Apr 2006 21:53:42 +0900
parents aad312f61654
children 5e71527f9fd6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
467
32737bad7489 fix list/tag interference
kono
parents: 427
diff changeset
1 int printf(const char *format, ...);
32737bad7489 fix list/tag interference
kono
parents: 427
diff changeset
2
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
3 // #define INLINE inline
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
4 #ifdef INLINE
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
5 #else
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
6 #define INLINE
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
7 #endif
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
8
467
32737bad7489 fix list/tag interference
kono
parents: 427
diff changeset
9
375
91849fdeea60 PowerPC large offset.
kono
parents: 172
diff changeset
10 #define ARG_ADDRESS 0
91849fdeea60 PowerPC large offset.
kono
parents: 172
diff changeset
11
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
12 double ggg = 0.134;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
13 float fff = 0.0;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
14
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
15 extern double eggg;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
16 double eggg = 0.134;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
17 extern float efff;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
18 float efff = 0.1345;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
19
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
20 double ggg0;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
21 float fff0;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
22
517
d686497e8fd2 cstring array fix.
kono
parents: 496
diff changeset
23 char *memchar = "memory string\n";
d686497e8fd2 cstring array fix.
kono
parents: 496
diff changeset
24 char arraychar[] = "array string\n";
d686497e8fd2 cstring array fix.
kono
parents: 496
diff changeset
25
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
26 #if 0
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
27 extern double reggg;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
28 extern float refff;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
29 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
30
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
31 INLINE
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
32 int
89
917947ffeb7c power pc version
kono
parents:
diff changeset
33 print(double d)
917947ffeb7c power pc version
kono
parents:
diff changeset
34 {
917947ffeb7c power pc version
kono
parents:
diff changeset
35 float f;
917947ffeb7c power pc version
kono
parents:
diff changeset
36 int *dd;
917947ffeb7c power pc version
kono
parents:
diff changeset
37
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
38 #if 0
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
39 f = refff;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
40 f = reggg;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
41 #endif
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
42
89
917947ffeb7c power pc version
kono
parents:
diff changeset
43 f = d;
917947ffeb7c power pc version
kono
parents:
diff changeset
44
917947ffeb7c power pc version
kono
parents:
diff changeset
45 dd = (int*) &d;
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
46 printf("#0045:d %g\n",d);
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
47 printf("#0046:dx %08x %08x\n",*(dd),*(dd+1));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
48
917947ffeb7c power pc version
kono
parents:
diff changeset
49 dd = (int*) &f;
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
50 printf("#0049:f %g\n",f);
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
51 printf("#0050:dx %08x \n",*(dd));
488
62f3c801b6ac correct_type fix. type attribute.
kono
parents: 467
diff changeset
52 return 1;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
53 }
917947ffeb7c power pc version
kono
parents:
diff changeset
54
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
55 INLINE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
56 void
917947ffeb7c power pc version
kono
parents:
diff changeset
57 tmp () {
917947ffeb7c power pc version
kono
parents:
diff changeset
58 char c;
917947ffeb7c power pc version
kono
parents:
diff changeset
59 int i;
917947ffeb7c power pc version
kono
parents:
diff changeset
60 c=-1;
917947ffeb7c power pc version
kono
parents:
diff changeset
61 i=c;
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
62 printf("#0061:%d %d %d\n",!i,~i,-i);
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
63 printf("#0062:%d\n",i);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
64 }
917947ffeb7c power pc version
kono
parents:
diff changeset
65
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
66 INLINE
96
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
67 int
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
68 g(
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
69 int a0,int a1,int a2,int a3,int a4,int a5,int a6,int a7,int a8
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
70 )
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
71 {
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
72 printf("#0071:g: %d\n",
96
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
73 a0+a1+a2+a3+a4+a5+a6+a7+a8
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
74 );
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
75 return a8;
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
76 }
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
77
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
78 INLINE
103
f849af4b5ea9 *** empty log message ***
kono
parents: 97
diff changeset
79 int
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
80 i50(
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
81 int a0,int a1,int a2,int a3,int a4,int a5,int a6,int a7,int a8,int a9,int a10,int a11,int a12,int a13,int a14,int a15,int a16,int a17,int a18,int a19,int a20,int a21,int a22,int a23,int a24,int a25,int a26,int a27,int a28,int a29,int a30,int a31,int a32,int a33,int a34,int a35,int a36,int a37,int a38,int a39,int a40,int a41,int a42,int a43,int a44,int a45,int a46,int a47,int a48,int a49
108
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
82 )
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
83 {
375
91849fdeea60 PowerPC large offset.
kono
parents: 172
diff changeset
84 #if ARG_ADDRESS
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
85 printf("#0084:i50: a0 %x a49 %x\n",&a0,&a49);
375
91849fdeea60 PowerPC large offset.
kono
parents: 172
diff changeset
86 #endif
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
87 printf("#0086:i50: %d\n",
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
88 a0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44+a45+a46+a47+a48+a49
108
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
89 );
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
90 return a8;
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
91 }
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
92
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
93 INLINE
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
94 float
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
95 f50(
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
96 float a0,float a1,float a2,float a3,float a4,float a5,float a6,float a7,float a8,float a9,float a10,float a11,float a12,float a13,float a14,float a15,float a16,float a17,float a18,float a19,float a20,float a21,float a22,float a23,float a24,float a25,float a26,float a27,float a28,float a29,float a30,float a31,float a32,float a33,float a34,float a35,float a36,float a37,float a38,float a39,float a40,float a41,float a42,float a43,float a44,float a45,float a46,float a47,float a48,float a49
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
97 )
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
98 {
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
99 printf("#0098:f50: %g\n",
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
100 a0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44+a45+a46+a47+a48+a49
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
101 );
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
102 return a8;
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
103 }
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
104
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
105 INLINE
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
106 double
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
107 d50(
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
108 double a0,double a1,double a2,double a3,double a4,double a5,double a6,double a7,double a8,double a9,double a10,double a11,double a12,double a13,double a14,double a15,double a16,double a17,double a18,double a19,double a20,double a21,double a22,double a23,double a24,double a25,double a26,double a27,double a28,double a29,double a30,double a31,double a32,double a33,double a34,double a35,double a36,double a37,double a38,double a39,double a40,double a41,double a42,double a43,double a44,double a45,double a46,double a47,double a48,double a49
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
109 )
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
110 {
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
111 printf("#0110:d50: %g\n",
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
112 a0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44+a45+a46+a47+a48+a49
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
113 );
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
114 return a8;
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
115 }
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
116
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
117
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
118 INLINE
108
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
119 int
103
f849af4b5ea9 *** empty log message ***
kono
parents: 97
diff changeset
120 h( int a0,int a1,int a2,int a3,int a4,int a5,int a6,int a7,int a8)
f849af4b5ea9 *** empty log message ***
kono
parents: 97
diff changeset
121 {
574
aad312f61654 remove too much inmode.
kono
parents: 542
diff changeset
122 return g( a0,a1,a2,a3,a4,a5,a6,a7,a8);
103
f849af4b5ea9 *** empty log message ***
kono
parents: 97
diff changeset
123 }
f849af4b5ea9 *** empty log message ***
kono
parents: 97
diff changeset
124
f849af4b5ea9 *** empty log message ***
kono
parents: 97
diff changeset
125
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
126 INLINE
96
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
127 double
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
128 f(
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
129 double a0,double a1,double a2,double a3,double a4,double a5,double a6,double a7,double a8
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
130 )
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
131 {
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
132 printf("#0131:f: %g\n",
96
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
133 a0+a1+a2+a3+a4+a5+a6+a7+a8
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
134 );
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
135 return a8;
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
136 }
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
137
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
138 INLINE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
139 void
917947ffeb7c power pc version
kono
parents:
diff changeset
140 tmp1 () {
375
91849fdeea60 PowerPC large offset.
kono
parents: 172
diff changeset
141 #if ARG_ADDRESS
91849fdeea60 PowerPC large offset.
kono
parents: 172
diff changeset
142 int a0;
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
143 printf("#0142:tmp1: a0 %x\n",&a0);
375
91849fdeea60 PowerPC large offset.
kono
parents: 172
diff changeset
144 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
145
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
146 printf("#0145:%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d \n",
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
147 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
148 );
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
149 printf("#0148:%g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g \n",
119
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
150 0.0,1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0,17.0,18.0,19.0,20.0,21.0,22.0,23.0,24.0,25.0,26.0,27.0,28.0,29.0,30.0,31.0,32.0,33.0,34.0,35.0,36.0,37.0,38.0,39.0,40.0,41.0,42.0,43.0,44.0,45.0,46.0,47.0,48.0,49.0
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
151 );
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
152
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
153 i50(
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
154 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
155 );
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
156 f50(
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
157 0.0,1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0,17.0,18.0,19.0,20.0,21.0,22.0,23.0,24.0,25.0,26.0,27.0,28.0,29.0,30.0,31.0,32.0,33.0,34.0,35.0,36.0,37.0,38.0,39.0,40.0,41.0,42.0,43.0,44.0,45.0,46.0,47.0,48.0,49.0
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
158 );
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
159 d50(
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
160 0.0,1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0,17.0,18.0,19.0,20.0,21.0,22.0,23.0,24.0,25.0,26.0,27.0,28.0,29.0,30.0,31.0,32.0,33.0,34.0,35.0,36.0,37.0,38.0,39.0,40.0,41.0,42.0,43.0,44.0,45.0,46.0,47.0,48.0,49.0
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
161 );
b815fcd57b9d input var ( incomplete )
kono
parents: 108
diff changeset
162
103
f849af4b5ea9 *** empty log message ***
kono
parents: 97
diff changeset
163 h(0,1,2,3,4,5,6,7,1);
96
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
164 g(g(0,1,2,3,4,5,6,7,0),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
165 g(0,1,2,3,4,5,6,7,1),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
166 g(0,1,2,3,4,5,6,7,2),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
167 g(0,1,2,3,4,5,6,7,3),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
168 g(0,1,2,3,4,5,6,7,4),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
169 g(0,1,2,3,4,5,6,7,5),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
170 g(0,1,2,3,4,5,6,7,6),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
171 g(0,1,2,3,4,5,6,7,6),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
172 g(0,1,2,3,4,5,6,7,7));
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
173 f(f(0,1,2,3,4,5,6,7,0),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
174 f(0,1,2,3,4,5,6,7,1),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
175 f(0,1,2,3,4,5,6,7,2),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
176 f(0,1,2,3,4,5,6,7,3),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
177 f(0,1,2,3,4,5,6,7,4),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
178 f(0,1,2,3,4,5,6,7,5),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
179 f(0,1,2,3,4,5,6,7,6),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
180 f(0,1,2,3,4,5,6,7,6),
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
181 f(0,1,2,3,4,5,6,7,7));
7d8de41390d8 *** empty log message ***
kono
parents: 89
diff changeset
182
89
917947ffeb7c power pc version
kono
parents:
diff changeset
183 }
917947ffeb7c power pc version
kono
parents:
diff changeset
184
534
0f24e1dba811 *** empty log message ***
kono
parents: 517
diff changeset
185 INLINE
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
186 void
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
187 double_int()
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
188 {
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
189 printf("#0188:%d %f %f %f %f %f %f %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
190 1,0.1,.2,.3,.4,.5,.6,.7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
191 printf("#0190:%d %d %f %f %f %f %f %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
192 1, 1,.2,.3,.4,.5,.6,.7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
193 printf("#0192:%d %d %d %f %f %f %f %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
194 1, 1, 2,.3,.4,.5,.6,.7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
195 printf("#0194:%d %d %d %d %f %f %f %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
196 1, 1, 2, 3,.4,.5,.6,.7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
197 printf("#0196:%d %d %d %d %d %f %f %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
198 1, 1, 2, 3, 4,.5,.6,.7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
199 printf("#0198:%d %d %d %d %d %d %f %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
200 1, 1, 2, 3, 4, 5,.6,.7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
201 printf("#0200:%d %d %d %d %d %d %d %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
202 1, 1, 2, 3, 4, 5, 6,.7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
203 printf("#0202:%d %d %d %d %d %d %d %d %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
204 1, 1, 2, 3, 4, 5, 6, 7,.8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
205 printf("#0204:%d %d %d %d %d %d %d %d %d %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
206 1, 1, 2, 3, 4, 5, 6, 7, 8,.9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
207 printf("#0206:%d %d %d %d %d %d %d %d %d %d %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
208 1, 1, 2, 3, 4, 5, 6, 7, 8, 9,.1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
209 printf("#0208:%d %d %d %d %d %d %d %d %d %d %d %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
210 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1,.2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
211 printf("#0210:%d %d %d %d %d %d %d %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
212 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2);
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
213
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
214 printf("#0213:%f %d %d %d %d %d %d %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
215 .1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
216 printf("#0215:%f %f %d %d %d %d %d %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
217 .1, .1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
218 printf("#0217:%f %f %f %d %d %d %d %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
219 .1, .1,.2, 3, 4, 5, 6, 7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
220 printf("#0219:%f %f %f %f %d %d %d %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
221 .1, .1,.2,.3, 4, 5, 6, 7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
222 printf("#0221:%f %f %f %f %f %d %d %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
223 .1, .1,.2,.3,.4, 5, 6, 7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
224 printf("#0223:%f %f %f %f %f %f %d %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
225 .1, .1,.2,.3,.4,.5, 6, 7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
226 printf("#0225:%f %f %f %f %f %f %f %d %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
227 .1, .1,.2,.3,.4,.5,.6, 7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
228 printf("#0227:%f %f %f %f %f %f %f %f %d %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
229 .1, .1,.2,.3,.4,.5,.6,.7, 8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
230 printf("#0229:%f %f %f %f %f %f %f %f %f %d %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
231 .1, .1,.2,.3,.4,.5,.6,.7,.8, 9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
232 printf("#0231:%f %f %f %f %f %f %f %f %f %f %d %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
233 .1, .1,.2,.3,.4,.5,.6,.7,.8,.9, 1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
234 printf("#0233:%f %f %f %f %f %f %f %f %f %f %f %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
235 .1, .1,.2,.3,.4,.5,.6,.7,.8,.9,.1, 2);
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
236 printf("#0235:%f %f %f %f %f %f %f %f %f %f %f %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
237 .1, .1,.2,.3,.4,.5,.6,.7,.8,.9,.1,.2);
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
238
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
239 printf("#0238:%f %d %f %d %f %d %f %d %f %d %f %d\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
240 .1, 1,.2, 3,.4, 5,.6, 7,.8, 9,.1, 2);
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
241
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
242 printf("#0241:%d %f %d %f %d %f %d %f %d %f %d %f\n",
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
243 1, .1, 2,.3, 4,.5, 6,.7, 8,.9, 1,.2);
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
244 }
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
245
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
246
488
62f3c801b6ac correct_type fix. type attribute.
kono
parents: 467
diff changeset
247 int
89
917947ffeb7c power pc version
kono
parents:
diff changeset
248 main() {
917947ffeb7c power pc version
kono
parents:
diff changeset
249 print(1.0);
917947ffeb7c power pc version
kono
parents:
diff changeset
250 print(0.1234);
917947ffeb7c power pc version
kono
parents:
diff changeset
251 print(1.234e10);
917947ffeb7c power pc version
kono
parents:
diff changeset
252 print(1.234e-10);
108
69e2e763cce5 object assemble first try.
kono
parents: 103
diff changeset
253 tmp1();
496
5640fb7a270d more bugs...
kono
parents: 491
diff changeset
254 double_int();
542
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
255 printf("#0254:%s", memchar );
492f06738550 working... (struct init fix)
kono
parents: 534
diff changeset
256 printf("#0255:%s", arraychar);
172
096559f07a70 some check
kono
parents: 122
diff changeset
257 return 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
258 }