blob: 64220e36ce3b92daaf66903360282a47e9dc8818 [file] [log] [blame]
Sasha Levindbd1abb2014-06-04 11:39:23 -04001#!/bin/bash
Greg Kroah-Hartmanb2441312017-11-01 15:07:57 +01002# SPDX-License-Identifier: GPL-2.0
Sasha Levindbd1abb2014-06-04 11:39:23 -04003# (c) 2014, Sasha Levin <sasha.levin@oracle.com>
4#set -x
5
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -07006if [[ $# < 2 ]]; then
Sasha Levindbd1abb2014-06-04 11:39:23 -04007 echo "Usage:"
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -07008 echo " $0 [vmlinux] [base path] [modules path]"
Sasha Levindbd1abb2014-06-04 11:39:23 -04009 exit 1
10fi
11
12vmlinux=$1
13basepath=$2
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -070014modpath=$3
Sasha Levindbd1abb2014-06-04 11:39:23 -040015declare -A cache
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -070016declare -A modcache
Sasha Levindbd1abb2014-06-04 11:39:23 -040017
18parse_symbol() {
19 # The structure of symbol at this point is:
Robert Jarzmike260fe02015-09-04 15:43:26 -070020 # ([name]+[offset]/[total length])
Sasha Levindbd1abb2014-06-04 11:39:23 -040021 #
22 # For example:
23 # do_basic_setup+0x9c/0xbf
24
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -070025 if [[ $module == "" ]] ; then
26 local objfile=$vmlinux
27 elif [[ "${modcache[$module]+isset}" == "isset" ]]; then
28 local objfile=${modcache[$module]}
29 else
30 [[ $modpath == "" ]] && return
31 local objfile=$(find "$modpath" -name $module.ko -print -quit)
32 [[ $objfile == "" ]] && return
33 modcache[$module]=$objfile
34 fi
35
Robert Jarzmike260fe02015-09-04 15:43:26 -070036 # Remove the englobing parenthesis
37 symbol=${symbol#\(}
38 symbol=${symbol%\)}
Sasha Levindbd1abb2014-06-04 11:39:23 -040039
40 # Strip the symbol name so that we could look it up
41 local name=${symbol%+*}
42
43 # Use 'nm vmlinux' to figure out the base address of said symbol.
44 # It's actually faster to call it every time than to load it
45 # all into bash.
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -070046 if [[ "${cache[$module,$name]+isset}" == "isset" ]]; then
47 local base_addr=${cache[$module,$name]}
Sasha Levindbd1abb2014-06-04 11:39:23 -040048 else
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -070049 local base_addr=$(nm "$objfile" | grep -i ' t ' | awk "/ $name\$/ {print \$1}" | head -n1)
50 cache[$module,$name]="$base_addr"
Sasha Levindbd1abb2014-06-04 11:39:23 -040051 fi
52 # Let's start doing the math to get the exact address into the
53 # symbol. First, strip out the symbol total length.
54 local expr=${symbol%/*}
55
56 # Now, replace the symbol name with the base address we found
57 # before.
58 expr=${expr/$name/0x$base_addr}
59
60 # Evaluate it to find the actual address
61 expr=$((expr))
62 local address=$(printf "%x\n" "$expr")
63
64 # Pass it to addr2line to get filename and line number
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -070065 # Could get more than one result
66 if [[ "${cache[$module,$address]+isset}" == "isset" ]]; then
67 local code=${cache[$module,$address]}
Sasha Levindbd1abb2014-06-04 11:39:23 -040068 else
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -070069 local code=$(addr2line -i -e "$objfile" "$address")
70 cache[$module,$address]=$code
Sasha Levindbd1abb2014-06-04 11:39:23 -040071 fi
72
73 # addr2line doesn't return a proper error code if it fails, so
74 # we detect it using the value it prints so that we could preserve
75 # the offset/size into the function and bail out
76 if [[ $code == "??:0" ]]; then
77 return
78 fi
79
80 # Strip out the base of the path
81 code=${code//$basepath/""}
82
83 # In the case of inlines, move everything to same line
84 code=${code//$'\n'/' '}
85
86 # Replace old address with pretty line numbers
87 symbol="$name ($code)"
88}
89
90decode_code() {
91 local scripts=`dirname "${BASH_SOURCE[0]}"`
92
93 echo "$1" | $scripts/decodecode
94}
95
96handle_line() {
97 local words
98
99 # Tokenize
100 read -a words <<<"$1"
101
102 # Remove hex numbers. Do it ourselves until it happens in the
103 # kernel
104
105 # We need to know the index of the last element before we
106 # remove elements because arrays are sparse
107 local last=$(( ${#words[@]} - 1 ))
108
109 for i in "${!words[@]}"; do
110 # Remove the address
111 if [[ ${words[$i]} =~ \[\<([^]]+)\>\] ]]; then
112 unset words[$i]
113 fi
114
115 # Format timestamps with tabs
116 if [[ ${words[$i]} == \[ && ${words[$i+1]} == *\] ]]; then
117 unset words[$i]
118 words[$i+1]=$(printf "[%13s\n" "${words[$i+1]}")
119 fi
120 done
121
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -0700122 if [[ ${words[$last]} =~ \[([^]]+)\] ]]; then
123 module=${words[$last]}
124 module=${module#\[}
125 module=${module%\]}
126 symbol=${words[$last-1]}
127 unset words[$last-1]
128 else
129 # The symbol is the last element, process it
130 symbol=${words[$last]}
131 module=
132 fi
133
Sasha Levindbd1abb2014-06-04 11:39:23 -0400134 unset words[$last]
135 parse_symbol # modifies $symbol
136
137 # Add up the line number to the symbol
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -0700138 echo "${words[@]}" "$symbol $module"
Sasha Levindbd1abb2014-06-04 11:39:23 -0400139}
140
141while read line; do
142 # Let's see if we have an address in the line
Josh Poimboeuf53938ee2016-11-28 17:06:35 -0600143 if [[ $line =~ \[\<([^]]+)\>\] ]] ||
144 [[ $line =~ [^+\ ]+\+0x[0-9a-f]+/0x[0-9a-f]+ ]]; then
Sasha Levindbd1abb2014-06-04 11:39:23 -0400145 # Translate address to line numbers
146 handle_line "$line"
147 # Is it a code line?
148 elif [[ $line == *Code:* ]]; then
Konstantin Khlebnikov310c6dd2016-05-19 17:09:11 -0700149 decode_code "$line"
150 else
Sasha Levindbd1abb2014-06-04 11:39:23 -0400151 # Nothing special in this line, show it as is
152 echo "$line"
153 fi
154done