Commit | Line | Data |
---|---|---|
886e427f ME |
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 | } |