Files
oracle/tpt/dtrace/qd

32 lines
1.0 KiB
Plaintext
Raw Normal View History

2026-03-12 21:23:47 +01:00
#!/bin/ksh
# "Quick Dtrace" script by Tanel Poder (http://www.tanelpoder.com)
# Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
# Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
PROCESS=$1
shift
for F in $* ; do
FUNCLIST_ENTRY=${FUNCLIST_ENTRY}",pid\$target::$F:entry"
FUNCLIST_RETURN=${FUNCLIST_RETURN}",pid\$target::$F:return"
done
FUNCLIST_ENTRY=`echo "$FUNCLIST_ENTRY" | sed 's/^,//'`
FUNCLIST_RETURN=`echo "$FUNCLIST_RETURN" | sed 's/^,//'`
echo $FUNCLIST_ENTRY
echo $FUNCLIST_RETURN
#dtrace -p $PROCESS -Fn $FUNCLIST"{ trace(probefunc); trace(arg0); trace(arg1); trace(arg2); trace(arg3); }"
#dtrace -p $PROCESS -Fn $FUNCLIST'{ printf("%16x %16x %16x %16x %16x %16x", arg0, arg1, arg2, arg3, arg4, arg5); }'
#dtrace -p $PROCESS -Fn $FUNCLIST'{ printf("%s %16x %16x %16x %16x %16x", copyinstr(arg0), arg1, arg2, arg3, arg4, arg5); }'
dtrace -Zp $PROCESS -Fn \
$FUNCLIST_ENTRY'{ printf("%16x ", arg0 ); }'\
$FUNCLIST_RETURN'{ printf("%16x", arg1); }'