| # Expect script for ld-ia64 tests |
| # Copyright (C) 2002, 2003 Free Software Foundation |
| # |
| # This file is free software; you can redistribute it and/or modify |
| # it under the terms of the GNU General Public License as published by |
| # the Free Software Foundation; either version 2 of the License, or |
| # (at your option) any later version. |
| # |
| # This program is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| # GNU General Public License for more details. |
| # |
| # You should have received a copy of the GNU General Public License |
| # along with this program; if not, write to the Free Software |
| # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. |
| # |
| |
| # Test ia64 linking; all types of relocs. This tests the assembler and |
| # tools like objdump as well as the linker. |
| |
| if { !([istarget "ia64-*-elf*"] |
| || [istarget "ia64-*-linux*"]) } { |
| return |
| } |
| |
| # List contains test-items with 3 items followed by 2 lists: |
| # 0:name 1:ld options 2:assembler options |
| # 3:filenames of assembler files 4: action and options. 5: name of output file |
| |
| # Actions: |
| # objdump: Apply objdump options on result. Compare with regex (last arg). |
| # nm: Apply nm options on result. Compare with regex (last arg). |
| # readelf: Apply readelf options on result. Compare with regex (last arg). |
| |
| set ia64tests { |
| {"TLS -fpic -shared" "-shared" |
| "-mtune=itanium1" {tlspic1.s tlspic2.s} |
| {{readelf -WSsrl tlspic.rd} {objdump -drj.text tlspic.dd} |
| {objdump -sj.got tlspic.sd} {objdump -sj.tdata tlspic.td}} |
| "libtlspic.so"} |
| {"Helper shared library" "-shared" |
| "" {tlslib.s} {} "libtlslib.so"} |
| {"TLS -fpic and -fno-pic exec" |
| "tmpdir/libtlslib.so" "-mtune=itanium1" {tlsbinpic.s tlsbin.s} |
| {{readelf -WSsrl tlsbin.rd} {objdump -drj.text tlsbin.dd} |
| {objdump -sj.got tlsbin.sd} {objdump -sj.tdata tlsbin.td}} |
| "tlsbin"} |
| {"TLS in debug sections" "" |
| "" {tlsg.s} |
| {{objdump -sj.debug_foobar tlsg.sd}} "tlsg"} |
| } |
| |
| run_ld_link_tests $ia64tests |
| |
| # Check link order |
| proc link_order {} { |
| global AS |
| global LD |
| global READELF |
| global srcdir |
| global subdir |
| |
| set testname "link order" |
| if ![ld_assemble $AS $srcdir/../../binutils/testsuite/binutils-all/link-order.s tmpdir/link-order.o] { |
| unresolved $testname |
| return |
| } |
| |
| if ![ld_simple_link $LD tmpdir/link-order.ro "-r tmpdir/link-order.o"] { |
| unresolved $testname |
| return |
| } |
| |
| verbose -log "$READELF -t --wide tmpdir/link-order.o | grep IA_64_UNWIND > tmpdir/link-order.o.out" |
| catch "exec $READELF -t --wide tmpdir/link-order.o | grep IA_64_UNWIND > tmpdir/link-order.o.out" exec_output |
| set exec_output [prune_warnings $exec_output] |
| if ![string match "" $exec_output] then { |
| unresolved $testname |
| return |
| } |
| |
| verbose -log "$READELF -t --wide tmpdir/link-order.ro | grep IA_64_UNWIND > tmpdir/link-order.ro.out" |
| catch "exec $READELF -t --wide tmpdir/link-order.ro | grep IA_64_UNWIND > tmpdir/link-order.ro.out" exec_output |
| set exec_output [prune_warnings $exec_output] |
| if ![string match "" $exec_output] then { |
| unresolved $testname |
| return |
| } |
| |
| verbose -log "cmp tmpdir/link-order.o.out tmpdir/link-order.ro.out" |
| catch "exec cmp tmpdir/link-order.o.out tmpdir/link-order.ro.out" exec_output |
| if ![string match "" $exec_output] then { |
| fail $testname |
| } else { |
| pass $testname |
| } |
| } |
| |
| link_order |