annotate test/code-gen.c @ 201:3ae7e188416f

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