binutils-gdb/gdb/testsuite/lib/dtrace.exp
Joel Brobecker 61baf725ec update copyright year range in GDB files
This applies the second part of GDB's End of Year Procedure, which
updates the copyright year range in all of GDB's files.

gdb/ChangeLog:

        Update copyright year range in all GDB files.
2017-01-01 10:52:34 +04:00

72 lines
2.9 KiB
Plaintext

# Copyright 2014-2017 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 this program. If not, see <http://www.gnu.org/licenses/>.
# Generate a test program containing DTrace USDT probes, whose sources
# are ${srcfile} and ${testfile}.d. The sequence of commands used to
# generate the test program is:
#
# 1. Generate a header file from ${testfile}.d using dtrace -h.
# 2. Compile ${srcfile}.c.
# 3. Generate an object file containing a DOF program using dtrace -G.
# 4. Link everything together to get the test program.
#
# Note that if DTrace is not found in the host system then this
# function uses the pdtrace implementation, which is located at
# testsuite/lib/pdtrace.
#
# This function requires 'testfile', 'srcfile' and 'binfile' to be
# properly set.
#
# This function returns -1 on failure, 0 otherwise
proc dtrace_build_usdt_test_program {} {
global testfile hex objdir srcdir srcfile subdir binfile
# Make sure that dtrace is installed, it is the real one (not the
# script installed by SystemTap, for example) and of the right
# version (>= 0.4.0). If it is not then use pdtrace instead.
set dtrace "dtrace"
set result [remote_exec host "$dtrace -V"]
if {[lindex $result 0] != 0 || ![regexp {^dtrace: Sun D [0-9]\.[0-9]\.[0-9]} [lindex $result 1]]} {
set dtrace "${objdir}/lib/pdtrace"
}
set dscript_file "${srcdir}/${subdir}/${testfile}.d"
# 1. Generate a header file from testprogram.d using dtrace -h.
set out_header_file [standard_output_file "${testfile}.h"]
set result [remote_exec host "$dtrace -h -s $dscript_file -o $out_header_file"]
verbose -log [lindex $result 1]
if {[lindex $result 0] != 0} {
return -1
}
# 2. Compile testprogram.c.
set options [list debug additional_flags=-I[file dirname $out_header_file]]
if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}.o" object ${options}] != ""} {
return -1
}
# 3. Generate an object file containing a DOF program using dtrace -G.
set result [remote_exec host "$dtrace -G -s $dscript_file -o ${binfile}-p.o ${binfile}.o"]
verbose -log [lindex $result 1]
if {[lindex $result 0] != 0} {
return -1
}
# 4. Link everything together to get the test program.
if {[gdb_compile "${binfile}.o ${binfile}-p.o" ${binfile} executable {debug}] != ""} {
return -1
}
}