annotate test/code-gen.c @ 235:c575422d8b6e

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