annotate test/code-gen.c @ 203:28baf6cd9ad1

*** empty log message ***
author kono
date Tue, 13 Apr 2004 10:28:21 +0900
parents 3ae7e188416f
children 4f459364c334
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
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
5 #define LONGLONG_CODE 1
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;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
71 printf("code_gvar %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;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
73 printf("code_gvar %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;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
77 printf("code_gvar %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;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
79 printf("code_gvar %d %d %u %u\n",s_c1,s_c2,s_uc1,s_uc2);
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;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
95 printf("code_lvar %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;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
97 printf("code_gvar %d %d %u %u\n",c1,c2,uc1,uc2);
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;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
145 printf("code_preinc %d %d\n",++i,--j);
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;
d83291712bf7 test routine
kono
parents: 199
diff changeset
154 printf("code_upreinc %d %d\n",i++,j--);
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;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
163 printf("code_preinc %d %d\n",i++,j--);
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;
d83291712bf7 test routine
kono
parents: 199
diff changeset
172 printf("code_upreinc %d %d\n",++i,--j);
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
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
230 code_return_struct0()
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 {
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
239 int i = code_return_struct0().a[55];
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
240 printf("code_return_struct %d\n", i);
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
241 }
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
242
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
243 void
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
244 code_return_struct()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
245 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
246 printf("code_return_struct %d\n", code_return_struct0().a[55]);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
247 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
248
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
249 // code_gt(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
250
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
251 void code_gt()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
252 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
253 if (i1>i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
254 printf("code_gt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
255 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
256 printf("code_gt 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
257 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
258
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
259 // code_ugt(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
260 void code_ugt()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
261 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
262 if (ui1>ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
263 printf("code_ugt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
264 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
265 printf("code_ugt 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
266 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
267
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
268 // code_ge(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
269 void code_ge()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
270 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
271 if (i1>=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
272 printf("code_ge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
273 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
274 printf("code_ge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
275 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
276
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
277 // code_uge(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
278 void code_uge()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
279 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
280 if (ui1>=ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
281 printf("code_uge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
282 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
283 printf("code_uge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
284 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
285
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
286 // code_eq(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
287 void code_eq()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
288 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
289 if (ui1==ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
290 printf("code_eq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
291 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
292 printf("code_eq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
293 if (i1!=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
294 printf("code_neq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
295 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
296 printf("code_neq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
297 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
298
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
299 // code_bool(int e1)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
300
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
301 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
302 code_bool()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
303 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
304 printf("code_bool %d %d %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
305 i1>i2,ui1>ui2,i1>=i2,ui1>=ui2,ui1==ui2,i1!=i2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
306 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
307 printf("code_bool float %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
308 f0>f1,f0>=f1,f0==f1,f0!=f1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
309 printf("code_bool double %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
310 d0>d1,d0>=d1,d0==d1,d0!=d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
311 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
312 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
313 printf("code_bool long long %d %d %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
314 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
315 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
316 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
317
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
318 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
319 code_cmp()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
320 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
321 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
322 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
323 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
324 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
325 unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
326
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
327 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
328 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
329 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
330 i1 && printf("code_bool local 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
331 s1 && printf("code_bool local 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
332 us1 && printf("code_bool local 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
333 c1 && printf("code_bool local 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
334 uc1 && printf("code_bool local 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
335
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
336 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
337 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
338 code_cmp_global()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
339 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
340 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
341 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
342 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
343 i1 && printf("code_bool global 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
344 s1 && printf("code_bool global 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
345 us1 && printf("code_bool global 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
346 c1 && printf("code_bool global 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
347 uc1 && printf("code_bool global 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
348 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
349
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
350 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
351 code_cmp_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
352 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
353 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
354 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
355 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
356 register short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
357 register unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
358
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
359 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
360 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
361 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
362 i1 && printf("code_bool register 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
363 s1 && printf("code_bool register 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
364 us1 && printf("code_bool register 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
365 c1 && printf("code_bool register 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
366 uc1 && printf("code_bool register 5\n");
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
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
370
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
371 // code_string(int e1,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
372
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
373 void
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
374 code_string()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
375 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
376 printf("code_string test\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
377 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
378
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
379 // struct_push(int e4,int t,int arg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
380
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
381 struct aa
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
382 struct_push0(int i,struct aa a)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
383 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
384 a.a[55]++;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
385 if (i==0) {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
386 return struct_push0(1,a0);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
387 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
388 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
389 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
390
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
391 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
392 struct_push()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
393 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
394 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
395 a0 = struct_push0(0,a0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
396 printf("struct_push %d\n",a0.a[55]);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
397 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
398
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
399 // code_jmp(char *s)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
400 // code_indirect_jmp(int e2)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
401
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
402 // code_rindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
403 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
404 code_rindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
405 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
406 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
407 unsigned int ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
408 int *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
409 unsigned int *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
410
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
411 i1 = -555; i2= 555;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
412 ui1 = 632423423; ui2= 32394234;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
413 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
414 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
415 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
416 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
417 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
418 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
419
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
420 // code_crindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
421 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
422 code_crindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
423 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
424 char i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
425 unsigned char ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
426 char *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
427 unsigned char *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
428
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
429 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
430 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
431 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
432 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
433 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
434 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
435 printf("code_cindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
436 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
437
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
438 // code_srindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
439 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
440 code_srindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
441 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
442 short i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
443 unsigned short ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
444 short *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
445 unsigned short *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
446
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
447 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
448 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
449 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
450 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
451 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
452 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
453 printf("code_sindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
454 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
455
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
456 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
457 // code_drindirect(int e1, int offset, int d);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
458 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
459 code_drindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
460 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
461 float i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
462 double ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
463 float *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
464 double *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
465
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
466 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
467 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
468 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
469 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
470 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
471 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
472 printf("code_dindirect %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
473 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
474
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
475 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
476
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
477 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
478 // code_lrindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
479 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
480 code_lrindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
481 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
482 long long i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
483 unsigned long long ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
484 long long *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
485 unsigned long long *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
486
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
487 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
488 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
489 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
490 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
491 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
492 pui2 = &ui2;
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;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
529 i1 = -555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
530 ui1 = 632423423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
531
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
532 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
533 printf("code_assop 1 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
534 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
535 printf("code_assop 2 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
536 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
537 printf("code_assop 3 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
538 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
539 printf("code_assop 4 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
540 i1 |= 234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
541 printf("code_assop 5 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
542 i1 &= 23244234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
543 printf("code_assop 6 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
544 i1 ^= 55244234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
545 printf("code_assop 7 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
546 i1 <<= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
547 printf("code_assop 8 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
548 i1 >>= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
549 printf("code_assop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
550
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
551 ui1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
552 printf("code_assop 1 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
553 ui1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
554 printf("code_assop 2 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
555 ui1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
556 printf("code_assop 3 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
557 ui1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
558 printf("code_assop 4 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
559 ui1 |= 234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
560 printf("code_assop 5 %u\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
561 ui1 &= 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
562 printf("code_assop 6 %u\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
563 ui1 ^= 55234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
564 printf("code_assop 7 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
565 ui1 <<= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
566 printf("code_assop 8 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
567 ui1 >>= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
568 printf("code_assop 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
569 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
570
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
571 // code_assop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
572 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
573 code_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
574 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
575 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
576 unsigned int ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
577 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
578 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
579
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
580 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
581 printf("code_assop 1 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
582 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
583 printf("code_assop 2 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
584 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
585 printf("code_assop 3 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
586 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
587 printf("code_assop 4 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
588 i1 |= 234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
589 printf("code_assop 5 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
590 i1 &= 23234234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
591 printf("code_assop 6 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
592 i1 ^= 55444234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
593 printf("code_assop 7 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
594 i1 <<= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
595 printf("code_assop 8 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
596 i1 >>= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
597 printf("code_assop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
598
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
599 ui1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
600 printf("code_assop 1 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
601 ui1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
602 printf("code_assop 2 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
603 ui1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
604 printf("code_assop 3 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
605 ui1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
606 printf("code_assop 4 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
607 ui1 |= 234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
608 printf("code_assop 5 %u\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
609 ui1 &= 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
610 printf("code_assop 6 %u\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
611 ui1 ^= 54234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
612 printf("code_assop 7 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
613 ui1 <<= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
614 printf("code_assop 8 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
615 ui1 >>= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
616 printf("code_assop 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
617 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
618
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
619
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
620
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
621 // tosop(int op,int oreg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
622 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
623 tosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
624 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
625 int i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
626 unsigned int u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
627 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
628 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
629
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
630 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
631 printf("tosop 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
632 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
633 printf("tosop 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
634 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
635 printf("tosop 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
636 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
637 printf("tosop 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
638 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
639 printf("tosop 5 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
640 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
641 printf("tosop 6 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
642 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
643 printf("tosop 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
644 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
645 printf("tosop 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
646 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
647 printf("tosop 9 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
648
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
649 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
650 printf("tosop 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
651 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
652 printf("tosop 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
653 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
654 printf("tosop 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
655 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
656 printf("tosop 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
657 u = u1 | u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
658 printf("tosop 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
659 u = u1 & u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
660 printf("tosop 6 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
661 u = u1 ^ u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
662 printf("tosop 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
663 u = u1 << u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
664 printf("tosop 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
665 u = u1 >> u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
666 printf("tosop 9 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
667 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
668
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
669 // oprtc(int op,int v)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
670 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
671 oprtc()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
672 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
673 int i1,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
674 unsigned int u1,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
675 i1 = -555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
676 u1 = 632423423;
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
677
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
678 i = i1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
679 printf("oprtc 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
680 i = i1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
681 printf("oprtc 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
682 i = i1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
683 printf("oprtc 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
684 i = i1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
685 printf("oprtc 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
686 i = i1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
687 printf("oprtc 5 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
688 i = i1 & 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
689 printf("oprtc 6 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
690 i = i1 ^ 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
691 printf("oprtc 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
692 i = i1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
693 printf("oprtc 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
694 i = i1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
695 printf("oprtc 9 %d\n",i);
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
696
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
697 u = u1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
698 printf("oprtc 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
699 u = u1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
700 printf("oprtc 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
701 u = u1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
702 printf("oprtc 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
703 u = u1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
704 printf("oprtc 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
705 u = u1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
706 printf("oprtc 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
707 u = u1 & 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
708 printf("oprtc 6 %u\n",u);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
709 u = u1 ^ 234234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
710 printf("oprtc 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
711 u = u1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
712 printf("oprtc 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
713 u = u1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
714 printf("oprtc 9 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
715 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
716
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
717
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
718 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
719 // code_cmp_dregister(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
720 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
721 code_cmp_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
722 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
723 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
724 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
725 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
726 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
727 f0 && printf("code_bool register 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
728 d0 && printf("code_bool register 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
729
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
730 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
731
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
732 // code_dregister(int e2,int freg,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
733 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
734 code_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
735 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
736 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
737 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
738 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
739 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
740 printf("code_lvar float %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
741 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
742
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
743 // code_dassign_gvar(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
744 // code_dassign_lvar(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
745 // code_dassign_dregister(int e2,int d,int freg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
746
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
747 // code_dassign(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
748 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
749 code_dassign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
750 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
751 int i1,i2;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
752 float f1,f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
753 double ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
754 float *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
755 double *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
756
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
757 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
758 f1 = -555; f2= 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
759 ui1 = 632423423; ui2= 32394234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
760 pi1 = &f1;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
761 pi2 = &f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
762 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
763 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
764
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
765 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
766 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
767 printf("code_dassign %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
768 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
769
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
770 // code_dconst(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
771 // code_dneg(int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
772 // code_dneg(int creg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
773 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
774 code_dneg()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
775 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
776 float i,j;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
777 double di,dj;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
778 i = 123123123;j = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
779 di = 123123123;dj = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
780 printf("code_dneg %g %g\n",-i,-j);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
781 printf("code_dneg %g %g\n",-di,-dj);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
782 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
783
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
784 // code_d2i(int freg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
785 void code_d2i()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
786 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
787 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
788 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
789 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
790 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
791 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
792 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
793 // code_i2d(int creg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
794 void code_i2d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
795 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
796 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
797 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
798 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
799 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
800 printf("code_i2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
801 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
802 // code_d2u(int freg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
803 void code_d2u()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
804 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
805 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
806 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
807 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
808 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
809 printf("code_d2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
810 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
811 // code_u2d(int creg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
812 void code_u2d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
813 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
814 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
815 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
816 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
817 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
818 printf("code_u2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
819 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
820 // code_f2i(int freg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
821 void code_f2i()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
822 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
823 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
824 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
825 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
826 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
827 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
828 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
829 // code_i2f(int creg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
830 void code_i2f()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
831 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
832 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
833 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
834 i = 24234342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
835 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
836 printf("code_i2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
837 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
838 // code_f2u(int freg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
839 void code_f2u()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
840 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
841 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
842 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
843 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
844 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
845 printf("code_f2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
846 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
847 // code_u2f(int creg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
848 void code_u2f()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
849 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
850 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
851 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
852 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
853 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
854 printf("code_u2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
855 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
856
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
857
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
858 // code_drgvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
859 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
860 code_dgvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
861 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
862 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
863 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
864 printf("code_gvar float %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
865 s_f0 = 0.0; s_f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
866 s_d0 = 10; s_d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
867 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
868 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
869
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
870 // code_drlvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
871 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
872 code_dlvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
873 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
874 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
875 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
876 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
877 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
878 printf("code_lvar float %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
879 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
880
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
881
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
882 // code_cmp_drgvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
883 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
884 code_cmp_d_global()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
885 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
886 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
887 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
888 f0 && printf("code_bool global 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
889 d0 && printf("code_bool global 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
890 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
891
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
892
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
893 // code_cmp_drlvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
894 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
895 code_cmp_d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
896 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
897 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
898 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
899 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
900 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
901 f0 && printf("code_bool local 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
902 d0 && printf("code_bool local 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
903 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
904
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
905 // dtosop(int op,int e1)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
906 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
907 dtosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
908 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
909 double i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
910 float u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
911 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
912 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
913
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
914 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
915 printf("dtosop 1 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
916 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
917 printf("dtosop 2 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
918 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
919 printf("dtosop 3 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
920 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
921 printf("dtosop 4 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
922 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
923 printf("dtosop 1 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
924 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
925 printf("dtosop 2 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
926 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
927 printf("dtosop 3 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
928 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
929 printf("dtosop 4 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
930 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
931
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
932
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
933 // code_dassop(int op,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
934 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
935 code_dassop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
936 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
937 double i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
938 float ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
939 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
940 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
941
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
942 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
943 printf("code_dassop 1 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
944 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
945 printf("code_dassop 2 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
946 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
947 printf("code_dassop 3 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
948 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
949 printf("code_dassop 4 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
950
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
951 ui1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
952 printf("code_dassop 1 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
953 ui1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
954 printf("code_dassop 2 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
955 ui1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
956 printf("code_dassop 3 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
957 ui1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
958 printf("code_dassop 4 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
959 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
960
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
961
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
962 // code_dpreinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
963 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
964 code_dpreinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
965 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
966 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
967 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
968 i = 123123123;j = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
969 printf("code_dpreinc %g %g\n",++i,--j);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
970 ui = 123123123;uj = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
971 printf("code_dpreinc %g %g\n",++ui,--uj);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
972 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
973
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
974 // code_dpostinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
975 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
976 code_dpostinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
977 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
978 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
979 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
980 i = 123123123;j = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
981 printf("code_dpreinc %g %g\n",i--,j--);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
982 ui = 123123123;uj = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
983 printf("code_dpreinc %g %g\n",ui++,uj--);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
984 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
985
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
986 // drexpr(int e1, int e2,int l1, int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
987
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
988 // case DOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
989 // case FOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
990 // case DOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
991 // case FOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
992 // case DOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
993 // case FOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
994 // case DOP+NEQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
995 // case FOP+NEQ:
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
996 // code_gt(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
997
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
998 void code_dgt()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
999 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1000 if (d0>d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1001 printf("code_gt 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1002 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1003 printf("code_gt 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1004 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1005
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1006 // code_ugt(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1007 void code_fgt()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1008 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1009 if (f0>f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1010 printf("code_fgt 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1011 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1012 printf("code_fgt 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1013 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1014
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1015 // code_ge(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1016 void code_dge()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1017 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1018 if (d0>=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1019 printf("code_dge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1020 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1021 printf("code_dge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1022 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1023
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1024 // code_uge(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1025 void code_fge()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1026 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1027 if (f0>=f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1028 printf("code_fge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1029 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1030 printf("code_fge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1031 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1032
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1033 // code_eq(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1034 void code_deq()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1035 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1036 if (f0==f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1037 printf("code_feq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1038 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1039 printf("code_feq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1040 if (d0!=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1041 printf("code_deq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1042 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1043 printf("code_deq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1044 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1045
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1046 // code_dbool(int e1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1047
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1048 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1049 code_dbool()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1050 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1051 printf("code_bool float %d %d %d %d\n",
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1052 f0>f1,f0>=f1,f0==f1,f0!=f1);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1053 printf("code_bool double %d %d %d %d\n",
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1054 d0>d1,d0>=d1,d0==d1,d0!=d1);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1055 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1056 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1057
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1058
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1059 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1060 // lrexpr(int e1, int e2,int l1, int op)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1061 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1062 code_lbool()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1063 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1064 printf("code_bool long long %d %d %d %d %d %d\n",
d83291712bf7 test routine
kono
parents: 199
diff changeset
1065 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1066 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1067
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1068 // int lpop_register()
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1069 // code_lregister(int e2,int reg)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1070 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1071 code_lregister()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1072 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1073 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1074 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1075 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1076 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1077 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1078 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1079 printf("code_lvar long long %llu %llu %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1080 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1081
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1082 // code_cmp_lregister(int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1083 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1084 code_cmp_lregister()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1085 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1086 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1087 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1088 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1089 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1090 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1091 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1092 l0 && printf("code_bool register 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1093 ul0 && printf("code_bool register 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1094 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1095
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1096 // code_cmp_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1097 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1098 code_cmp_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1099 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1100 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1101 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1102 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1103 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1104 l0 && printf("code_bool global 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1105 ul0 && printf("code_bool global 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1106 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1107 // code_cmp_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1108 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1109 code_cmp_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1110 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1111 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1112 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1113 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1114 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1115 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1116 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1117 l0 && printf("code_bool local 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1118 ul0 && printf("code_bool local 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1119 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1120
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1121 // code_lassign(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1122 // code_lassign_gvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1123 // code_lassign_lvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1124 // code_lassign_lregister(int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1125 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1126 code_lassign()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1127 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1128 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1129 unsigned long long ui1,ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1130 long long *pi1,*pi2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1131 unsigned long long *pui1,*pui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1132
d83291712bf7 test routine
kono
parents: 199
diff changeset
1133 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1134 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1135 pi1 = &i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1136 pi2 = &i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1137 pui1 = &ui1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1138 pui2 = &ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1139
d83291712bf7 test routine
kono
parents: 199
diff changeset
1140 *(pi2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1141 *(pui2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1142 printf("code_rindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1143 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1144
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1145 // code_lconst(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1146 // code_lneg(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1147 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1148 code_lneg()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1149 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1150 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1151 i = 123123123;j = -32423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1152 printf("code_neg %lld %lld\n",-i,-j);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1153 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1154
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1155 // code_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1156 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1157 code_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1158 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1159 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1160 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1161 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1162 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1163 printf("code_lrgvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1164 s_l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1165 s_l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1166 s_ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1167 s_ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1168 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
1169 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1170
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1171 // code_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1172 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1173 code_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1174 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1175 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1176 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1177 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1178 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1179 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1180 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1181 printf("code_lvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1182 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1183
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1184 // ltosop(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1185 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1186 ltosop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1187 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1188 long long i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1189 unsigned long long u1,u2,u;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1190 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1191 u1 = 632423423; u2= 32394234;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1192
d83291712bf7 test routine
kono
parents: 199
diff changeset
1193 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1194 printf("ltosop 1 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1195 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1196 printf("ltosop 2 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1197 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1198 printf("ltosop 3 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1199 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1200 printf("ltosop 4 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1201 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1202 printf("ltosop 5 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1203 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1204 printf("ltosop 6 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1205 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1206 printf("ltosop 7 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1207 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1208 printf("ltosop 8 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1209 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1210 printf("ltosop 9 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1211
d83291712bf7 test routine
kono
parents: 199
diff changeset
1212 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1213 printf("ltosop 1 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1214 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1215 printf("ltosop 2 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1216 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1217 printf("ltosop 3 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1218 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1219 printf("ltosop 4 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1220 u = u1 | u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1221 printf("ltosop 5 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1222 u = u1 & u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1223 printf("ltosop 6 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1224 u = u1 ^ u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1225 printf("ltosop 7 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1226 u = u1 << u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1227 printf("ltosop 8 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1228 u = u1 >> u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1229 printf("ltosop 9 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1230 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1231
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1232 // code_i2ll(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1233 void code_i2ll()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1234 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1235 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1236 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1237 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1238 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1239 printf("code_i2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1240 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1241 // code_i2ull(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1242 void code_i2ull()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1243 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1244 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1245 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1246 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1247 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1248 printf("code_i2ull %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1249 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1250 // code_u2ll(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1251 void code_u2ll()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1252 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1253 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1254 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1255 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1256 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1257 printf("code_u2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1258 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1259 // code_u2ull(int creg)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1260 void code_u2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1261 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1262 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1263 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1264 i = 23342342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1265 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1266 printf("code_u2ull %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1267 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1268 // code_ll2i(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1269 void code_ll2i()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1270 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1271 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1272 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1273 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1274 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1275 printf("code_ll2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1276 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1277 // code_ll2u(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1278 void code_ll2u()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1279 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1280 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1281 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1282 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1283 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1284 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1285 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1286 // code_ull2i(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1287 void code_ull2i()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1288 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1289 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1290 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1291 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1292 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1293 printf("code_ull2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1294 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1295 // code_ull2u(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1296 void code_ull2u()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1297 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1298 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1299 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1300 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1301 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1302 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1303 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1304 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1305 // code_d2ll(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1306 void code_d2ll()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1307 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1308 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1309 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1310 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1311 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1312 printf("code_d2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1313 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1314 // code_d2ull(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1315 void code_d2ull()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1316 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1317 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1318 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1319 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1320 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1321 printf("code_d2ll %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1322 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1323 // code_f2ll(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1324 void code_f2ll()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1325 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1326 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1327 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1328 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1329 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1330 printf("code_d2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1331 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1332 // code_f2ull(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1333 void code_f2ull()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1334 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1335 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1336 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1337 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1338 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1339 printf("code_d2ll %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1340 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1341 // code_ll2d(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1342 void code_ll2d()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1343 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1344 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1345 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1346 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1347 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1348 printf("code_d2ll %g\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1349 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1350 // code_ll2f(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1351 void code_ll2f()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1352 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1353 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1354 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1355 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1356 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1357 printf("code_d2ll %g\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1358 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1359 // code_ull2d(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1360 void code_ull2d()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1361 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1362 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1363 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1364 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1365 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1366 printf("code_d2ll %g\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1367 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1368 // code_ull2f(int creg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1369 void code_ull2f()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1370 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1371 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1372 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1373 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1374 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1375 printf("code_d2ll %g\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1376 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1377 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1378
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1379 // code_lpreinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1380 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1381 code_lpreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1382 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1383 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1384 i = 123123123;j = 0;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1385 printf("code_preinc %lld %lld\n",++i,--j);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1386 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1387
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1388 // code_lpostinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1389 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1390 code_lpostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1391 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1392 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1393 i = 123123123;j = 0;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1394 printf("code_preinc %lld %lld\n",i++,j--);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1395 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1396
d83291712bf7 test routine
kono
parents: 199
diff changeset
1397 // code_lpreinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1398 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1399 code_lupreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1400 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1401 unsigned long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1402 i = 123123123;j = 0;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1403 printf("code_preinc %llu %llu\n",++i,--j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1404 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1405
d83291712bf7 test routine
kono
parents: 199
diff changeset
1406 // code_lpostinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1407 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1408 code_lupostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1409 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1410 unsigned long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1411 i = 123123123;j = 0;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1412 printf("code_preinc %llu %llu\n",i++,j--);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1413 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1414
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1415 // code_lassop(int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1416
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1417 // code_register_assop(int e2,int op,int byte)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1418 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1419 code_register_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1420 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1421 register long long i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1422 register unsigned long long ui1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1423 i1 = -555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1424 ui1 = 632423423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1425
d83291712bf7 test routine
kono
parents: 199
diff changeset
1426 i1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1427 printf("code_register_lassop 1 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1428 i1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1429 printf("code_register_lassop 2 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1430 i1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1431 printf("code_register_lassop 3 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1432 i1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1433 printf("code_register_lassop 4 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1434 i1 |= 234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1435 printf("code_register_lassop 5 %lld\n",i1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1436 i1 &= 2324234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1437 printf("code_register_lassop 6 %lld\n",i1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1438 i1 ^= 5523234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1439 printf("code_register_lassop 7 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1440 i1 <<= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1441 printf("code_register_lassop 8 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1442 i1 >>= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1443 printf("code_register_lassop 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1444
d83291712bf7 test routine
kono
parents: 199
diff changeset
1445 ui1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1446 printf("code_register_lassop 1 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1447 ui1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1448 printf("code_register_lassop 2 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1449 ui1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1450 printf("code_register_lassop 3 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1451 ui1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1452 printf("code_register_lassop 4 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1453 ui1 |= 234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1454 printf("code_register_lassop 5 %llu\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1455 ui1 &= 2324234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1456 printf("code_register_lassop 6 %llu\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1457 ui1 ^= 5523234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1458 printf("code_register_lassop 7 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1459 ui1 <<= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1460 printf("code_register_lassop 8 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1461 ui1 >>= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1462 printf("code_register_lassop 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1463 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1464
d83291712bf7 test routine
kono
parents: 199
diff changeset
1465 // code_lassop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1466 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1467 code_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1468 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1469 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1470 unsigned long long ui1,ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1471 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1472 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1473
d83291712bf7 test routine
kono
parents: 199
diff changeset
1474 i1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1475 printf("code_lassop 1 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1476 i1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1477 printf("code_lassop 2 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1478 i1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1479 printf("code_lassop 3 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1480 i1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1481 printf("code_lassop 4 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1482 i1 |= 234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1483 printf("code_lassop 5 %lld\n",i1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1484 i1 &= 2324234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1485 printf("code_lassop 6 %lld\n",i1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1486 i1 ^= 5523234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1487 printf("code_lassop 7 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1488 i1 <<= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1489 printf("code_lassop 8 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1490 i1 >>= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1491 printf("code_lassop 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1492
d83291712bf7 test routine
kono
parents: 199
diff changeset
1493 ui1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1494 printf("code_lassop 1 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1495 ui1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1496 printf("code_lassop 2 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1497 ui1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1498 printf("code_lassop 3 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1499 ui1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1500 printf("code_lassop 4 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1501 ui1 |= 234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1502 printf("code_lassop 5 %llu\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1503 ui1 &= 2324234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1504 printf("code_lassop 6 %llu\n",ui1);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1505 ui1 ^= 5523234234234234LL;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1506 printf("code_lassop 7 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1507 ui1 <<= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1508 printf("code_lassop 8 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1509 ui1 >>= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1510 printf("code_lassop 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1511 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1512
d83291712bf7 test routine
kono
parents: 199
diff changeset
1513 // code_lgt(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1514
d83291712bf7 test routine
kono
parents: 199
diff changeset
1515 void code_lgt()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1516 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1517 if (l0>l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1518 printf("code_lgt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1519 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1520 printf("code_lgt 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1521 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1522
d83291712bf7 test routine
kono
parents: 199
diff changeset
1523 // code_lugt(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1524 void code_lugt()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1525 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1526 if (ul0>ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1527 printf("code_lugt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1528 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1529 printf("code_lugt 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1530 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1531
d83291712bf7 test routine
kono
parents: 199
diff changeset
1532 // code_lge(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1533 void code_lge()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1534 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1535 if (l0>=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1536 printf("code_lge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1537 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1538 printf("code_lge 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1539 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1540
d83291712bf7 test routine
kono
parents: 199
diff changeset
1541 // code_luge(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1542 void code_luge()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1543 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1544 if (ul0>=ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1545 printf("code_luge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1546 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1547 printf("code_luge 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1548 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1549
d83291712bf7 test routine
kono
parents: 199
diff changeset
1550 // code_leq(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1551 void code_leq()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1552 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1553 if (ul0==ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1554 printf("code_leq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1555 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1556 printf("code_leq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1557 if (l0!=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1558 printf("code_lneq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1559 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
1560 printf("code_lneq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1561 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1562
d83291712bf7 test routine
kono
parents: 199
diff changeset
1563
d83291712bf7 test routine
kono
parents: 199
diff changeset
1564
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1565 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1566 /* end */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1567