annotate test/code-gen.c @ 255:8cd8d72286ae

PowerPC long long complex function call fix. MIPS entry frame calc.
author kono
date Fri, 14 May 2004 20:57:52 +0900
parents c68f618b71f9
children 87b9cfc86a10
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1 /* Micro-C Code Generator Checker */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2 /* $Id$ */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
3
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
4 #define FLOAT_CODE 1
237
1933266f1efa long long ia32 (imcomplete)
kono
parents: 235
diff changeset
5 #define LONGLONG_CODE 1
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
6
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
7 // code_lvar(int e2,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
8
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
9 extern int printf(const char *fmt,...);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
10
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
11 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
12 code_lvar()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
13 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
14 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
15 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
16 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
17 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
18 unsigned short us1,us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
19
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
20 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
21 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
22 printf("code_lvar %d %d %d %d %u %u\n",i1,i2,s1,s2,us1,us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
23 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
24 printf("code_lvar %d %d %u %u\n",c1,c2,uc1,uc2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
25 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
26
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
27 // code_label(int labelno)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
28 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
29 code_label()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
30 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
31 goto hoge;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
32 hage:
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
33 goto hage;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
34 hoge:
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
35 printf("code_label done\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
36 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
37
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
38 // code_gvar(int e1,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
39 // code_rgvar(int e1,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
40 // code_crgvar(int e1,int creg,int sign,int sz)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
41
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
42 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
43 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
44 static char s_c1,s_c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
45 static unsigned char s_uc1,s_uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
46 int i1,i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
47 unsigned int ui1,ui2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
48 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
49 unsigned short us1,us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
50 static int s_i1,s_i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
51 static short s_s1,s_s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
52 static unsigned short s_us1,s_us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
53 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
54 float f0,f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
55 double d0,d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
56 static float s_f0,s_f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
57 static double s_d0,s_d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
58 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
59 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
60 long long l0,l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
61 unsigned long long ul0,ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
62 static long long s_l0,s_l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
63 static unsigned long long s_ul0,s_ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
64 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
65
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
66 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
67 code_gvar()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
68 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
69 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
70 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
71 printf("code_gvar a %d %d %u %u %u %u\n",i1,i2,s1,s2,us1,us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
72 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
73 printf("code_gvar b %d %d %u %u\n",c1,c2,uc1,uc2);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
74
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
75 s_i1 = 1; s_i2 = 2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
76 s_s1 = -1; s_s2 = -3; s_us1 = 65535; s_us2 = 65535;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
77 printf("code_gvar c %d %d %u %u %u %u\n",s_i1,s_i2,s1,s_s2,s_us1,s_us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
78 s_c1 = -1; s_c2 = -3; s_uc1 = 200; s_uc2 = 202;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
79 printf("code_gvar d %d %d %u %u\n",s_c1,s_c2,s_uc1,s_uc2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
80 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
81
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
82 // code_register(int e2,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
83
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
84 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
85 code_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
86 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
87 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
88 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
89 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
90 register short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
91 register unsigned short us1,us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
92
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
93 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
94 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
95 printf("code_lvar r %d %d %u %u %u %u\n",i1,i2,s1,s2,us1,us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
96 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
97 printf("code_gvar r %d %d %u %u\n",c1,c2,uc1,uc2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
98 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
99
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
100 // code_fname(NMTBL *n,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
101
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
102 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
103 code_fname()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
104 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
105 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
106 i = (int)code_fname;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
107 j = (int)code_register;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
108 printf("code_fname %d\n",i==j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
109 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
110
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
111
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
112 // code_neg(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
113 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
114 code_neg()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
115 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
116 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
117 i = 123123123;j = -32423;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
118 printf("code_neg %d %d\n",-i,-j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
119 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
120
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
121 // code_not(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
122 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
123 code_not()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
124 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
125 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
126 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
127 printf("code_neg %d %d\n",~i,~j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
128 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
129
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
130 // code_lnot(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
131 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
132 code_lnot()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
133 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
134 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
135 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
136 printf("code_neg %d %d\n",!i,!j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
137 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
138
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
139 // code_preinc(int e1,int e2,int dir,int sign,int sz,int reg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
140 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
141 code_preinc()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
142 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
143 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
144 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
145 printf("code_preinc i %d %d\n",++i,--j);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
146 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
147
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
148 // code_postinc(int e1,int e2,int dir,int sign,int sz,int reg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
149 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
150 code_upostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
151 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
152 unsigned int i,j;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
153 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
154 printf("code_upreinc u %d %d\n",i++,j--);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
155 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
156
d83291712bf7 test routine
kono
parents: 199
diff changeset
157 // code_postinc(int e1,int e2,int dir,int sign,int sz,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
158 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
159 code_postinc()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
160 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
161 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
162 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
163 printf("code_postinc i %d %d\n",i++,j--);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
164 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
165
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
166 // code_preinc(int e1,int e2,int dir,int sign,int sz,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
167 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
168 code_upreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
169 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
170 unsigned int i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
171 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
172 printf("code_upreinc u %d %d\n",++i,--j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
173 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
174
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
175 // code_return(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
176
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
177
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
178 int
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
179 code_return_int0()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
180 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
181 return 1;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
182 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
183 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
184 code_return_int()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
185 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
186 printf("code_return_int %d\n",code_return_int0());
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
187 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
188
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
189 #if FLOAT_CODE
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
190 float
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
191 code_return_float0()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
192 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
193 return 1.0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
194 }
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
195 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
196 code_return_float()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
197 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
198 printf("code_return_float %g\n",code_return_float0());
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
199 }
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
200
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
201 double
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
202 code_return_double0()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
203 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
204 return 1.0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
205 }
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
206 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
207 code_return_double()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
208 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
209 printf("code_return_double %g\n",code_return_double0());
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
210 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
211
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
212 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
213
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
214 #if LONGLONG_CODE
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
215 long long
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
216 code_return_longlong0()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
217 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
218 return 10LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
219 }
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
220 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
221 code_return_longlong()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
222 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
223 printf("code_return_longlong %lld\n",code_return_longlong0());
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
224 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
225
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
226 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
227
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
228 struct aa { char a[100]; } a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
229 struct aa
223
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
230 code_return_struct0(/*int j*/)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
231 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
232 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
233 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
234 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
235
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
236 void
203
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
237 code_return_struct1()
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
238 {
223
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
239 int i = code_return_struct0(/*1*/).a[55];
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
240 // int i;
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
241 // i = code_return_struct0(i).a[55];
203
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
242 printf("code_return_struct %d\n", i);
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
243 }
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
244
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
245 void
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
246 code_return_struct()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
247 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
248 printf("code_return_struct %d\n", code_return_struct0().a[55]);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
249 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
250
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
251 // code_gt(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
252
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
253 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
254 code_gt()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
255 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
256 if (i1>i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
257 printf("code_gt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
258 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
259 printf("code_gt 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
260 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
261
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
262 // code_ugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
263 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
264 code_ugt()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
265 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
266 if (ui1>ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
267 printf("code_ugt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
268 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
269 printf("code_ugt 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
270 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
271
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
272 // code_ge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
273 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
274 code_ge()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
275 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
276 if (i1>=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
277 printf("code_ge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
278 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
279 printf("code_ge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
280 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
281
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
282 // code_uge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
283 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
284 code_uge()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
285 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
286 if (ui1>=ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
287 printf("code_uge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
288 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
289 printf("code_uge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
290 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
291
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
292 // code_eq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
293 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
294 code_eq()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
295 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
296 if (ui1==ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
297 printf("code_eq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
298 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
299 printf("code_eq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
300 if (i1!=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
301 printf("code_neq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
302 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
303 printf("code_neq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
304 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
305
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
306 // code_bool(int e1)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
307
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
308 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
309 code_bool()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
310 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
311 printf("code_bool > gvar %d %d %d %d %d %d\n",
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
312 i1>i2,ui1>ui2,i1>=i2,ui1>=ui2,ui1==ui2,i1!=i2);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
313 printf("code_bool < gvar %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
314 i1<i2,ui1<ui2,i1<=i2,ui1<=ui2,ui1==ui2,i1!=i2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
315 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
316
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
317 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
318 code_cmp()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
319 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
320 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
321 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
322 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
323 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
324 unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
325
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
326 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
327 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
328 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
329 i1 && printf("code_bool local 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
330 s1 && printf("code_bool local 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
331 us1 && printf("code_bool local 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
332 c1 && printf("code_bool local 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
333 uc1 && printf("code_bool local 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
334
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
335 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
336 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
337 code_cmp_global()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
338 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
339 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
340 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
341 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
342 i1 && printf("code_bool global 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
343 s1 && printf("code_bool global 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
344 us1 && printf("code_bool global 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
345 c1 && printf("code_bool global 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
346 uc1 && printf("code_bool global 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
347 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
348
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
349 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
350 code_cmp_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
351 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
352 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
353 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
354 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
355 register short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
356 register unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
357
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
358 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
359 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
360 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
361 i1 && printf("code_bool register 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
362 s1 && printf("code_bool register 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
363 us1 && printf("code_bool register 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
364 c1 && printf("code_bool register 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
365 uc1 && printf("code_bool register 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
366
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
367 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
368
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
369
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
370 // code_string(int e1,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
371
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
372 void
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
373 code_string()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
374 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
375 printf("code_string test\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
376 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
377
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
378 // struct_push(int e4,int t,int arg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
379
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
380 struct aa
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
381 struct_push0(int i,struct aa a)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
382 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
383 a.a[55]++;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
384 if (i==0) {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
385 return struct_push0(1,a0);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
386 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
387 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
388 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
389
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
390 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
391 struct_push()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
392 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
393 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
394 a0 = struct_push0(0,a0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
395 printf("struct_push %d\n",a0.a[55]);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
396 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
397
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
398 // code_jmp(char *s)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
399 // code_indirect_jmp(int e2)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
400
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
401 // code_rindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
402 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
403 code_rindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
404 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
405 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
406 unsigned int ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
407 int *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
408 unsigned int *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
409
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
410 i1 = -555; i2= 555;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
411 ui1 = 632423423; ui2= 32394234;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
412 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
413 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
414 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
415 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
416 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
417 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
418
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
419 // code_crindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
420 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
421 code_crindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
422 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
423 char i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
424 unsigned char ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
425 char *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
426 unsigned char *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
427
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
428 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
429 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
430 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
431 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
432 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
433 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
434 printf("code_cindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
435 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
436
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
437 // code_srindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
438 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
439 code_srindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
440 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
441 short i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
442 unsigned short ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
443 short *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
444 unsigned short *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
445
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
446 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
447 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
448 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
449 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
450 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
451 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
452 printf("code_sindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
453 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
454
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
455 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
456 // code_drindirect(int e1, int offset, int d);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
457 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
458 code_drindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
459 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
460 float i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
461 double ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
462 float *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
463 double *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
464
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
465 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
466 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
467 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
468 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
469 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
470 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
471 printf("code_dindirect %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
472 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
473
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
474 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
475
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
476 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
477 // code_lrindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
478 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
479 code_lrindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
480 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
481 long long i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
482 unsigned long long ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
483 long long *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
484 unsigned long long *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
485
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
486 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
487 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
488 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
489 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
490 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
491 pui2 = &ui2;
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
492 printf("code_lrindirect %llx %llx %llx %llx\n",*pi1,*pi2,*pui1,*pui2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
493 printf("code_lrindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
494 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
495
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
496 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
497
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
498 // code_assign_gvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
499 // code_assign_lvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
500 // code_assign_register(int e2,int byte,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
501 // code_assign(int e2,int byte,int creg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
502
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
503 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
504 code_assign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
505 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
506 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
507 unsigned int ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
508 int *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
509 unsigned int *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
510
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
511 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
512 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
513 pi1 = &i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
514 pi2 = &i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
515 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
516 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
517
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
518 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
519 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
520 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
521 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
522
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
523 // code_register_assop(int e2,int op,int byte)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
524 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
525 code_register_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
526 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
527 register int i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
528 register unsigned int ui1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
529 int a = 3;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
530 i1 = -555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
531 ui1 = 632423423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
532
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
533 i1 += a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
534 printf("code_assop 1 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
535 i1 -= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
536 printf("code_assop 2 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
537 i1 /= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
538 printf("code_assop 3 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
539 i1 *= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
540 printf("code_assop 4 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
541 i1 |= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
542 printf("code_assop 5 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
543 i1 &= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
544 printf("code_assop 6 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
545 i1 ^= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
546 printf("code_assop 7 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
547 i1 <<= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
548 printf("code_assop 8 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
549 i1 >>= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
550 printf("code_assop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
551
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
552 ui1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
553 printf("code_assop 1 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
554 ui1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
555 printf("code_assop 2 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
556 ui1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
557 printf("code_assop 3 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
558 ui1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
559 printf("code_assop 4 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
560 ui1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
561 printf("code_assop 5 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
562 ui1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
563 printf("code_assop 6 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
564 ui1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
565 printf("code_assop 7 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
566 ui1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
567 printf("code_assop 8 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
568 ui1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
569 printf("code_assop 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
570 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
571
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
572 // code_assop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
573 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
574 code_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
575 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
576 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
577 unsigned int ui1,ui2;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
578 int a = 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
579 i1 = -555; i2= 555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
580 ui1 = 632423423; ui2= 32394234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
581
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
582 i1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
583 printf("code_assop 1 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
584 i1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
585 printf("code_assop 2 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
586 i1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
587 printf("code_assop 3 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
588 i1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
589 printf("code_assop 4 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
590 i1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
591 printf("code_assop 5 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
592 i1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
593 printf("code_assop 6 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
594 i1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
595 printf("code_assop 7 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
596 i1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
597 printf("code_assop 8 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
598 i1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
599 printf("code_assop 9 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
600
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
601 ui1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
602 printf("code_assop 1 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
603 ui1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
604 printf("code_assop 2 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
605 ui1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
606 printf("code_assop 3 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
607 ui1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
608 printf("code_assop 4 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
609 ui1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
610 printf("code_assop 5 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
611 ui1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
612 printf("code_assop 6 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
613 ui1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
614 printf("code_assop 7 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
615 ui1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
616 printf("code_assop 8 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
617 ui1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
618 printf("code_assop 9 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
619 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
620
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
621
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
622 // code_register_assop(int e2,int op,int byte)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
623 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
624 code_register_assop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
625 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
626 register int i1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
627 register unsigned int ui1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
628 i1 = -555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
629 ui1 = 632423423;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
630
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
631 i1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
632 printf("code_assop c 1 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
633 i1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
634 printf("code_assop c 2 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
635 i1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
636 printf("code_assop c 3 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
637 i1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
638 printf("code_assop c 4 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
639 i1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
640 printf("code_assop c 5 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
641 i1 &= 23244234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
642 printf("code_assop c 6 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
643 i1 ^= 55244234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
644 printf("code_assop c 7 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
645 i1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
646 printf("code_assop c 8 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
647 i1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
648 printf("code_assop c 9 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
649
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
650 ui1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
651 printf("code_assop c 1 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
652 ui1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
653 printf("code_assop c 2 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
654 ui1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
655 printf("code_assop c 3 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
656 ui1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
657 printf("code_assop c 4 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
658 ui1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
659 printf("code_assop c 5 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
660 ui1 &= 23234234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
661 printf("code_assop c 6 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
662 ui1 ^= 55234234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
663 printf("code_assop c 7 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
664 ui1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
665 printf("code_assop c 8 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
666 ui1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
667 printf("code_assop c 9 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
668 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
669
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
670 // code_assop(int op,int byte,int sign)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
671 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
672 code_assop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
673 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
674 int i1,i2;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
675 unsigned int ui1,ui2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
676 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
677 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
678
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
679 i1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
680 printf("code_assop c 1 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
681 i1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
682 printf("code_assop c 2 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
683 i1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
684 printf("code_assop c 3 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
685 i1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
686 printf("code_assop c 4 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
687 i1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
688 printf("code_assop c 5 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
689 i1 &= 23234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
690 printf("code_assop c 6 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
691 i1 ^= 55444234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
692 printf("code_assop c 7 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
693 i1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
694 printf("code_assop c 8 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
695 i1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
696 printf("code_assop c 9 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
697
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
698 ui1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
699 printf("code_assop c 1 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
700 ui1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
701 printf("code_assop c 2 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
702 ui1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
703 printf("code_assop c 3 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
704 ui1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
705 printf("code_assop c 4 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
706 ui1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
707 printf("code_assop c 5 %u\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
708 ui1 &= 23234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
709 printf("code_assop c 6 %u\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
710 ui1 ^= 54234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
711 printf("code_assop c 7 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
712 ui1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
713 printf("code_assop c 8 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
714 ui1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
715 printf("code_assop c 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
716 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
717
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
718
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
719
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
720 // tosop(int op,int oreg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
721 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
722 tosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
723 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
724 int i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
725 unsigned int u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
726 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
727 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
728
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
729 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
730 printf("tosop 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
731 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
732 printf("tosop 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
733 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
734 printf("tosop 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
735 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
736 printf("tosop 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
737 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
738 printf("tosop 5 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
739 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
740 printf("tosop 6 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
741 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
742 printf("tosop 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
743 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
744 printf("tosop 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
745 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
746 printf("tosop 9 %d\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
747 i = i1 % i2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
748 printf("tosop 10 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
749
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
750 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
751 printf("tosop 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
752 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
753 printf("tosop 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
754 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
755 printf("tosop 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
756 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
757 printf("tosop 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
758 u = u1 | u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
759 printf("tosop 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
760 u = u1 & u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
761 printf("tosop 6 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
762 u = u1 ^ u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
763 printf("tosop 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
764 u = u1 << u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
765 printf("tosop 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
766 u = u1 >> u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
767 printf("tosop 9 %u\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
768 u = u1 % u2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
769 printf("tosop 10 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
770 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
771
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
772 // oprtc(int op,int v)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
773 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
774 oprtc()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
775 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
776 int i1,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
777 unsigned int u1,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
778 i1 = -555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
779 u1 = 632423423;
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
780
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
781 i = i1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
782 printf("oprtc 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
783 i = i1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
784 printf("oprtc 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
785 i = i1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
786 printf("oprtc 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
787 i = i1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
788 printf("oprtc 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
789 i = i1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
790 printf("oprtc 5 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
791 i = i1 & 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
792 printf("oprtc 6 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
793 i = i1 ^ 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
794 printf("oprtc 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
795 i = i1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
796 printf("oprtc 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
797 i = i1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
798 printf("oprtc 9 %d\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
799 i = i1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
800 printf("oprtc 10 %d\n",i);
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
801
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
802 u = u1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
803 printf("oprtc 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
804 u = u1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
805 printf("oprtc 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
806 u = u1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
807 printf("oprtc 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
808 u = u1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
809 printf("oprtc 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
810 u = u1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
811 printf("oprtc 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
812 u = u1 & 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
813 printf("oprtc 6 %u\n",u);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
814 u = u1 ^ 234234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
815 printf("oprtc 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
816 u = u1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
817 printf("oprtc 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
818 u = u1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
819 printf("oprtc 9 %u\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
820 u = u1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
821 printf("oprtc 10 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
822 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
823
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
824
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
825 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
826 // code_cmp_dregister(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
827 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
828 code_cmp_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
829 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
830 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
831 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
832 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
833 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
834 f0 && printf("code_bool register 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
835 d0 && printf("code_bool register 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
836
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
837 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
838
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
839 // code_dregister(int e2,int freg,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
840 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
841 code_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
842 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
843 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
844 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
845 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
846 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
847 printf("code_lvar float %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
848 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
849
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
850 // code_dassign_gvar(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
851 // code_dassign_lvar(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
852 // code_dassign_dregister(int e2,int d,int freg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
853
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
854 // code_dassign(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
855 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
856 code_dassign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
857 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
858 int i1,i2;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
859 float f1,f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
860 double ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
861 float *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
862 double *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
863
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
864 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
865 f1 = -555; f2= 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
866 ui1 = 632423423; ui2= 32394234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
867 pi1 = &f1;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
868 pi2 = &f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
869 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
870 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
871
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
872 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
873 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
874 printf("code_dassign %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
875 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
876
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
877 // code_dconst(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
878 // code_dneg(int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
879 // code_dneg(int creg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
880 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
881 code_dneg()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
882 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
883 float i,j;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
884 double di,dj;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
885 i = 123123123;j = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
886 di = 123123123;dj = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
887 printf("code_dneg %g %g\n",-i,-j);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
888 printf("code_dneg %g %g\n",-di,-dj);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
889 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
890
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
891 // code_d2i(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
892 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
893 code_d2i()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
894 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
895 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
896 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
897 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
898 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
899 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
900 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
901 // code_i2d(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
902 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
903 code_i2d()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
904 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
905 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
906 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
907 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
908 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
909 printf("code_i2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
910 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
911 // code_d2u(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
912 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
913 code_d2u()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
914 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
915 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
916 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
917 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
918 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
919 printf("code_d2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
920 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
921 // code_u2d(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
922 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
923 code_u2d()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
924 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
925 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
926 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
927 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
928 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
929 printf("code_u2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
930 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
931 // code_f2i(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
932 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
933 code_f2i()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
934 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
935 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
936 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
937 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
938 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
939 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
940 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
941 // code_i2f(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
942 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
943 code_i2f()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
944 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
945 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
946 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
947 i = 24234342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
948 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
949 printf("code_i2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
950 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
951 // code_f2u(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
952 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
953 code_f2u()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
954 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
955 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
956 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
957 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
958 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
959 printf("code_f2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
960 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
961 // code_u2f(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
962 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
963 code_u2f()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
964 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
965 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
966 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
967 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
968 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
969 printf("code_u2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
970 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
971
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
972
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
973 // code_drgvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
974 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
975 code_dgvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
976 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
977 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
978 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
979 printf("code_gvar float %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
980 s_f0 = 0.0; s_f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
981 s_d0 = 10; s_d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
982 printf("code_gvar float %f %f %g %g\n",s_f0,s_f1,s_d0,s_d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
983 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
984
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
985 // code_drlvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
986 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
987 code_dlvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
988 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
989 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
990 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
991 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
992 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
993 printf("code_lvar float %f %f %g %g\n",f0,f1,d0,d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
994 printf("code_bool > lvar float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
995 f0>f1,f0>=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
996 printf("code_bool > lvar double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
997 d0>d1,d0>=d1,d0==d1,d0!=d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
998 printf("code_bool < lvar float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
999 f0<f1,f0<=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1000 printf("code_bool < lvar double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1001 d0<d1,d0<=d1,d0==d1,d0!=d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1002 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1003
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1004
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1005 // code_cmp_drgvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1006 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1007 code_cmp_d_global()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1008 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1009 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1010 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1011 f0 && printf("code_bool global 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1012 d0 && printf("code_bool global 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1013 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1014
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1015
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1016 // code_cmp_drlvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1017 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1018 code_cmp_d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1019 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1020 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1021 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1022 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1023 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1024 f0 && printf("code_bool local 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1025 d0 && printf("code_bool local 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1026 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1027
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1028 // dtosop(int op,int e1)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1029 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1030 dtosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1031 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1032 double i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1033 float u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1034 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1035 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1036
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1037 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1038 printf("dtosop 1 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1039 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1040 printf("dtosop 2 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1041 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1042 printf("dtosop 3 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1043 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1044 printf("dtosop 4 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1045 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1046 printf("dtosop 1 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1047 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1048 printf("dtosop 2 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1049 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1050 printf("dtosop 3 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1051 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1052 printf("dtosop 4 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1053 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1054
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1055
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1056 // code_dassop(int op,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1057 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1058 code_dassop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1059 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1060 double i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1061 float ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1062 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1063 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1064
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1065 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1066 printf("code_dassop 1 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1067 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1068 printf("code_dassop 2 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1069 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1070 printf("code_dassop 3 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1071 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1072 printf("code_dassop 4 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1073
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1074 ui1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1075 printf("code_dassop 1 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1076 ui1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1077 printf("code_dassop 2 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1078 ui1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1079 printf("code_dassop 3 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1080 ui1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1081 printf("code_dassop 4 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1082 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1083
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1084
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1085 // code_dpreinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1086 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1087 code_dpreinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1088 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1089 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1090 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1091 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1092 printf("code_dpreinc d %g %g\n",++i,--j);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1093 ui = 123123123;uj = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1094 printf("code_dpreinc f %g %g\n",++ui,--uj);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1095 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1096
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1097 // code_dpostinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1098 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1099 code_dpostinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1100 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1101 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1102 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1103 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1104 printf("code_dpostinc d %g %g\n",i--,j--);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1105 ui = 123123123;uj = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1106 printf("code_dpostinc f %g %g\n",ui++,uj--);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1107 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1108
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1109 // drexpr(int e1, int e2,int l1, int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1110
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1111 // case DOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1112 // case FOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1113 // case DOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1114 // case FOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1115 // case DOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1116 // case FOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1117 // case DOP+NEQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1118 // case FOP+NEQ:
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1119 // code_gt(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1120
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1121 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1122 code_dgt()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1123 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1124 if (d0>d1)
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
1125 printf("code_dgt 1\n");
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1126 else
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
1127 printf("code_dgt 0\n");
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1128 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1129
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1130 // code_ugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1131 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1132 code_fgt()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1133 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1134 if (f0>f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1135 printf("code_fgt 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1136 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1137 printf("code_fgt 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1138 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1139
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1140 // code_ge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1141 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1142 code_dge()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1143 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1144 if (d0>=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1145 printf("code_dge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1146 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1147 printf("code_dge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1148 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1149
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1150 // code_uge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1151 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1152 code_fge()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1153 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1154 if (f0>=f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1155 printf("code_fge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1156 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1157 printf("code_fge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1158 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1159
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1160 // code_eq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1161 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1162 code_deq()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1163 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1164 if (f0==f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1165 printf("code_feq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1166 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1167 printf("code_feq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1168 if (d0!=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1169 printf("code_deq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1170 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1171 printf("code_deq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1172 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1173
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1174 // code_dbool(int e1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1175
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1176 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1177 code_dbool()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1178 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1179 printf("code_bool > float %d %d %d %d\n",
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1180 f0>f1,f0>=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1181 printf("code_bool > double %d %d %d %d\n",
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1182 d0>d1,d0>=d1,d0==d1,d0!=d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1183 printf("code_bool < float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1184 f0<f1,f0<=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1185 printf("code_bool < double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1186 d0<d1,d0<=d1,d0==d1,d0!=d1);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1187 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1188 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1189
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1190
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1191 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1192 // lrexpr(int e1, int e2,int l1, int op)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1193 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1194 code_lbool()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1195 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1196 printf("code_bool > long long %d %d %d %d %d %d\n",
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1197 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1198 printf("code_bool < long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1199 l1<l0,ul1<ul0,l1<=l0,ul1<=ul0,ul1==ul0,l1!=l0);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1200 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1201
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1202 // int lpop_register()
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1203 // code_lregister(int e2,int reg)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1204 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1205 code_lregister()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1206 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1207 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1208 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1209 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1210 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1211 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1212 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1213 printf("code_lvar long long %llu %llu %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1214 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1215
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1216 // code_cmp_lregister(int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1217 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1218 code_cmp_lregister()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1219 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1220 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1221 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1222 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1223 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1224 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1225 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1226 l0 && printf("code_bool register 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1227 ul0 && printf("code_bool register 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1228 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1229
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1230 // code_cmp_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1231 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1232 code_cmp_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1233 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1234 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1235 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1236 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1237 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1238 l0 && printf("code_bool global 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1239 ul0 && printf("code_bool global 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1240 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1241 // code_cmp_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1242 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1243 code_cmp_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1244 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1245 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1246 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1247 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1248 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1249 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1250 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1251 l0 && printf("code_bool local 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1252 ul0 && printf("code_bool local 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1253 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1254
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1255 // code_lassign(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1256 // code_lassign_gvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1257 // code_lassign_lvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1258 // code_lassign_lregister(int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1259 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1260 code_lassign()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1261 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1262 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1263 unsigned long long ui1,ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1264 long long *pi1,*pi2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1265 unsigned long long *pui1,*pui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1266
d83291712bf7 test routine
kono
parents: 199
diff changeset
1267 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1268 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1269 pi1 = &i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1270 pi2 = &i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1271 pui1 = &ui1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1272 pui2 = &ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1273
d83291712bf7 test routine
kono
parents: 199
diff changeset
1274 *(pi2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1275 *(pui2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1276 printf("code_rindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1277 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1278
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1279 // code_lconst(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1280 // code_lneg(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1281 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1282 code_lneg()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1283 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1284 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1285 i = 123123123;j = -32423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1286 printf("code_neg %lld %lld\n",-i,-j);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1287 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1288
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1289 // code_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1290 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1291 code_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1292 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1293 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1294 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1295 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1296 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1297 printf("code_lrgvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1298 s_l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1299 s_l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1300 s_ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1301 s_ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1302 printf("code_lrgvar long long %lld %lld %llu %llu\n",s_l0,s_l1,s_ul0,s_ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1303 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1304
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1305 // code_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1306 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1307 code_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1308 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1309 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1310 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1311 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1312 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1313 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1314 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1315 printf("code_lvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1316 printf("code_bool lvar > long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1317 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1318 printf("code_bool lvar < long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1319 l1<l0,ul1<ul0,l1<=l0,ul1<=ul0,ul1==ul0,l1!=l0);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1320 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1321
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1322 // ltosop(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1323 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1324 ltosop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1325 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1326 long long i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1327 unsigned long long u1,u2,u;
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1328 int ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1329 unsigned int uu2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1330 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1331 u1 = 632423423; u2= 32394234;
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1332 ii2 = -33;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1333 uu2 = 33;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1334 u = 0;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1335
d83291712bf7 test routine
kono
parents: 199
diff changeset
1336 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1337 printf("ltosop 1 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1338 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1339 printf("ltosop 2 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1340 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1341 printf("ltosop 3 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1342 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1343 printf("ltosop 4 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1344 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1345 printf("ltosop 5 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1346 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1347 printf("ltosop 6 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1348 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1349 printf("ltosop 7 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1350 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1351 printf("ltosop 8 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1352 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1353 printf("ltosop 9 %lld\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1354 i = i1 % i2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1355 printf("ltosop 10 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1356
d83291712bf7 test routine
kono
parents: 199
diff changeset
1357 u = u1 + u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1358 printf("ltosop u 1 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1359 u = u1 - u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1360 printf("ltosop u 2 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1361 u = u1 / u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1362 printf("ltosop u 3 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1363 u = u1 * u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1364 printf("ltosop u 4 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1365 u = u1 | u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1366 printf("ltosop u 5 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1367 u = u1 & u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1368 printf("ltosop u 6 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1369 u = u1 ^ u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1370 printf("ltosop u 7 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1371 u = u1 << u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1372 printf("ltosop u 8 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1373 u = u1 >> u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1374 printf("ltosop u 9 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1375 u = u1 % u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1376 printf("ltosop u 10 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1377
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1378 i = i1 + ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1379 printf("litosop 1 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1380 i = i1 - ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1381 printf("litosop 2 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1382 i = i1 / ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1383 printf("litosop 3 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1384 i = i1 * ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1385 printf("litosop 4 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1386 i = i1 | ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1387 printf("litosop 5 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1388 i = i1 & ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1389 printf("litosop 6 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1390 i = i1 ^ ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1391 printf("litosop 7 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1392 i = i1 << ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1393 printf("litosop 8 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1394 i = i1 >> ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1395 printf("litosop 9 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1396 i = i1 % ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1397 printf("litosop 10 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1398
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1399 u = u1 + uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1400 printf("litosop u 1 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1401 u = u1 - uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1402 printf("litosop u 2 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1403 u = u1 / uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1404 printf("litosop u 3 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1405 u = u1 * uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1406 printf("litosop u 4 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1407 u = u1 | uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1408 printf("litosop u 5 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1409 u = u1 & uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1410 printf("litosop u 6 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1411 u = u1 ^ uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1412 printf("litosop u 7 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1413 u = u1 << uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1414 printf("litosop u 8 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1415 u = u1 >> uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1416 printf("litosop u 9 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1417 u = u1 % uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1418 printf("litosop u 10 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1419 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1420
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1421 // loprtc(int op,int v)
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1422 void
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1423 loprtc()
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1424 {
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1425 long long i1,i;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1426 unsigned long long u1,u;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1427 i1 = -555;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1428 u1 = 632423423;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1429
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1430 i = i1 + 3;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1431 printf("loprtc 1 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1432 i = i1 - 3;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1433 printf("loprtc 2 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1434 i = i1 / 32323423423LL;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1435 printf("loprtc 3 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1436 i = i1 * 323423423423LL;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1437 printf("loprtc 4 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1438 i = i1 | 234234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1439 printf("loprtc 5 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1440 i = i1 & 23234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1441 printf("loprtc 6 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1442 i = i1 ^ 23234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1443 printf("loprtc 7 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1444 i = i1 << 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1445 printf("loprtc 8 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1446 i = i1 >> 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1447 printf("loprtc 9 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1448 i = i1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1449 printf("loprtc 10 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1450
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1451 u = u1 + 3;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1452 printf("loprtc 1 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1453 u = u1 - 3;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1454 printf("loprtc 2 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1455 u = u1 / 32342342344234LL;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1456 printf("loprtc 3 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1457 u = u1 * 243234234232324LL;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1458 printf("loprtc 4 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1459 u = u1 | 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1460 printf("loprtc 5 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1461 u = u1 & 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1462 printf("loprtc 6 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1463 u = u1 ^ 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1464 printf("loprtc 7 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1465 u = u1 << 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1466 printf("loprtc 8 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1467 u = u1 >> 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1468 printf("loprtc 9 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1469 u = u1 % 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1470 printf("loprtc 10 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1471 }
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1472
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1473
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1474 // code_i2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1475 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1476 code_i2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1477 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1478 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1479 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1480 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1481 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1482 printf("code_i2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1483 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1484 // code_i2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1485 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1486 code_i2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1487 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1488 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1489 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1490 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1491 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1492 printf("code_i2ull %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1493 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1494 // code_u2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1495 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1496 code_u2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1497 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1498 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1499 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1500 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1501 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1502 printf("code_u2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1503 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1504 // code_u2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1505 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1506 code_u2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1507 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1508 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1509 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1510 i = 23342342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1511 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1512 printf("code_u2ull %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1513 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1514 // code_ll2i(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1515 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1516 code_ll2i()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1517 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1518 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1519 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1520 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1521 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1522 printf("code_ll2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1523 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1524 // code_ll2u(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1525 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1526 code_ll2u()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1527 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1528 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1529 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1530 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1531 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1532 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1533 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1534 // code_ull2i(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1535 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1536 code_ull2i()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1537 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1538 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1539 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1540 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1541 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1542 printf("code_ull2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1543 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1544 // code_ull2u(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1545 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1546 code_ull2u()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1547 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1548 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1549 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1550 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1551 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1552 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1553 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1554 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1555 // code_d2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1556 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1557 code_d2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1558 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1559 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1560 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1561 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1562 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1563 printf("code_d2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1564 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1565 // code_d2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1566 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1567 code_d2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1568 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1569 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1570 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1571 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1572 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1573 printf("code_d2ll %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1574 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1575 // code_f2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1576 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1577 code_f2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1578 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1579 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1580 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1581 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1582 d = i;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1583 printf("code_f2ll %lld\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1584 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1585 // code_f2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1586 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1587 code_f2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1588 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1589 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1590 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1591 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1592 d = i;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1593 printf("code_f2ull %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1594 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1595 // code_ll2d(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1596 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1597 code_ll2d()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1598 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1599 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1600 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1601 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1602 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1603 printf("code_ll2d %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1604 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1605 // code_ll2f(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1606 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1607 code_ll2f()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1608 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1609 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1610 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1611 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1612 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1613 printf("code_ll2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1614 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1615 // code_ull2d(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1616 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1617 code_ull2d()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1618 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1619 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1620 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1621 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1622 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1623 printf("code_ull2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1624 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1625 // code_ull2f(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1626 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1627 code_ull2f()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1628 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1629 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1630 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1631 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1632 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1633 printf("code_ull2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1634 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1635 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1636
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1637 // code_lpreinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1638 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1639 code_lpreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1640 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1641 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1642 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1643 printf("code_preinc l %lld %lld\n",++i,--j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1644 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1645
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1646 // code_lpostinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1647 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1648 code_lpostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1649 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1650 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1651 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1652 printf("code_postinc l %lld %lld\n",i++,j--);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1653 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1654
d83291712bf7 test routine
kono
parents: 199
diff changeset
1655 // code_lpreinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1656 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1657 code_lupreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1658 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1659 unsigned long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1660 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1661 printf("code_preinc l %llu %llu\n",++i,--j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1662 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1663
d83291712bf7 test routine
kono
parents: 199
diff changeset
1664 // code_lpostinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1665 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1666 code_lupostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1667 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1668 unsigned long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1669 i = 123123123;j = 0;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1670 printf("code_postinc lu %llu %llu\n",i++,j--);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1671 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1672
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1673 // code_lassop(int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1674
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1675 // code_register_assop(int e2,int op,int byte)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1676 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1677 code_register_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1678 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1679 register long long i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1680 register unsigned long long ui1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1681 long long a = 3;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1682 i1 = -555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1683 ui1 = 632423423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1684
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1685 i1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1686 printf("code_register_lassop 1 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1687 i1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1688 printf("code_register_lassop 2 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1689 i1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1690 printf("code_register_lassop 3 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1691 i1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1692 printf("code_register_lassop 4 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1693 i1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1694 printf("code_register_lassop 5 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1695 i1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1696 printf("code_register_lassop 6 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1697 i1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1698 printf("code_register_lassop 7 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1699 i1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1700 printf("code_register_lassop 8 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1701 i1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1702 printf("code_register_lassop 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1703
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1704 ui1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1705 printf("code_register_lassop 1 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1706 ui1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1707 printf("code_register_lassop 2 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1708 ui1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1709 printf("code_register_lassop 3 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1710 ui1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1711 printf("code_register_lassop 4 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1712 ui1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1713 printf("code_register_lassop 5 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1714 ui1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1715 printf("code_register_lassop 6 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1716 ui1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1717 printf("code_register_lassop 7 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1718 ui1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1719 printf("code_register_lassop 8 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1720 ui1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1721 printf("code_register_lassop 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1722 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1723
d83291712bf7 test routine
kono
parents: 199
diff changeset
1724 // code_lassop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1725 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1726 code_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1727 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1728 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1729 unsigned long long ui1,ui2;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1730 long long a = 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1731 i1 = -555; i2= 555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1732 ui1 = 632423423; ui2= 32394234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1733
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1734 i1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1735 printf("code_lassop 1 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1736 i1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1737 printf("code_lassop 2 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1738 i1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1739 printf("code_lassop 3 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1740 i1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1741 printf("code_lassop 4 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1742 i1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1743 printf("code_lassop 5 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1744 i1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1745 printf("code_lassop 6 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1746 i1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1747 printf("code_lassop 7 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1748 i1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1749 printf("code_lassop 8 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1750 i1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1751 printf("code_lassop 9 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1752
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1753 ui1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1754 printf("code_lassop 1 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1755 ui1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1756 printf("code_lassop 2 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1757 ui1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1758 printf("code_lassop 3 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1759 ui1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1760 printf("code_lassop 4 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1761 ui1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1762 printf("code_lassop 5 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1763 ui1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1764 printf("code_lassop 6 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1765 ui1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1766 printf("code_lassop 7 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1767 ui1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1768 printf("code_lassop 8 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1769 ui1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1770 printf("code_lassop 9 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1771 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1772
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1773 // code_register_assop(int e2,int op,int byte)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1774 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1775 code_register_lassop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1776 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1777 register long long i1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1778 register unsigned long long ui1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1779 i1 = -555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1780 ui1 = 632423423;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1781
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1782 i1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1783 printf("code_register_lassop c 1 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1784 i1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1785 printf("code_register_lassop c 2 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1786 i1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1787 printf("code_register_lassop c 3 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1788 i1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1789 printf("code_register_lassop c 4 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1790 i1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1791 printf("code_register_lassop c 5 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1792 i1 &= 2324234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1793 printf("code_register_lassop c 6 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1794 i1 ^= 5523234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1795 printf("code_register_lassop c 7 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1796 i1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1797 printf("code_register_lassop c 8 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1798 i1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1799 printf("code_register_lassop c 9 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1800
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1801 ui1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1802 printf("code_register_lassop c 1 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1803 ui1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1804 printf("code_register_lassop c 2 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1805 ui1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1806 printf("code_register_lassop c 3 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1807 ui1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1808 printf("code_register_lassop c 4 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1809 ui1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1810 printf("code_register_lassop c 5 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1811 ui1 &= 2324234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1812 printf("code_register_lassop c 6 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1813 ui1 ^= 5523234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1814 printf("code_register_lassop c 7 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1815 ui1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1816 printf("code_register_lassop c 8 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1817 ui1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1818 printf("code_register_lassop c 9 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1819 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1820
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1821 // code_lassop(int op,int byte,int sign)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1822 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1823 code_lassop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1824 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1825 long long i1,i2;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1826 unsigned long long ui1,ui2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1827 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1828 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1829
d83291712bf7 test routine
kono
parents: 199
diff changeset
1830 i1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1831 printf("code_lassop c 1 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1832 i1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1833 printf("code_lassop c 2 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1834 i1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1835 printf("code_lassop c 3 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1836 i1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1837 printf("code_lassop c 4 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1838 i1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1839 printf("code_lassop c 5 %lld\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1840 i1 &= 2324234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1841 printf("code_lassop c 6 %lld\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1842 i1 ^= 5523234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1843 printf("code_lassop c 7 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1844 i1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1845 printf("code_lassop c 8 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1846 i1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1847 printf("code_lassop c 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1848
d83291712bf7 test routine
kono
parents: 199
diff changeset
1849 ui1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1850 printf("code_lassop c 1 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1851 ui1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1852 printf("code_lassop c 2 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1853 ui1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1854 printf("code_lassop c 3 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1855 ui1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1856 printf("code_lassop c 4 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1857 ui1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1858 printf("code_lassop c 5 %llu\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1859 ui1 &= 2324234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1860 printf("code_lassop c 6 %llu\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1861 ui1 ^= 5523234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1862 printf("code_lassop c 7 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1863 ui1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1864 printf("code_lassop c 8 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1865 ui1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1866 printf("code_lassop c 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1867 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1868
d83291712bf7 test routine
kono
parents: 199
diff changeset
1869 // code_lgt(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1870
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1871 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1872 code_lgt()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1873 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1874 if (l0>l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1875 printf("code_lgt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1876 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1877 printf("code_lgt 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1878 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1879
d83291712bf7 test routine
kono
parents: 199
diff changeset
1880 // code_lugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1881 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1882 code_lugt()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1883 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1884 if (ul0>ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1885 printf("code_lugt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1886 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1887 printf("code_lugt 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1888 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1889
d83291712bf7 test routine
kono
parents: 199
diff changeset
1890 // code_lge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1891 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1892 code_lge()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1893 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1894 if (l0>=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1895 printf("code_lge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1896 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1897 printf("code_lge 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1898 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1899
d83291712bf7 test routine
kono
parents: 199
diff changeset
1900 // code_luge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1901 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1902 code_luge()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1903 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1904 if (ul0>=ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1905 printf("code_luge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1906 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1907 printf("code_luge 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1908 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1909
d83291712bf7 test routine
kono
parents: 199
diff changeset
1910 // code_leq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1911 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1912 code_leq()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1913 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1914 if (ul0==ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1915 printf("code_leq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1916 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1917 printf("code_leq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1918 if (l0!=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1919 printf("code_lneq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1920 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1921 printf("code_lneq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1922 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1923
d83291712bf7 test routine
kono
parents: 199
diff changeset
1924
d83291712bf7 test routine
kono
parents: 199
diff changeset
1925
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1926 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1927 /* end */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1928