10554
|
1 #!/usr/bin/perl
|
|
2
|
|
3 print ";Testname=unoptimized; Arguments=-fbin -oriprel.bin -O0; Files=stdout stderr riprel.bin\n";
|
|
4 print ";Testname=optimized; Arguments=-fbin -oriprel.bin -Ox; Files=stdout stderr riprel.bin\n";
|
|
5
|
|
6
|
|
7 print "\tbits 64\n";
|
|
8
|
|
9 foreach $mode ('abs', 'rel') {
|
|
10 print "\n\tdefault $mode\n\n";
|
|
11
|
|
12 foreach $so ('', 'fs:', 'es:') {
|
|
13 foreach $rq ('', 'abs ', 'rel ') {
|
|
14 foreach $ao ('', 'a64 ', 'a32 ') {
|
|
15 foreach $sq ('', 'dword ', 'qword ') {
|
|
16 foreach $v ('foo', '0xaaaaaaaaaaaaaaaa', '0xbbbbbbbb',
|
|
17 '0xffffffffcccccccc') {
|
|
18 foreach $r ( 'al', 'bl', 'ax', 'bx', 'eax', 'ebx', 'rax', 'rbx') {
|
|
19 print "\tmov $r,[$ao$rq$sq$so$v]\n";
|
|
20 }
|
|
21 }
|
|
22 print "\n";
|
|
23 }
|
|
24 }
|
|
25 }
|
|
26 }
|
|
27 }
|
|
28
|
|
29 print "\nfoo:\n";
|