gas/testsuite/gas/microblaze/relax_size.exp

   1
   2 proc ld_run { objects ldflags dest test } {
   3     set ld_output [target_link $objects $dest $ldflags]
   4 }
   5
   6 proc readelf_run { exec flags dest test } {
   7     set readelf [find_binutils_prog readelf]
   8     verbose -log "$readelf $flags $exec > $dest"
   9     catch "exec $readelf $flags $exec > $dest" readelf_output
  10 }
  11
  12 proc regexp_test { file1 file2 test } {
  13     if [regexp_diff $file1 $file2] then { fail $test } else { pass $test }
  14 }
  15
  16 global srcdir subdir
  17 if [istarget microblaze*-*-elf] {
  18     foreach file [lsort [glob -nocomplain -- $srcdir/$subdir/relax_size*.s]] {
  19         set file [file rootname [file tail $file]]
  20         gas_run "$file.s" "-o $file.o" ""
  21         ld_run "$file.o"  "-e 0 -N -relax" "$file.x" "linking $file.x"
  22         readelf_run "$file.x" "-s" "$file.elf" "readelf -s $file.x"
  23         regexp_test "$file.elf" "$srcdir/$subdir/$file.elf" "matching $file.elf"
  24     }
  25 }