Blame view
scripts/decode_stacktrace.sh
3.89 KB
dbd1abb20 decode_stacktrace... |
1 |
#!/bin/bash |
b24413180 License cleanup: ... |
2 |
# SPDX-License-Identifier: GPL-2.0 |
dbd1abb20 decode_stacktrace... |
3 4 |
# (c) 2014, Sasha Levin <sasha.levin@oracle.com> #set -x |
310c6dd06 scripts/decode_st... |
5 |
if [[ $# < 2 ]]; then |
dbd1abb20 decode_stacktrace... |
6 |
echo "Usage:" |
310c6dd06 scripts/decode_st... |
7 |
echo " $0 [vmlinux] [base path] [modules path]" |
dbd1abb20 decode_stacktrace... |
8 9 10 11 12 |
exit 1 fi vmlinux=$1 basepath=$2 |
310c6dd06 scripts/decode_st... |
13 |
modpath=$3 |
dbd1abb20 decode_stacktrace... |
14 |
declare -A cache |
310c6dd06 scripts/decode_st... |
15 |
declare -A modcache |
dbd1abb20 decode_stacktrace... |
16 17 18 |
parse_symbol() { # The structure of symbol at this point is: |
e260fe01f scripts: decode_s... |
19 |
# ([name]+[offset]/[total length]) |
dbd1abb20 decode_stacktrace... |
20 21 22 |
# # For example: # do_basic_setup+0x9c/0xbf |
310c6dd06 scripts/decode_st... |
23 24 25 26 27 28 |
if [[ $module == "" ]] ; then local objfile=$vmlinux elif [[ "${modcache[$module]+isset}" == "isset" ]]; then local objfile=${modcache[$module]} else [[ $modpath == "" ]] && return |
ca90bbd41 scripts/decode_st... |
29 |
local objfile=$(find "$modpath" -name "${module//_/[-_]}.ko*" -print -quit) |
310c6dd06 scripts/decode_st... |
30 31 32 |
[[ $objfile == "" ]] && return modcache[$module]=$objfile fi |
e260fe01f scripts: decode_s... |
33 34 35 |
# Remove the englobing parenthesis symbol=${symbol#\(} symbol=${symbol%\)} |
dbd1abb20 decode_stacktrace... |
36 |
|
1d6693fb9 scripts/decode_st... |
37 38 39 40 41 42 |
# Strip segment local segment if [[ $symbol == *:* ]] ; then segment=${symbol%%:*}: symbol=${symbol#*:} fi |
dbd1abb20 decode_stacktrace... |
43 44 45 46 47 48 |
# Strip the symbol name so that we could look it up local name=${symbol%+*} # Use 'nm vmlinux' to figure out the base address of said symbol. # It's actually faster to call it every time than to load it # all into bash. |
310c6dd06 scripts/decode_st... |
49 50 |
if [[ "${cache[$module,$name]+isset}" == "isset" ]]; then local base_addr=${cache[$module,$name]} |
dbd1abb20 decode_stacktrace... |
51 |
else |
310c6dd06 scripts/decode_st... |
52 53 |
local base_addr=$(nm "$objfile" | grep -i ' t ' | awk "/ $name\$/ {print \$1}" | head -n1) cache[$module,$name]="$base_addr" |
dbd1abb20 decode_stacktrace... |
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 |
fi # Let's start doing the math to get the exact address into the # symbol. First, strip out the symbol total length. local expr=${symbol%/*} # Now, replace the symbol name with the base address we found # before. expr=${expr/$name/0x$base_addr} # Evaluate it to find the actual address expr=$((expr)) local address=$(printf "%x " "$expr") # Pass it to addr2line to get filename and line number |
310c6dd06 scripts/decode_st... |
69 70 71 |
# Could get more than one result if [[ "${cache[$module,$address]+isset}" == "isset" ]]; then local code=${cache[$module,$address]} |
dbd1abb20 decode_stacktrace... |
72 |
else |
c04e32e91 scripts/decode_st... |
73 |
local code=$(${CROSS_COMPILE}addr2line -i -e "$objfile" "$address") |
310c6dd06 scripts/decode_st... |
74 |
cache[$module,$address]=$code |
dbd1abb20 decode_stacktrace... |
75 76 77 78 79 80 81 82 83 84 |
fi # addr2line doesn't return a proper error code if it fails, so # we detect it using the value it prints so that we could preserve # the offset/size into the function and bail out if [[ $code == "??:0" ]]; then return fi # Strip out the base of the path |
31013836a scripts/decode_st... |
85 |
code=${code#$basepath/} |
dbd1abb20 decode_stacktrace... |
86 87 88 89 90 91 |
# In the case of inlines, move everything to same line code=${code//$' '/' '} # Replace old address with pretty line numbers |
1d6693fb9 scripts/decode_st... |
92 |
symbol="$segment$name ($code)" |
dbd1abb20 decode_stacktrace... |
93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 |
} decode_code() { local scripts=`dirname "${BASH_SOURCE[0]}"` echo "$1" | $scripts/decodecode } handle_line() { local words # Tokenize read -a words <<<"$1" # Remove hex numbers. Do it ourselves until it happens in the # kernel # We need to know the index of the last element before we # remove elements because arrays are sparse local last=$(( ${#words[@]} - 1 )) for i in "${!words[@]}"; do # Remove the address if [[ ${words[$i]} =~ \[\<([^]]+)\>\] ]]; then unset words[$i] fi # Format timestamps with tabs if [[ ${words[$i]} == \[ && ${words[$i+1]} == *\] ]]; then unset words[$i] words[$i+1]=$(printf "[%13s " "${words[$i+1]}") fi done |
310c6dd06 scripts/decode_st... |
127 128 129 130 131 132 133 134 135 136 137 |
if [[ ${words[$last]} =~ \[([^]]+)\] ]]; then module=${words[$last]} module=${module#\[} module=${module%\]} symbol=${words[$last-1]} unset words[$last-1] else # The symbol is the last element, process it symbol=${words[$last]} module= fi |
dbd1abb20 decode_stacktrace... |
138 139 140 141 |
unset words[$last] parse_symbol # modifies $symbol # Add up the line number to the symbol |
310c6dd06 scripts/decode_st... |
142 |
echo "${words[@]}" "$symbol $module" |
dbd1abb20 decode_stacktrace... |
143 144 145 146 |
} while read line; do # Let's see if we have an address in the line |
53938ee42 scripts/decode_st... |
147 148 |
if [[ $line =~ \[\<([^]]+)\>\] ]] || [[ $line =~ [^+\ ]+\+0x[0-9a-f]+/0x[0-9a-f]+ ]]; then |
dbd1abb20 decode_stacktrace... |
149 150 151 152 |
# Translate address to line numbers handle_line "$line" # Is it a code line? elif [[ $line == *Code:* ]]; then |
310c6dd06 scripts/decode_st... |
153 154 |
decode_code "$line" else |
dbd1abb20 decode_stacktrace... |
155 156 157 158 |
# Nothing special in this line, show it as is echo "$line" fi done |