[Dejagnu] fix gcc-dg-prune glitch when filtering "relocation truncation" error

  gcc/testsuite/
    * lib/compat.exp (compat-run): Remove "unresolved".
    * lib/gcc-defs.exp (${tools}_check_compile): Update code logic for
    unsupported testcase.

From-SVN: r216543

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index fa09a9c10c3460a37245dbe46d7aa96c2d6b23cd..b11d3a9dce43a2a910649c92e3c71f61bd5a2833 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2014-10-22  Jiong Wang  <jiong.wang@arm.com>
+
+       * lib/compat.exp (compat-run): Remove "unresolved".
+       * lib/gcc-defs.exp (${tools}_check_compile): Update code logic for
+       unsupported testcase.
+
 2014-10-22  Jakub Jelinek  <jakub@redhat.com>
 
        PR target/63594

diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 7ab85aafe50cb000d8d681970463899d003787d0..45cf0e07d581cc639c32daef383fbb9d59bb32d3 100644 (file)
--- a/gcc/testsuite/lib/compat.exp
+++ b/gcc/testsuite/lib/compat.exp
@@ -134,7 +134,6 @@ proc compat-run { testname objlist dest optall optfile optstr } {
                     "$options"]
     if ![${tool}_check_compile "$testcase $testname link" "" \
         $dest $comp_output] then {
-       unresolved "$testcase $testname execute $optstr"
        return
     }
 

diff --git a/gcc/testsuite/lib/gcc-defs.exp b/gcc/testsuite/lib/gcc-defs.exp
index cb932382fa741b122c4f0b38fcae27726dffa997..d4796674f3a5d0d6887e82cde69d9e4dfea49673 100644 (file)
--- a/gcc/testsuite/lib/gcc-defs.exp
+++ b/gcc/testsuite/lib/gcc-defs.exp
@@ -54,12 +54,17 @@ proc ${tool}_check_compile {testcase option objname gcc_output} {
     if { [info proc ${tool}-dg-prune] != "" } {
        global target_triplet
        set gcc_output [${tool}-dg-prune $target_triplet $gcc_output]
-    }
-
-    set unsupported_message [${tool}_check_unsupported_p $gcc_output]
-    if { $unsupported_message != "" } {
-       unsupported "$testcase: $unsupported_message"
-       return 0
+       if [string match "*::unsupported::*" $gcc_output] then {
+           regsub -- "::unsupported::" $gcc_output "" gcc_output
+           unsupported "$testcase: $gcc_output"
+           return 0
+       }
+    } else {
+       set unsupported_message [${tool}_check_unsupported_p $gcc_output]
+       if { $unsupported_message != "" } {
+           unsupported "$testcase: $unsupported_message"
+           return 0
+       }
     }
 
     # remove any leftover LF/CR to make sure any output is legit