summaryrefslogtreecommitdiff
path: root/gcc/testsuite/lib/esan-dg.exp
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/lib/esan-dg.exp')
-rw-r--r--gcc/testsuite/lib/esan-dg.exp156
1 files changed, 156 insertions, 0 deletions
diff --git a/gcc/testsuite/lib/esan-dg.exp b/gcc/testsuite/lib/esan-dg.exp
new file mode 100644
index 00000000000..e3b933d5335
--- /dev/null
+++ b/gcc/testsuite/lib/esan-dg.exp
@@ -0,0 +1,156 @@
+# Copyright (C) 2013-2016 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
+# the Free Software Foundation; either version 3 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 GCC; see the file COPYING3. If not see
+# <http://www.gnu.org/licenses/>.
+
+# Return 1 if compilation with -fsanitize=efficiency-working-set is error-free for trivial
+# code, 0 otherwise. Also set what to do by default here, depending on the
+# result of a runtime test.
+
+proc check_effective_target_fsanitize_esan {} {
+ global individual_timeout
+ global dg-do-what-default
+
+ if ![check_no_compiler_messages fsanitize_esan executable {
+ int main (void) { return 0; }
+ }] {
+ return 0
+ }
+
+ # Lower timeout value in case test does not terminate properly.
+ set individual_timeout 20
+ if [check_runtime_nocache esan_works {
+ int main () { return 0; }
+ }] {
+ set dg-do-what-default run
+ } else {
+ set dg-do-what-default link
+ }
+ unset individual_timeout
+
+ return 1
+}
+
+#
+# esan_link_flags -- compute library path and flags to find libesan.
+# (originally from g++.exp)
+#
+
+proc esan_link_flags { paths } {
+ global srcdir
+ global ld_library_path
+ global shlib_ext
+ global esan_saved_library_path
+
+ set gccpath ${paths}
+ set flags ""
+
+ set shlib_ext [get_shlib_extension]
+ set esan_saved_library_path $ld_library_path
+
+ if { $gccpath != "" } {
+ if { [file exists "${gccpath}/libsanitizer/esan/.libs/libesan.a"]
+ || [file exists "${gccpath}/libsanitizer/esan/.libs/libesan.${shlib_ext}"] } {
+ append flags " -B${gccpath}/libsanitizer/esan/ "
+ append flags " -L${gccpath}/libsanitizer/esan/.libs "
+ append ld_library_path ":${gccpath}/libsanitizer/esan/.libs"
+ }
+ } else {
+ global tool_root_dir
+
+ set libesan [lookfor_file ${tool_root_dir} libesan]
+ if { $libesan != "" } {
+ append flags "-L${libesan} "
+ append ld_library_path ":${libesan}"
+ }
+ }
+
+ set_ld_library_path_env_vars
+
+ return "$flags"
+}
+
+#
+# esan_init -- called at the start of each subdir of tests
+#
+
+proc esan_init { args } {
+ global TEST_ALWAYS_FLAGS
+ global ALWAYS_CXXFLAGS
+ global TOOL_OPTIONS
+ global esan_saved_TEST_ALWAYS_FLAGS
+ global esan_saved_ALWAYS_CXXFLAGS
+ global dg-do-what-default
+ global esan_saved_dg-do-what-default
+
+ set link_flags ""
+ if ![is_remote host] {
+ if [info exists TOOL_OPTIONS] {
+ set link_flags "[esan_link_flags [get_multilibs ${TOOL_OPTIONS}]]"
+ } else {
+ set link_flags "[esan_link_flags [get_multilibs]]"
+ }
+ }
+
+ if [info exists dg-do-what-default] {
+ set esan_saved_dg-do-what-default ${dg-do-what-default}
+ }
+ if [info exists TEST_ALWAYS_FLAGS] {
+ set esan_saved_TEST_ALWAYS_FLAGS $TEST_ALWAYS_FLAGS
+ }
+ if [info exists ALWAYS_CXXFLAGS] {
+ set esan_saved_ALWAYS_CXXFLAGS $ALWAYS_CXXFLAGS
+ set ALWAYS_CXXFLAGS [concat "{ldflags=$link_flags}" $ALWAYS_CXXFLAGS]
+ set ALWAYS_CXXFLAGS [concat "{additional_flags=-fsanitize=efficiency-working-set -g}" $ALWAYS_CXXFLAGS]
+ } else {
+ if [info exists TEST_ALWAYS_FLAGS] {
+ set TEST_ALWAYS_FLAGS "$link_flags -fsanitize=efficiency-working-set -g $TEST_ALWAYS_FLAGS"
+ } else {
+ set TEST_ALWAYS_FLAGS "$link_flags -fsanitize=efficiency-working-set -g"
+ }
+ }
+}
+
+#
+# esan_finish -- called at the end of each subdir of tests
+#
+
+proc esan_finish { args } {
+ global TEST_ALWAYS_FLAGS
+ global esan_saved_TEST_ALWAYS_FLAGS
+ global esan_saved_ALWAYS_CXXFLAGS
+ global dg-do-what-default
+ global esan_saved_dg-do-what-default
+ global esan_saved_library_path
+ global ld_library_path
+
+ if [info exists esan_saved_ALWAYS_CXXFLAGS ] {
+ set ALWAYS_CXXFLAGS $esan_saved_ALWAYS_CXXFLAGS
+ } else {
+ if [info exists esan_saved_TEST_ALWAYS_FLAGS] {
+ set TEST_ALWAYS_FLAGS $esan_saved_TEST_ALWAYS_FLAGS
+ } else {
+ unset TEST_ALWAYS_FLAGS
+ }
+ }
+
+ if [info exists esan_saved_dg-do-what-default] {
+ set dg-do-what-default ${esan_saved_dg-do-what-default}
+ } else {
+ unset dg-do-what-default
+ }
+ set ld_library_path $esan_saved_library_path
+ set_ld_library_path_env_vars
+ clear_effective_target_cache
+}