Commit b4cf3d64b1807667eba7863701b6fcae68c65e68
2022-09-04T07:32:18
Prune warnings from sparc64 linux ld
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
diff --git a/testsuite/lib/libffi.exp b/testsuite/lib/libffi.exp
index 4f4dd48..d77f53d 100644
--- a/testsuite/lib/libffi.exp
+++ b/testsuite/lib/libffi.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 2003, 2005, 2008, 2009, 2010, 2011, 2014, 2019 Free Software Foundation, Inc.
+# Copyright (C) 2003, 2005, 2008, 2009, 2010, 2011, 2014, 2019, 2022 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -45,7 +45,7 @@ proc is-effective-target { arg } {
if { [info procs check_effective_target_${arg}] != [list] } {
set selected [check_effective_target_${arg}]
} else {
- error "unknown effective target keyword `$arg'"
+ error "unknown effective target keyword `$arg'"
}
verbose "is-effective-target: $arg $selected" 2
return $selected
@@ -196,7 +196,7 @@ if { [info procs saved-dg-process-target] == [list] } {
return "N"
}
return [dg-process-target-1 $xfail_selector]
-
+
}
return [dg-process-target-1 $selector]
}
@@ -269,6 +269,8 @@ proc libffi-dg-test { prog do_what extra_tool_flags } {
proc libffi-dg-prune { target_triplet text } {
# We get this with some qemu emulated systems (eg. ppc64le-linux-gnu)
regsub -all "(^|\n)\[^\n\]*unable to perform all requested operations" $text "" text
+ # We get this from sparc64 linux systems
+ regsub -all "(^|\n)\[^\n\]*warning: .* has a LOAD segment with RWX permissions" $text "" text
return $text
}
@@ -486,7 +488,7 @@ proc run-many-tests { testcases extra_flags } {
set common "-W -Wall"
if [info exists env(LIBFFI_TEST_OPTIMIZATION)] {
set optimizations [ list $env(LIBFFI_TEST_OPTIMIZATION) ]
- } else {
+ } else {
set optimizations { "-O0" "-O2" }
}
}
@@ -494,7 +496,7 @@ proc run-many-tests { testcases extra_flags } {
set common "-W -Wall -Wno-psabi"
if [info exists env(LIBFFI_TEST_OPTIMIZATION)] {
set optimizations [ list $env(LIBFFI_TEST_OPTIMIZATION) ]
- } else {
+ } else {
set optimizations { "-O0" "-O2" }
}
}
@@ -503,7 +505,7 @@ proc run-many-tests { testcases extra_flags } {
set common ""
if [info exists env(LIBFFI_TEST_OPTIMIZATION)] {
set optimizations [ list $env(LIBFFI_TEST_OPTIMIZATION) ]
- } else {
+ } else {
set optimizations { "" }
}
}
@@ -592,7 +594,7 @@ proc check-flags { args } {
# compare them to the actual options.
if { [string compare [lindex $args 2] "*"] == 0
&& [string compare [lindex $args 3] "" ] == 0 } {
- set result 1
+ set result 1
} else {
# The target list might be an effective-target keyword, so replace
# the original list with "*-*-*", since we already know it matches.