annotate test/code-gen.c @ 223:1ac647873577

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