74 lines
2.9 KiB
Text
74 lines
2.9 KiB
Text
|
# Copyright 2014-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
|
||
|
|
# 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 quiet \
|
||
|
|
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 quiet}] != ""} {
|
||
|
|
return -1
|
||
|
|
}
|
||
|
|
}
|