Extend PE matching regexp in PR 19457 test to match cygwin and mingw targets.

[deliverable/binutils-gdb.git] / ld / testsuite / ld-scripts / script.exp

diff --git a/ld/testsuite/ld-scripts/script.exp b/ld/testsuite/ld-scripts/script.exp
index 66c62f50edb63f171c7ec19d148f2a57b8e8251c..b178cb3d2ea3d3cebef1032e7616b18126536bbd 100644 (file)
--- a/ld/testsuite/ld-scripts/script.exp
+++ b/ld/testsuite/ld-scripts/script.exp
@@ -1,7 +1,6 @@
 # Test basic linker script functionality
 # By Ian Lance Taylor, Cygnus Support
-#   Copyright 1999, 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2009
-#   Free Software Foundation, Inc.
+#   Copyright (C) 1999-2016 Free Software Foundation, Inc.
 #
 # This file is part of the GNU Binutils.
 #
@@ -67,6 +66,13 @@ proc check_script { } {
        set passes 0
     } 
 
+    if {[info exists nm_output(tred)] \
+        && $nm_output(tred) != (0x100 + 0x8000)} {
+       send_log "tred == $nm_output(tred)\n"
+       verbose "tred == $nm_output(tred)"
+       set passes 0
+    }
+
     if {$nm_output(text_end) < $text_end \
            || $nm_output(text_end) > 0x110} {
        send_log "text_end == $nm_output(text_end)\n"
@@ -80,6 +86,13 @@ proc check_script { } {
        set passes 0
     } 
 
+    if {[info exists nm_output(fred)] \
+        && $nm_output(fred) != (0x1000 + 0x10000)} {
+       send_log "fred == $nm_output(fred)\n"
+       verbose "fred == $nm_output(fred)"
+       set passes 0
+    }
+
     if {$nm_output(data_end) < $data_end \
            || $nm_output(data_end) > 0x1010} {
        send_log "data_end == $nm_output(data_end)\n"
@@ -94,6 +107,80 @@ proc check_script { } {
     }
 }
 
+proc extract_symbol_test { testfile testname } {
+    global objcopy
+    global nm
+    global size
+    global target_triplet
+
+    set copyfile tmpdir/extract
+    set args "--extract-symbol $testfile $copyfile"
+    set exec_output [run_host_cmd $objcopy $args]
+    if ![string equal "" $exec_output] {
+       fail $testname
+       return
+    }
+
+    set orig_syms [run_host_cmd $nm $testfile]
+    set syms_massaged $orig_syms
+    switch -regexp $target_triplet {
+       ^mmix-knuth-mmixware$ {
+           # Without section sizes (stripped together with the
+           # contents for this target), we can't deduce the symbol
+           # types.  Artificially tracking the symbol types is
+           # considered not worthwhile as there's no known use-case
+           # for --extract-symbols for this target.  The option is
+           # supported just enough to emit the same symbol values,
+           # but absolute symbol types are expected.
+           regsub -all " \[TD\] " $syms_massaged " A " syms_massaged
+       }
+       ^mips-*-* {
+           # This test cannot proceed any further for MIPS targets.
+           # The extract_syms operation produces a binary with a zero
+           # length .reginfo section, which is illegal under the MIPS
+           # ABI.  Since producing such sections is part of the expected
+           # behaviour of --extract-symbols, no further testing can be
+           # performed.  Fortunately this should not matter as extracting
+           # symbols is only needed for VxWorks support.
+           pass $testname
+           return
+       }
+       [a-z]*-*-pe$ {
+           # Fails for PE based targets because the extracted section
+           # relative symbols (eg tred or .text) all become undefined
+           # when the sections are blown away by --extract-symbol.  Again
+           # this should not matter as --extract-symbol is only used by
+           # VxWorks.
+           pass $testname
+           return
+       }
+       # More PE variations...
+       [a-z]*-*-mingw* {
+           pass $testname
+           return
+       }
+       [a-z]*-*-cygwin$ {
+           pass $testname
+           return
+       }
+    }
+
+    set extract_syms [run_host_cmd $nm $copyfile]
+    if ![string equal $syms_massaged $extract_syms] {
+       fail $testname
+       return
+    }
+
+    # Check that the stripped section contains no code or data.
+    set exec_output [run_host_cmd $size $copyfile]
+    if ![regexp ".* 0\[         \]+0\[  \]+0\[  \]+0\[  \]+0\[  \]+.*" $exec_output] {
+       fail $testname
+       return
+    }
+
+    pass $testname
+}
+
 # PE targets need to set the image base to 0 to avoid complications from nm.
 set flags ""
 if {[istarget "*-*-pe*"] \
@@ -127,12 +214,19 @@ if ![ld_simple_link $ld tmpdir/script "$flags -T $srcdir/$subdir/memory.t tmpdir
     check_script
 }
 
-set test_script_list [glob $srcdir/$subdir/region-alias-*.t]
+set testname "MEMORY with symbols"
+if ![ld_simple_link $ld tmpdir/script "$flags -defsym DATA_ORIGIN=0x1000 -defsym DATA_LENGTH=0x10000 -T $srcdir/$subdir/memory_sym.t tmpdir/script.o"] {
+    fail $testname
+    untested "extract symbols"
+} else {
+    check_script
+    extract_symbol_test tmpdir/script "extract symbols"
+}
+
+set test_script_list [lsort [glob $srcdir/$subdir/region-alias-*.t]]
 
 foreach test_script $test_script_list {
-    if ![ld_simple_link $ld tmpdir/script "$flags -T $test_script tmpdir/script.o"] {
-        xfail "REGION_ALIAS: $test_script"
-    } else {
-        xpass "REGION_ALIAS: $test_script"
-    }
+    run_dump_test [string range $test_script 0 end-2]
 }
+
+run_dump_test "align-with-input"