gas/testsuite/gas/sun4/addend.exp

   1 #
   2 # SunOS4 on SPARC tests
   3 #
   4
   5 if [istarget sparc-*-sunos4*] then {
   6     set x1 0
   7     set x2 0
   8     set x3 0
   9     set x4 0
  10     set x5 0
  11     set x6 0
  12     set testname "addends (part 2)"
  13     if [gas_test_old "addend.s" "" "addends (part 1)"] then {
  14         objdump_start_no_subdir "a.out" "-r"
  15         while 1 {
  16             # These are what we get using the SunOS assembler.
  17             expect {
  18                 -re "08 WDISP22 +foo1\[+\]+0xf+fc\r\n"          { incr x1 }
  19                 -re "0c WDISP22 +foo1\[+\]+0xf+f8\r\n"          { incr x2 }
  20                 -re "10 WDISP22 +foo1\[+\]+0xf+f0\r\n"          { incr x3 }
  21                 -re "14 WDISP22 +foo1\[+\]+0xf+ec\r\n"          { incr x4 }
  22                 -re "1c 32 +foo1\r\n"                           { incr x5 }
  23                 -re "20 32 +foo1\[+\]+0x0*04\r\n"                       { incr x6 }
  24                 -re "\[^\n\]*\n"                                { }
  25                 timeout                         { error "timeout\n"; break }
  26                 eof                             { break }
  27             }
  28         }
  29         objdump_finish
  30         if [all_ones $x1 $x2 $x3 $x4 $x5 $x6] then {
  31             pass $testname
  32         } else {
  33             fail $testname
  34         }
  35     }
  36 }