]>
Commit | Line | Data |
---|---|---|
4d1135e4 FB |
1 | #include <stdlib.h> |
2 | #include <stdio.h> | |
3 | #include <math.h> | |
4 | ||
5 | #define xglue(x, y) x ## y | |
6 | #define glue(x, y) xglue(x, y) | |
7 | #define stringify(s) tostring(s) | |
8 | #define tostring(s) #s | |
9 | ||
10 | #define CC_C 0x0001 | |
11 | #define CC_P 0x0004 | |
12 | #define CC_A 0x0010 | |
13 | #define CC_Z 0x0040 | |
14 | #define CC_S 0x0080 | |
15 | #define CC_O 0x0800 | |
16 | ||
4d1135e4 FB |
17 | #define __init_call __attribute__ ((unused,__section__ (".initcall.init"))) |
18 | ||
19 | static void *call_start __init_call = NULL; | |
20 | ||
4b74fe1f FB |
21 | #define CC_MASK (CC_C | CC_P | CC_Z | CC_S | CC_O | CC_A) |
22 | ||
4d1135e4 FB |
23 | #define OP add |
24 | #include "test-i386.h" | |
25 | ||
26 | #define OP sub | |
27 | #include "test-i386.h" | |
28 | ||
29 | #define OP xor | |
30 | #include "test-i386.h" | |
31 | ||
32 | #define OP and | |
33 | #include "test-i386.h" | |
34 | ||
35 | #define OP or | |
36 | #include "test-i386.h" | |
37 | ||
38 | #define OP cmp | |
39 | #include "test-i386.h" | |
40 | ||
41 | #define OP adc | |
42 | #define OP_CC | |
43 | #include "test-i386.h" | |
44 | ||
45 | #define OP sbb | |
46 | #define OP_CC | |
47 | #include "test-i386.h" | |
48 | ||
49 | #define OP inc | |
50 | #define OP_CC | |
51 | #define OP1 | |
52 | #include "test-i386.h" | |
53 | ||
54 | #define OP dec | |
55 | #define OP_CC | |
56 | #define OP1 | |
57 | #include "test-i386.h" | |
58 | ||
59 | #define OP neg | |
60 | #define OP_CC | |
61 | #define OP1 | |
62 | #include "test-i386.h" | |
63 | ||
64 | #define OP not | |
65 | #define OP_CC | |
66 | #define OP1 | |
67 | #include "test-i386.h" | |
68 | ||
4b74fe1f FB |
69 | #undef CC_MASK |
70 | #define CC_MASK (CC_C | CC_P | CC_Z | CC_S | CC_O) | |
71 | ||
379ca80d FB |
72 | #define OP shl |
73 | #include "test-i386-shift.h" | |
74 | ||
75 | #define OP shr | |
76 | #include "test-i386-shift.h" | |
77 | ||
78 | #define OP sar | |
79 | #include "test-i386-shift.h" | |
80 | ||
81 | #define OP rol | |
82 | #include "test-i386-shift.h" | |
83 | ||
84 | #define OP ror | |
85 | #include "test-i386-shift.h" | |
86 | ||
87 | #define OP rcr | |
88 | #define OP_CC | |
89 | #include "test-i386-shift.h" | |
90 | ||
91 | #define OP rcl | |
92 | #define OP_CC | |
93 | #include "test-i386-shift.h" | |
94 | ||
d57c4e01 FB |
95 | #define OP shld |
96 | #define OP_SHIFTD | |
97 | #define OP_NOBYTE | |
98 | #include "test-i386-shift.h" | |
99 | ||
100 | #define OP shrd | |
101 | #define OP_SHIFTD | |
102 | #define OP_NOBYTE | |
103 | #include "test-i386-shift.h" | |
104 | ||
105 | /* XXX: should be more precise ? */ | |
106 | #undef CC_MASK | |
107 | #define CC_MASK (CC_C) | |
108 | ||
109 | #define OP bt | |
110 | #define OP_NOBYTE | |
111 | #include "test-i386-shift.h" | |
112 | ||
113 | #define OP bts | |
114 | #define OP_NOBYTE | |
115 | #include "test-i386-shift.h" | |
116 | ||
117 | #define OP btr | |
118 | #define OP_NOBYTE | |
119 | #include "test-i386-shift.h" | |
120 | ||
121 | #define OP btc | |
122 | #define OP_NOBYTE | |
123 | #include "test-i386-shift.h" | |
379ca80d | 124 | |
4d1135e4 FB |
125 | /* lea test (modrm support) */ |
126 | #define TEST_LEA(STR)\ | |
127 | {\ | |
128 | asm("leal " STR ", %0"\ | |
129 | : "=r" (res)\ | |
130 | : "a" (eax), "b" (ebx), "c" (ecx), "d" (edx), "S" (esi), "D" (edi));\ | |
131 | printf("lea %s = %08x\n", STR, res);\ | |
132 | } | |
133 | ||
134 | #define TEST_LEA16(STR)\ | |
135 | {\ | |
136 | asm(".code16 ; .byte 0x67 ; leal " STR ", %0 ; .code32"\ | |
137 | : "=wq" (res)\ | |
138 | : "a" (eax), "b" (ebx), "c" (ecx), "d" (edx), "S" (esi), "D" (edi));\ | |
139 | printf("lea %s = %08x\n", STR, res);\ | |
140 | } | |
141 | ||
142 | ||
143 | void test_lea(void) | |
144 | { | |
145 | int eax, ebx, ecx, edx, esi, edi, res; | |
146 | eax = 0x0001; | |
147 | ebx = 0x0002; | |
148 | ecx = 0x0004; | |
149 | edx = 0x0008; | |
150 | esi = 0x0010; | |
151 | edi = 0x0020; | |
152 | ||
153 | TEST_LEA("0x4000"); | |
154 | ||
155 | TEST_LEA("(%%eax)"); | |
156 | TEST_LEA("(%%ebx)"); | |
157 | TEST_LEA("(%%ecx)"); | |
158 | TEST_LEA("(%%edx)"); | |
159 | TEST_LEA("(%%esi)"); | |
160 | TEST_LEA("(%%edi)"); | |
161 | ||
162 | TEST_LEA("0x40(%%eax)"); | |
163 | TEST_LEA("0x40(%%ebx)"); | |
164 | TEST_LEA("0x40(%%ecx)"); | |
165 | TEST_LEA("0x40(%%edx)"); | |
166 | TEST_LEA("0x40(%%esi)"); | |
167 | TEST_LEA("0x40(%%edi)"); | |
168 | ||
169 | TEST_LEA("0x4000(%%eax)"); | |
170 | TEST_LEA("0x4000(%%ebx)"); | |
171 | TEST_LEA("0x4000(%%ecx)"); | |
172 | TEST_LEA("0x4000(%%edx)"); | |
173 | TEST_LEA("0x4000(%%esi)"); | |
174 | TEST_LEA("0x4000(%%edi)"); | |
175 | ||
176 | TEST_LEA("(%%eax, %%ecx)"); | |
177 | TEST_LEA("(%%ebx, %%edx)"); | |
178 | TEST_LEA("(%%ecx, %%ecx)"); | |
179 | TEST_LEA("(%%edx, %%ecx)"); | |
180 | TEST_LEA("(%%esi, %%ecx)"); | |
181 | TEST_LEA("(%%edi, %%ecx)"); | |
182 | ||
183 | TEST_LEA("0x40(%%eax, %%ecx)"); | |
184 | TEST_LEA("0x4000(%%ebx, %%edx)"); | |
185 | ||
186 | TEST_LEA("(%%ecx, %%ecx, 2)"); | |
187 | TEST_LEA("(%%edx, %%ecx, 4)"); | |
188 | TEST_LEA("(%%esi, %%ecx, 8)"); | |
189 | ||
190 | TEST_LEA("(,%%eax, 2)"); | |
191 | TEST_LEA("(,%%ebx, 4)"); | |
192 | TEST_LEA("(,%%ecx, 8)"); | |
193 | ||
194 | TEST_LEA("0x40(,%%eax, 2)"); | |
195 | TEST_LEA("0x40(,%%ebx, 4)"); | |
196 | TEST_LEA("0x40(,%%ecx, 8)"); | |
197 | ||
198 | ||
199 | TEST_LEA("-10(%%ecx, %%ecx, 2)"); | |
200 | TEST_LEA("-10(%%edx, %%ecx, 4)"); | |
201 | TEST_LEA("-10(%%esi, %%ecx, 8)"); | |
202 | ||
203 | TEST_LEA("0x4000(%%ecx, %%ecx, 2)"); | |
204 | TEST_LEA("0x4000(%%edx, %%ecx, 4)"); | |
205 | TEST_LEA("0x4000(%%esi, %%ecx, 8)"); | |
206 | ||
207 | /* limited 16 bit addressing test */ | |
208 | TEST_LEA16("0x4000"); | |
209 | TEST_LEA16("(%%bx)"); | |
210 | TEST_LEA16("(%%si)"); | |
211 | TEST_LEA16("(%%di)"); | |
212 | TEST_LEA16("0x40(%%bx)"); | |
213 | TEST_LEA16("0x40(%%si)"); | |
214 | TEST_LEA16("0x40(%%di)"); | |
215 | TEST_LEA16("0x4000(%%bx)"); | |
216 | TEST_LEA16("0x4000(%%si)"); | |
217 | TEST_LEA16("(%%bx,%%si)"); | |
218 | TEST_LEA16("(%%bx,%%di)"); | |
219 | TEST_LEA16("0x40(%%bx,%%si)"); | |
220 | TEST_LEA16("0x40(%%bx,%%di)"); | |
221 | TEST_LEA16("0x4000(%%bx,%%si)"); | |
222 | TEST_LEA16("0x4000(%%bx,%%di)"); | |
223 | } | |
224 | ||
225 | #define TEST_JCC(JCC, v1, v2)\ | |
226 | {\ | |
227 | asm("movl $1, %0\n\t"\ | |
228 | "cmpl %2, %1\n\t"\ | |
229 | JCC " 1f\n\t"\ | |
230 | "movl $0, %0\n\t"\ | |
231 | "1:\n\t"\ | |
232 | : "=r" (res)\ | |
233 | : "r" (v1), "r" (v2));\ | |
234 | printf("%-10s %d\n", JCC, res);\ | |
235 | } | |
236 | ||
237 | /* various jump tests */ | |
238 | void test_jcc(void) | |
239 | { | |
240 | int res; | |
241 | ||
242 | TEST_JCC("jne", 1, 1); | |
243 | TEST_JCC("jne", 1, 0); | |
244 | ||
245 | TEST_JCC("je", 1, 1); | |
246 | TEST_JCC("je", 1, 0); | |
247 | ||
248 | TEST_JCC("jl", 1, 1); | |
249 | TEST_JCC("jl", 1, 0); | |
250 | TEST_JCC("jl", 1, -1); | |
251 | ||
252 | TEST_JCC("jle", 1, 1); | |
253 | TEST_JCC("jle", 1, 0); | |
254 | TEST_JCC("jle", 1, -1); | |
255 | ||
256 | TEST_JCC("jge", 1, 1); | |
257 | TEST_JCC("jge", 1, 0); | |
258 | TEST_JCC("jge", -1, 1); | |
259 | ||
260 | TEST_JCC("jg", 1, 1); | |
261 | TEST_JCC("jg", 1, 0); | |
262 | TEST_JCC("jg", 1, -1); | |
263 | ||
264 | TEST_JCC("jb", 1, 1); | |
265 | TEST_JCC("jb", 1, 0); | |
266 | TEST_JCC("jb", 1, -1); | |
267 | ||
268 | TEST_JCC("jbe", 1, 1); | |
269 | TEST_JCC("jbe", 1, 0); | |
270 | TEST_JCC("jbe", 1, -1); | |
271 | ||
272 | TEST_JCC("jae", 1, 1); | |
273 | TEST_JCC("jae", 1, 0); | |
274 | TEST_JCC("jae", 1, -1); | |
275 | ||
276 | TEST_JCC("ja", 1, 1); | |
277 | TEST_JCC("ja", 1, 0); | |
278 | TEST_JCC("ja", 1, -1); | |
279 | ||
280 | ||
281 | TEST_JCC("jp", 1, 1); | |
282 | TEST_JCC("jp", 1, 0); | |
283 | ||
284 | TEST_JCC("jnp", 1, 1); | |
285 | TEST_JCC("jnp", 1, 0); | |
286 | ||
287 | TEST_JCC("jo", 0x7fffffff, 0); | |
288 | TEST_JCC("jo", 0x7fffffff, -1); | |
289 | ||
290 | TEST_JCC("jno", 0x7fffffff, 0); | |
291 | TEST_JCC("jno", 0x7fffffff, -1); | |
292 | ||
293 | TEST_JCC("js", 0, 1); | |
294 | TEST_JCC("js", 0, -1); | |
295 | TEST_JCC("js", 0, 0); | |
296 | ||
297 | TEST_JCC("jns", 0, 1); | |
298 | TEST_JCC("jns", 0, -1); | |
299 | TEST_JCC("jns", 0, 0); | |
300 | } | |
301 | ||
4b74fe1f FB |
302 | #undef CC_MASK |
303 | #define CC_MASK (CC_O | CC_C) | |
304 | ||
305 | #define OP mul | |
306 | #include "test-i386-muldiv.h" | |
307 | ||
308 | #define OP imul | |
309 | #include "test-i386-muldiv.h" | |
310 | ||
311 | #undef CC_MASK | |
312 | #define CC_MASK (0) | |
313 | ||
314 | #define OP div | |
315 | #include "test-i386-muldiv.h" | |
316 | ||
317 | #define OP idiv | |
318 | #include "test-i386-muldiv.h" | |
319 | ||
320 | void test_imulw2(int op0, int op1) | |
321 | { | |
322 | int res, s1, s0, flags; | |
323 | s0 = op0; | |
324 | s1 = op1; | |
325 | res = s0; | |
326 | flags = 0; | |
327 | asm ("push %4\n\t" | |
328 | "popf\n\t" | |
329 | "imulw %w2, %w0\n\t" | |
330 | "pushf\n\t" | |
331 | "popl %1\n\t" | |
332 | : "=q" (res), "=g" (flags) | |
333 | : "q" (s1), "0" (res), "1" (flags)); | |
334 | printf("%-10s A=%08x B=%08x R=%08x CC=%04x\n", | |
335 | "imulw", s0, s1, res, flags & CC_MASK); | |
336 | } | |
337 | ||
338 | void test_imull2(int op0, int op1) | |
339 | { | |
340 | int res, s1, s0, flags; | |
341 | s0 = op0; | |
342 | s1 = op1; | |
343 | res = s0; | |
344 | flags = 0; | |
345 | asm ("push %4\n\t" | |
346 | "popf\n\t" | |
347 | "imull %2, %0\n\t" | |
348 | "pushf\n\t" | |
349 | "popl %1\n\t" | |
350 | : "=q" (res), "=g" (flags) | |
351 | : "q" (s1), "0" (res), "1" (flags)); | |
352 | printf("%-10s A=%08x B=%08x R=%08x CC=%04x\n", | |
353 | "imull", s0, s1, res, flags & CC_MASK); | |
354 | } | |
355 | ||
356 | void test_mul(void) | |
357 | { | |
358 | test_imulb(0x1234561d, 4); | |
359 | test_imulb(3, -4); | |
360 | test_imulb(0x80, 0x80); | |
361 | test_imulb(0x10, 0x10); | |
362 | ||
363 | test_imulw(0, 0x1234001d, 45); | |
364 | test_imulw(0, 23, -45); | |
365 | test_imulw(0, 0x8000, 0x8000); | |
366 | test_imulw(0, 0x100, 0x100); | |
367 | ||
368 | test_imull(0, 0x1234001d, 45); | |
369 | test_imull(0, 23, -45); | |
370 | test_imull(0, 0x80000000, 0x80000000); | |
371 | test_imull(0, 0x10000, 0x10000); | |
372 | ||
373 | test_mulb(0x1234561d, 4); | |
374 | test_mulb(3, -4); | |
375 | test_mulb(0x80, 0x80); | |
376 | test_mulb(0x10, 0x10); | |
377 | ||
378 | test_mulw(0, 0x1234001d, 45); | |
379 | test_mulw(0, 23, -45); | |
380 | test_mulw(0, 0x8000, 0x8000); | |
381 | test_mulw(0, 0x100, 0x100); | |
382 | ||
383 | test_mull(0, 0x1234001d, 45); | |
384 | test_mull(0, 23, -45); | |
385 | test_mull(0, 0x80000000, 0x80000000); | |
386 | test_mull(0, 0x10000, 0x10000); | |
387 | ||
388 | test_imulw2(0x1234001d, 45); | |
389 | test_imulw2(23, -45); | |
390 | test_imulw2(0x8000, 0x8000); | |
391 | test_imulw2(0x100, 0x100); | |
392 | ||
393 | test_imull2(0x1234001d, 45); | |
394 | test_imull2(23, -45); | |
395 | test_imull2(0x80000000, 0x80000000); | |
396 | test_imull2(0x10000, 0x10000); | |
397 | ||
398 | test_idivb(0x12341678, 0x127e); | |
399 | test_idivb(0x43210123, -5); | |
400 | test_idivb(0x12340004, -1); | |
401 | ||
402 | test_idivw(0, 0x12345678, 12347); | |
403 | test_idivw(0, -23223, -45); | |
404 | test_idivw(0, 0x12348000, -1); | |
405 | test_idivw(0x12343, 0x12345678, 0x81238567); | |
406 | ||
407 | test_idivl(0, 0x12345678, 12347); | |
408 | test_idivl(0, -233223, -45); | |
409 | test_idivl(0, 0x80000000, -1); | |
410 | test_idivl(0x12343, 0x12345678, 0x81234567); | |
411 | ||
412 | test_divb(0x12341678, 0x127e); | |
413 | test_divb(0x43210123, -5); | |
414 | test_divb(0x12340004, -1); | |
415 | ||
416 | test_divw(0, 0x12345678, 12347); | |
417 | test_divw(0, -23223, -45); | |
418 | test_divw(0, 0x12348000, -1); | |
419 | test_divw(0x12343, 0x12345678, 0x81238567); | |
420 | ||
421 | test_divl(0, 0x12345678, 12347); | |
422 | test_divl(0, -233223, -45); | |
423 | test_divl(0, 0x80000000, -1); | |
424 | test_divl(0x12343, 0x12345678, 0x81234567); | |
425 | } | |
426 | ||
9d8e9c09 FB |
427 | #define TEST_BSX(op, size, op0)\ |
428 | {\ | |
429 | int res, val, resz;\ | |
430 | val = op0;\ | |
431 | asm("xorl %1, %1 ; " #op " %" size "2, %" size "0 ; setz %b1" \ | |
432 | : "=r" (res), "=q" (resz)\ | |
433 | : "g" (val));\ | |
434 | printf("%-10s A=%08x R=%08x %d\n", #op, val, resz ? 0 : res, resz);\ | |
435 | } | |
436 | ||
437 | void test_bsx(void) | |
438 | { | |
439 | TEST_BSX(bsrw, "w", 0); | |
440 | TEST_BSX(bsrw, "w", 0x12340128); | |
441 | TEST_BSX(bsrl, "", 0); | |
442 | TEST_BSX(bsrl, "", 0x00340128); | |
443 | TEST_BSX(bsfw, "w", 0); | |
444 | TEST_BSX(bsfw, "w", 0x12340128); | |
445 | TEST_BSX(bsfl, "", 0); | |
446 | TEST_BSX(bsfl, "", 0x00340128); | |
447 | } | |
448 | ||
55480af8 FB |
449 | /**********************************************/ |
450 | ||
9d8e9c09 FB |
451 | void test_fops(double a, double b) |
452 | { | |
453 | printf("a=%f b=%f a+b=%f\n", a, b, a + b); | |
454 | printf("a=%f b=%f a-b=%f\n", a, b, a - b); | |
455 | printf("a=%f b=%f a*b=%f\n", a, b, a * b); | |
456 | printf("a=%f b=%f a/b=%f\n", a, b, a / b); | |
457 | printf("a=%f b=%f fmod(a, b)=%f\n", a, b, fmod(a, b)); | |
458 | printf("a=%f sqrt(a)=%f\n", a, sqrt(a)); | |
459 | printf("a=%f sin(a)=%f\n", a, sin(a)); | |
460 | printf("a=%f cos(a)=%f\n", a, cos(a)); | |
461 | printf("a=%f tan(a)=%f\n", a, tan(a)); | |
462 | printf("a=%f log(a)=%f\n", a, log(a)); | |
463 | printf("a=%f exp(a)=%f\n", a, exp(a)); | |
464 | printf("a=%f b=%f atan2(a, b)=%f\n", a, b, atan2(a, b)); | |
465 | /* just to test some op combining */ | |
466 | printf("a=%f asin(sin(a))=%f\n", a, asin(sin(a))); | |
467 | printf("a=%f acos(cos(a))=%f\n", a, acos(cos(a))); | |
468 | printf("a=%f atan(tan(a))=%f\n", a, atan(tan(a))); | |
469 | ||
470 | } | |
471 | ||
472 | void test_fcmp(double a, double b) | |
473 | { | |
474 | printf("(%f<%f)=%d\n", | |
475 | a, b, a < b); | |
476 | printf("(%f<=%f)=%d\n", | |
477 | a, b, a <= b); | |
478 | printf("(%f==%f)=%d\n", | |
479 | a, b, a == b); | |
480 | printf("(%f>%f)=%d\n", | |
481 | a, b, a > b); | |
482 | printf("(%f<=%f)=%d\n", | |
483 | a, b, a >= b); | |
484 | } | |
485 | ||
486 | void test_fcvt(double a) | |
487 | { | |
488 | float fa; | |
489 | long double la; | |
490 | ||
491 | fa = a; | |
492 | la = a; | |
493 | printf("(float)%f = %f\n", a, fa); | |
494 | printf("(long double)%f = %Lf\n", a, la); | |
c5e9815d FB |
495 | printf("a=%016Lx\n", *(long long *)&a); |
496 | printf("la=%016Lx %04x\n", *(long long *)&la, | |
497 | *(unsigned short *)((char *)(&la) + 8)); | |
9d8e9c09 FB |
498 | printf("a=%f floor(a)=%f\n", a, floor(a)); |
499 | printf("a=%f ceil(a)=%f\n", a, ceil(a)); | |
500 | printf("a=%f rint(a)=%f\n", a, rint(a)); | |
501 | } | |
502 | ||
503 | #define TEST(N) \ | |
504 | asm("fld" #N : "=t" (a)); \ | |
505 | printf("fld" #N "= %f\n", a); | |
506 | ||
507 | void test_fconst(void) | |
508 | { | |
509 | double a; | |
510 | TEST(1); | |
511 | TEST(l2t); | |
512 | TEST(l2e); | |
513 | TEST(pi); | |
514 | TEST(lg2); | |
515 | TEST(ln2); | |
516 | TEST(z); | |
517 | } | |
518 | ||
c5e9815d FB |
519 | void test_fbcd(double a) |
520 | { | |
521 | unsigned short bcd[5]; | |
522 | double b; | |
523 | ||
524 | asm("fbstp %0" : "=m" (bcd[0]) : "t" (a) : "st"); | |
525 | asm("fbld %1" : "=t" (b) : "m" (bcd[0])); | |
526 | printf("a=%f bcd=%04x%04x%04x%04x%04x b=%f\n", | |
527 | a, bcd[4], bcd[3], bcd[2], bcd[1], bcd[0], b); | |
528 | } | |
529 | ||
9d8e9c09 FB |
530 | void test_floats(void) |
531 | { | |
532 | test_fops(2, 3); | |
533 | test_fops(1.4, -5); | |
534 | test_fcmp(2, -1); | |
535 | test_fcmp(2, 2); | |
536 | test_fcmp(2, 3); | |
537 | test_fcvt(1.0/7.0); | |
538 | test_fcvt(-1.0/9.0); | |
539 | test_fcvt(1e30); | |
540 | test_fconst(); | |
c5e9815d FB |
541 | test_fbcd(1234567890123456); |
542 | test_fbcd(-123451234567890); | |
9d8e9c09 | 543 | } |
4b74fe1f | 544 | |
55480af8 FB |
545 | /**********************************************/ |
546 | ||
547 | #define TEST_BCD(op, op0, cc_in, cc_mask)\ | |
548 | {\ | |
549 | int res, flags;\ | |
550 | res = op0;\ | |
551 | flags = cc_in;\ | |
552 | asm ("push %3\n\t"\ | |
553 | "popf\n\t"\ | |
554 | #op "\n\t"\ | |
555 | "pushf\n\t"\ | |
556 | "popl %1\n\t"\ | |
557 | : "=a" (res), "=g" (flags)\ | |
558 | : "0" (res), "1" (flags));\ | |
559 | printf("%-10s A=%08x R=%08x CCIN=%04x CC=%04x\n",\ | |
560 | #op, op0, res, cc_in, flags & cc_mask);\ | |
561 | } | |
562 | ||
563 | void test_bcd(void) | |
564 | { | |
565 | TEST_BCD(daa, 0x12340503, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
566 | TEST_BCD(daa, 0x12340506, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
567 | TEST_BCD(daa, 0x12340507, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
568 | TEST_BCD(daa, 0x12340559, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
569 | TEST_BCD(daa, 0x12340560, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
570 | TEST_BCD(daa, 0x1234059f, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
571 | TEST_BCD(daa, 0x123405a0, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
572 | TEST_BCD(daa, 0x12340503, 0, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
573 | TEST_BCD(daa, 0x12340506, 0, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
574 | TEST_BCD(daa, 0x12340503, CC_C, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
575 | TEST_BCD(daa, 0x12340506, CC_C, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
576 | TEST_BCD(daa, 0x12340503, CC_C | CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
577 | TEST_BCD(daa, 0x12340506, CC_C | CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
578 | ||
579 | TEST_BCD(das, 0x12340503, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
580 | TEST_BCD(das, 0x12340506, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
581 | TEST_BCD(das, 0x12340507, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
582 | TEST_BCD(das, 0x12340559, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
583 | TEST_BCD(das, 0x12340560, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
584 | TEST_BCD(das, 0x1234059f, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
585 | TEST_BCD(das, 0x123405a0, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
586 | TEST_BCD(das, 0x12340503, 0, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
587 | TEST_BCD(das, 0x12340506, 0, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
588 | TEST_BCD(das, 0x12340503, CC_C, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
589 | TEST_BCD(das, 0x12340506, CC_C, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
590 | TEST_BCD(das, 0x12340503, CC_C | CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
591 | TEST_BCD(das, 0x12340506, CC_C | CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_A)); | |
592 | ||
593 | TEST_BCD(aaa, 0x12340205, CC_A, (CC_C | CC_A)); | |
594 | TEST_BCD(aaa, 0x12340306, CC_A, (CC_C | CC_A)); | |
595 | TEST_BCD(aaa, 0x1234040a, CC_A, (CC_C | CC_A)); | |
596 | TEST_BCD(aaa, 0x123405fa, CC_A, (CC_C | CC_A)); | |
597 | TEST_BCD(aaa, 0x12340205, 0, (CC_C | CC_A)); | |
598 | TEST_BCD(aaa, 0x12340306, 0, (CC_C | CC_A)); | |
599 | TEST_BCD(aaa, 0x1234040a, 0, (CC_C | CC_A)); | |
600 | TEST_BCD(aaa, 0x123405fa, 0, (CC_C | CC_A)); | |
601 | ||
602 | TEST_BCD(aas, 0x12340205, CC_A, (CC_C | CC_A)); | |
603 | TEST_BCD(aas, 0x12340306, CC_A, (CC_C | CC_A)); | |
604 | TEST_BCD(aas, 0x1234040a, CC_A, (CC_C | CC_A)); | |
605 | TEST_BCD(aas, 0x123405fa, CC_A, (CC_C | CC_A)); | |
606 | TEST_BCD(aas, 0x12340205, 0, (CC_C | CC_A)); | |
607 | TEST_BCD(aas, 0x12340306, 0, (CC_C | CC_A)); | |
608 | TEST_BCD(aas, 0x1234040a, 0, (CC_C | CC_A)); | |
609 | TEST_BCD(aas, 0x123405fa, 0, (CC_C | CC_A)); | |
610 | ||
611 | TEST_BCD(aam, 0x12340547, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_O | CC_A)); | |
612 | TEST_BCD(aad, 0x12340407, CC_A, (CC_C | CC_P | CC_Z | CC_S | CC_O | CC_A)); | |
613 | } | |
614 | ||
615 | ||
4d1135e4 FB |
616 | static void *call_end __init_call = NULL; |
617 | ||
618 | int main(int argc, char **argv) | |
619 | { | |
620 | void **ptr; | |
621 | void (*func)(void); | |
4b74fe1f | 622 | |
4d1135e4 FB |
623 | ptr = &call_start + 1; |
624 | while (*ptr != NULL) { | |
625 | func = *ptr++; | |
626 | func(); | |
627 | } | |
9d8e9c09 | 628 | test_bsx(); |
d57c4e01 | 629 | test_mul(); |
4d1135e4 | 630 | test_jcc(); |
4b74fe1f | 631 | test_lea(); |
9d8e9c09 | 632 | test_floats(); |
55480af8 | 633 | test_bcd(); |
4d1135e4 FB |
634 | return 0; |
635 | } |