test/riprel.pl

   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";