From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 11235 invoked by alias); 10 Dec 2019 23:15:25 -0000 Mailing-List: contact gdb-testers-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-testers-owner@sourceware.org Received: (qmail 11096 invoked by uid 89); 10 Dec 2019 23:15:15 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-15.1 required=5.0 tests=AWL,BAYES_00,GIT_PATCH_0,GIT_PATCH_1,GIT_PATCH_2,GIT_PATCH_3,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.1 spammy= X-HELO: kwanyin.sergiodj.net Received: from kwanyin.sergiodj.net (HELO kwanyin.sergiodj.net) (158.69.185.54) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Tue, 10 Dec 2019 23:15:02 +0000 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Subject: [binutils-gdb] Add gdb_compile_openmp to lib/gdb.exp From: gdb-buildbot@sergiodj.net To: gdb-testers@sourceware.org Message-Id: <26b911fb6411c930cf408a82604dc4355c086e03@gdb-build> Date: Tue, 10 Dec 2019 23:15:00 -0000 X-SW-Source: 2019-q4/txt/msg04277.txt.bz2 *** TEST RESULTS FOR COMMIT 26b911fb6411c930cf408a82604dc4355c086e03 *** commit 26b911fb6411c930cf408a82604dc4355c086e03 Author: Kevin Buettner AuthorDate: Wed Aug 21 19:32:12 2019 -0700 Commit: Kevin Buettner CommitDate: Tue Dec 10 15:37:46 2019 -0700 Add gdb_compile_openmp to lib/gdb.exp gdb/testsuite/ChangeLog: * lib/gdb.exp (gdb_compile_openmp): New proc. (build_executable_from_specs): Add an "openmp" option. (gdb_compile_pthreads): Add non-executable case. Change-Id: I94048b8b0940c707ce0529a6bcfa6e4eace49101 diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 52edbc1308..d3510d42cb 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2019-12-10 Kevin Buettner + + * lib/gdb.exp (gdb_compile_openmp): New proc. + (build_executable_from_specs): Add an "openmp" option. + (gdb_compile_pthreads): Add non-executable case. + 2019-12-10 Tom Tromey * gdb.ada/unchecked_union.exp: New file. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index aa774462d2..806e5a0c30 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -3951,6 +3951,9 @@ proc gdb_compile {source dest type options} { # against several different thread libraries, to see which one this # system has. proc gdb_compile_pthreads {source dest type options} { + if {$type != "executable"} { + return [gdb_compile $source $dest $type $options] + } set built_binfile 0 set why_msg "unrecognized error" foreach lib {-lpthreads -lpthread -lthread ""} { @@ -4156,6 +4159,14 @@ proc gdb_compile_objc {source dest type options} { } } +# Build an OpenMP program from SOURCE. See prefatory comment for +# gdb_compile, above, for discussion of the parameters to this proc. + +proc gdb_compile_openmp {source dest type options} { + lappend options "additional_flags=-fopenmp" + return [gdb_compile $source $dest $type $options] +} + # Send a command to GDB. # For options for TYPE see gdb_stdin_log_write @@ -5901,7 +5912,7 @@ proc build_executable_from_specs {testname executable options args} { } set func gdb_compile - set func_index [lsearch -regexp $options {^(pthreads|shlib|shlib_pthreads)$}] + set func_index [lsearch -regexp $options {^(pthreads|shlib|shlib_pthreads|openmp)$}] if {$func_index != -1} { set func "${func}_[lindex $options $func_index]" } @@ -5936,7 +5947,7 @@ proc build_executable_from_specs {testname executable options args} { if { ! [regexp "^/" "$s"] } then { set s "$srcdir/$subdir/$s" } - if { [gdb_compile "${s}" "${binfile}${i}.o" object $local_options] != "" } { + if { [$func "${s}" "${binfile}${i}.o" object $local_options] != "" } { untested $testname return -1 }