mirror of
https://sourceware.org/git/glibc.git
synced 2024-12-22 19:00:07 +00:00
c891b2df08
2001-04-03 Ulrich Drepper <drepper@redhat.com> * misc/dirname.c (dirname): Handle multiple slashes correctly. 2001-04-03 Martin Schwidefsky <schwidefsky@de.ibm.com> * sysdeps/s390/s390-64/initfini.c: Fix __gmon_start__ GOT access. 2001-04-03 Martin Schwidefsky <schwidefsky@de.ibm.com> * sysdeps/s390/s390-32/bcopy.S: Optimize for speed. * sysdeps/s390/s390-64/bcopy.S: Likewise. * sysdeps/s390/s390-32/mempcy.S: Likewise. * sysdeps/s390/s390-64/memcpy.S: Likewise. 2001-04-02 Bruno Haible <haible@clisp.cons.org> * manual/message.texi (Advanced gettext functions): More specific syntax in the plural formula examples. 2001-04-02 Franz Sirl <Franz.Sirl-kernel@lauterbach.com> * sysdeps/powerpc/atomicity.h: Silence warnings. * sysdeps/powerpc/dl-machine.h: Likewise. * sysdeps/powerpc/register-dump.h: Likewise. * sysdeps/powerpc/fpu/s_lrint.c: Likewise. 2001-04-02 Andreas Jaeger <aj@suse.de> * misc/tst-dirname.c (main): Add more tests, derived from a bug report by Michael Kerrisk <mtk16@ext.canterbury.ac.nz>. 2001-04-01 Andreas Jaeger <aj@suse.de> * debug/xtrace.sh (pcprofileso): Use SLIBDIR since libpcprofile.so is installed there. * malloc/memusage.sh (memusageso): Likewise for libmemusage.so. 2001-04-01 H.J. Lu <hjl@gnu.org> * posix/annexc.c (macrofile): Renamed from TMPFILE and set to tmpnam (NULL). * stdlib/isomac.c (macrofile): Likewise. 2001-03-30 Thorsten Kukuk <kukuk@suse.de> * inet/rcmd.c: Allow AF_UNSPEC as parameter. * nis/ypclnt.c (yp_all): Print error message only at last try, check for protocoll error only if we don't have a network error.
184 lines
4.8 KiB
Bash
Executable File
184 lines
4.8 KiB
Bash
Executable File
#! @BASH@
|
|
# Copyright (C) 1999, 2001 Free Software Foundation, Inc.
|
|
# This file is part of the GNU C Library.
|
|
# Contributed by Ulrich Drepper <drepper@gnu.org>, 1999.
|
|
|
|
# The GNU C Library is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Library General Public License as
|
|
# published by the Free Software Foundation; either version 2 of the
|
|
# License, or (at your option) any later version.
|
|
|
|
# The GNU C Library 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
|
|
# Library General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU Library General Public
|
|
# License along with the GNU C Library; see the file COPYING.LIB. If not,
|
|
# write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
# Boston, MA 02111-1307, USA.
|
|
|
|
pcprofileso=@SLIBDIR@/libpcprofile.so
|
|
pcprofiledump=@BINDIR@/pcprofiledump
|
|
|
|
# Print usage message.
|
|
do_usage() {
|
|
echo >&2 $"Try \`xtrace --help' for more information."
|
|
exit 1
|
|
}
|
|
|
|
# Message for missing argument.
|
|
do_missing_arg() {
|
|
echo >&2 $"xtrace: option \`$1' requires an argument"
|
|
do_usage
|
|
}
|
|
|
|
# Print help message
|
|
do_help() {
|
|
echo $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]...
|
|
Trace execution of program by printing currently executed function.
|
|
|
|
--data=FILE Don't run the program, just print the data from FILE.
|
|
|
|
-?,--help Print this help and exit
|
|
--usage Give a short usage message
|
|
-V,--version Print version information and exit
|
|
|
|
Mandatory arguments to long options are also mandatory for any corresponding
|
|
short options.
|
|
|
|
Report bugs using the \`glibcbug' script to <bugs@gnu.org>."
|
|
exit 0
|
|
}
|
|
|
|
do_version() {
|
|
echo 'xtrace (GNU libc) @VERSION@'
|
|
echo $"Copyright (C) 2001 Free Software Foundation, Inc.
|
|
This is free software; see the source for copying conditions. There is NO
|
|
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
Written by Ulrich Drepper."
|
|
exit 0
|
|
}
|
|
|
|
# Print out function name, file, and line number is a nice formatted way.
|
|
format_line() {
|
|
fct=$1
|
|
file=${2%%:*}
|
|
line=${2##*:}
|
|
width=$(expr $COLUMNS - 30)
|
|
filelen=$(expr length $file)
|
|
if test "$filelen" -gt "$width"; then
|
|
rwidth=$(expr $width - 3)
|
|
file="...$(expr substr $file $(expr 1 + $filelen - $rwidth) $rwidth)"
|
|
fi
|
|
printf '%-20s %-*s %6s\n' $fct $width $file $line
|
|
}
|
|
|
|
|
|
# If the variable COLUMNS is not set do this now.
|
|
COLUMNS=${COLUMNS:-80}
|
|
|
|
# If `TERMINAL_PROG' is not set, set it to `xterm'.
|
|
TERMINAL_PROG=${TERMINAL_PROG:-xterm}
|
|
|
|
# The data file to process, if any.
|
|
data=
|
|
|
|
# Process arguments. But stop as soon as the program name is found.
|
|
while test $# -gt 0; do
|
|
case "$1" in
|
|
--d | --da | --dat | --data)
|
|
if test $# -eq 1; then
|
|
do_missing_arg $1
|
|
fi
|
|
shift
|
|
data="$1"
|
|
;;
|
|
--d=* | --da=* | --dat=* | --data=*)
|
|
data=${1##*=}
|
|
;;
|
|
-? | --h | --he | --hel | --help)
|
|
do_help
|
|
;;
|
|
--v | --ve | --ver | --vers | --versi | --versio | --version)
|
|
do_version
|
|
;;
|
|
--)
|
|
# Stop processing arguments.
|
|
shift
|
|
break
|
|
;;
|
|
--help)
|
|
do_help
|
|
;;
|
|
--version)
|
|
do_version
|
|
;;
|
|
--*)
|
|
echo >&2 $"memprof: unrecognized option \`$1'"
|
|
do_usage
|
|
;;
|
|
*)
|
|
# Unknown option. This means the rest is the program name and parameters.
|
|
break
|
|
;;
|
|
esac
|
|
shift
|
|
done
|
|
|
|
# See whether any arguments are left.
|
|
if test $# -eq 0; then
|
|
echo >&2 $"No program name given"
|
|
do_usage
|
|
fi
|
|
|
|
# Determine the program name and check whether it exists.
|
|
program=$1
|
|
shift
|
|
if test ! -f "$program"; then
|
|
echo >2& $"executable \`$program' not found"
|
|
do_usage
|
|
fi
|
|
if test ! -x "$program"; then
|
|
echo >&2 $"\`$program' is no executable"
|
|
do_usage
|
|
fi
|
|
|
|
# We have two modes. If a data file is given simply print the included data.
|
|
printf "%-20s %-*s %6s\n" Function $(expr $COLUMNS - 30) File Line
|
|
for i in $(seq 1 $COLUMNS); do echo -n -; done; echo
|
|
if test -n "$data"; then
|
|
$pcprofiledump "$data" |
|
|
sed 's/this = \([^,]*\).*/\1/' |
|
|
addr2line -fC -e "$program" |
|
|
while read fct; do
|
|
read file
|
|
if test "$fct" != '??' -a "$file" != '??:0'; then
|
|
format_line $fct $file
|
|
fi
|
|
done
|
|
else
|
|
fifo=$(mktemp -u ${TMPDIR:-/tmp}/xprof.XXXXXX)
|
|
mkfifo -m 0600 $fifo || exit 1
|
|
# Now start the program and let it write to the FIFO.
|
|
$TERMINAL_PROG -T "xtrace - $program $*" -e /bin/sh -c "LD_PRELOAD=$pcprofileso PCPROFILE_OUTPUT=$fifo $program $*; read $fifo" &
|
|
termpid=$!
|
|
$pcprofiledump $fifo |
|
|
sed 's/this = \([^,]*\).*/\1/' |
|
|
addr2line -fC -e $program |
|
|
while read fct; do
|
|
read file
|
|
if test "$fct" != '??' -a "$file" != '??:0'; then
|
|
format_line $fct $file
|
|
fi
|
|
done
|
|
read -p "Press return to end the program."
|
|
echo > $fifo
|
|
rm $fifo
|
|
fi
|
|
|
|
exit 0
|
|
# Local Variables:
|
|
# mode:ksh
|
|
# End:
|