1dbd1abb2SSasha Levin#!/bin/bash 2b2441318SGreg Kroah-Hartman# SPDX-License-Identifier: GPL-2.0 3dbd1abb2SSasha Levin# (c) 2014, Sasha Levin <[email protected]> 4dbd1abb2SSasha Levin#set -x 5dbd1abb2SSasha Levin 6310c6dd0SKonstantin Khlebnikovif [[ $# < 2 ]]; then 7dbd1abb2SSasha Levin echo "Usage:" 8310c6dd0SKonstantin Khlebnikov echo " $0 [vmlinux] [base path] [modules path]" 9dbd1abb2SSasha Levin exit 1 10dbd1abb2SSasha Levinfi 11dbd1abb2SSasha Levin 12dbd1abb2SSasha Levinvmlinux=$1 13dbd1abb2SSasha Levinbasepath=$2 14310c6dd0SKonstantin Khlebnikovmodpath=$3 15dbd1abb2SSasha Levindeclare -A cache 16310c6dd0SKonstantin Khlebnikovdeclare -A modcache 17dbd1abb2SSasha Levin 18dbd1abb2SSasha Levinparse_symbol() { 19dbd1abb2SSasha Levin # The structure of symbol at this point is: 20e260fe01SRobert Jarzmik # ([name]+[offset]/[total length]) 21dbd1abb2SSasha Levin # 22dbd1abb2SSasha Levin # For example: 23dbd1abb2SSasha Levin # do_basic_setup+0x9c/0xbf 24dbd1abb2SSasha Levin 25310c6dd0SKonstantin Khlebnikov if [[ $module == "" ]] ; then 26310c6dd0SKonstantin Khlebnikov local objfile=$vmlinux 27310c6dd0SKonstantin Khlebnikov elif [[ "${modcache[$module]+isset}" == "isset" ]]; then 28310c6dd0SKonstantin Khlebnikov local objfile=${modcache[$module]} 29310c6dd0SKonstantin Khlebnikov else 30310c6dd0SKonstantin Khlebnikov [[ $modpath == "" ]] && return 31*ca90bbd4SEvan Green local objfile=$(find "$modpath" -name "${module//_/[-_]}.ko*" -print -quit) 32310c6dd0SKonstantin Khlebnikov [[ $objfile == "" ]] && return 33310c6dd0SKonstantin Khlebnikov modcache[$module]=$objfile 34310c6dd0SKonstantin Khlebnikov fi 35310c6dd0SKonstantin Khlebnikov 36e260fe01SRobert Jarzmik # Remove the englobing parenthesis 37e260fe01SRobert Jarzmik symbol=${symbol#\(} 38e260fe01SRobert Jarzmik symbol=${symbol%\)} 39dbd1abb2SSasha Levin 401d6693fbSKonstantin Khlebnikov # Strip segment 411d6693fbSKonstantin Khlebnikov local segment 421d6693fbSKonstantin Khlebnikov if [[ $symbol == *:* ]] ; then 431d6693fbSKonstantin Khlebnikov segment=${symbol%%:*}: 441d6693fbSKonstantin Khlebnikov symbol=${symbol#*:} 451d6693fbSKonstantin Khlebnikov fi 461d6693fbSKonstantin Khlebnikov 47dbd1abb2SSasha Levin # Strip the symbol name so that we could look it up 48dbd1abb2SSasha Levin local name=${symbol%+*} 49dbd1abb2SSasha Levin 50dbd1abb2SSasha Levin # Use 'nm vmlinux' to figure out the base address of said symbol. 51dbd1abb2SSasha Levin # It's actually faster to call it every time than to load it 52dbd1abb2SSasha Levin # all into bash. 53310c6dd0SKonstantin Khlebnikov if [[ "${cache[$module,$name]+isset}" == "isset" ]]; then 54310c6dd0SKonstantin Khlebnikov local base_addr=${cache[$module,$name]} 55dbd1abb2SSasha Levin else 56310c6dd0SKonstantin Khlebnikov local base_addr=$(nm "$objfile" | grep -i ' t ' | awk "/ $name\$/ {print \$1}" | head -n1) 57310c6dd0SKonstantin Khlebnikov cache[$module,$name]="$base_addr" 58dbd1abb2SSasha Levin fi 59dbd1abb2SSasha Levin # Let's start doing the math to get the exact address into the 60dbd1abb2SSasha Levin # symbol. First, strip out the symbol total length. 61dbd1abb2SSasha Levin local expr=${symbol%/*} 62dbd1abb2SSasha Levin 63dbd1abb2SSasha Levin # Now, replace the symbol name with the base address we found 64dbd1abb2SSasha Levin # before. 65dbd1abb2SSasha Levin expr=${expr/$name/0x$base_addr} 66dbd1abb2SSasha Levin 67dbd1abb2SSasha Levin # Evaluate it to find the actual address 68dbd1abb2SSasha Levin expr=$((expr)) 69dbd1abb2SSasha Levin local address=$(printf "%x\n" "$expr") 70dbd1abb2SSasha Levin 71dbd1abb2SSasha Levin # Pass it to addr2line to get filename and line number 72dbd1abb2SSasha Levin # Could get more than one result 73310c6dd0SKonstantin Khlebnikov if [[ "${cache[$module,$address]+isset}" == "isset" ]]; then 74310c6dd0SKonstantin Khlebnikov local code=${cache[$module,$address]} 75dbd1abb2SSasha Levin else 76c04e32e9SManuel Traut local code=$(${CROSS_COMPILE}addr2line -i -e "$objfile" "$address") 77310c6dd0SKonstantin Khlebnikov cache[$module,$address]=$code 78dbd1abb2SSasha Levin fi 79dbd1abb2SSasha Levin 80dbd1abb2SSasha Levin # addr2line doesn't return a proper error code if it fails, so 81dbd1abb2SSasha Levin # we detect it using the value it prints so that we could preserve 82dbd1abb2SSasha Levin # the offset/size into the function and bail out 83dbd1abb2SSasha Levin if [[ $code == "??:0" ]]; then 84dbd1abb2SSasha Levin return 85dbd1abb2SSasha Levin fi 86dbd1abb2SSasha Levin 87dbd1abb2SSasha Levin # Strip out the base of the path 8831013836SNicolas Boichat code=${code#$basepath/} 89dbd1abb2SSasha Levin 90dbd1abb2SSasha Levin # In the case of inlines, move everything to same line 91dbd1abb2SSasha Levin code=${code//$'\n'/' '} 92dbd1abb2SSasha Levin 93dbd1abb2SSasha Levin # Replace old address with pretty line numbers 941d6693fbSKonstantin Khlebnikov symbol="$segment$name ($code)" 95dbd1abb2SSasha Levin} 96dbd1abb2SSasha Levin 97dbd1abb2SSasha Levindecode_code() { 98dbd1abb2SSasha Levin local scripts=`dirname "${BASH_SOURCE[0]}"` 99dbd1abb2SSasha Levin 100dbd1abb2SSasha Levin echo "$1" | $scripts/decodecode 101dbd1abb2SSasha Levin} 102dbd1abb2SSasha Levin 103dbd1abb2SSasha Levinhandle_line() { 104dbd1abb2SSasha Levin local words 105dbd1abb2SSasha Levin 106dbd1abb2SSasha Levin # Tokenize 107dbd1abb2SSasha Levin read -a words <<<"$1" 108dbd1abb2SSasha Levin 109dbd1abb2SSasha Levin # Remove hex numbers. Do it ourselves until it happens in the 110dbd1abb2SSasha Levin # kernel 111dbd1abb2SSasha Levin 112dbd1abb2SSasha Levin # We need to know the index of the last element before we 113dbd1abb2SSasha Levin # remove elements because arrays are sparse 114dbd1abb2SSasha Levin local last=$(( ${#words[@]} - 1 )) 115dbd1abb2SSasha Levin 116dbd1abb2SSasha Levin for i in "${!words[@]}"; do 117dbd1abb2SSasha Levin # Remove the address 118dbd1abb2SSasha Levin if [[ ${words[$i]} =~ \[\<([^]]+)\>\] ]]; then 119dbd1abb2SSasha Levin unset words[$i] 120dbd1abb2SSasha Levin fi 121dbd1abb2SSasha Levin 122dbd1abb2SSasha Levin # Format timestamps with tabs 123dbd1abb2SSasha Levin if [[ ${words[$i]} == \[ && ${words[$i+1]} == *\] ]]; then 124dbd1abb2SSasha Levin unset words[$i] 125dbd1abb2SSasha Levin words[$i+1]=$(printf "[%13s\n" "${words[$i+1]}") 126dbd1abb2SSasha Levin fi 127dbd1abb2SSasha Levin done 128dbd1abb2SSasha Levin 129310c6dd0SKonstantin Khlebnikov if [[ ${words[$last]} =~ \[([^]]+)\] ]]; then 130310c6dd0SKonstantin Khlebnikov module=${words[$last]} 131310c6dd0SKonstantin Khlebnikov module=${module#\[} 132310c6dd0SKonstantin Khlebnikov module=${module%\]} 133310c6dd0SKonstantin Khlebnikov symbol=${words[$last-1]} 134310c6dd0SKonstantin Khlebnikov unset words[$last-1] 135310c6dd0SKonstantin Khlebnikov else 136dbd1abb2SSasha Levin # The symbol is the last element, process it 137dbd1abb2SSasha Levin symbol=${words[$last]} 138310c6dd0SKonstantin Khlebnikov module= 139310c6dd0SKonstantin Khlebnikov fi 140310c6dd0SKonstantin Khlebnikov 141dbd1abb2SSasha Levin unset words[$last] 142dbd1abb2SSasha Levin parse_symbol # modifies $symbol 143dbd1abb2SSasha Levin 144dbd1abb2SSasha Levin # Add up the line number to the symbol 145310c6dd0SKonstantin Khlebnikov echo "${words[@]}" "$symbol $module" 146dbd1abb2SSasha Levin} 147dbd1abb2SSasha Levin 148dbd1abb2SSasha Levinwhile read line; do 149dbd1abb2SSasha Levin # Let's see if we have an address in the line 15053938ee4SJosh Poimboeuf if [[ $line =~ \[\<([^]]+)\>\] ]] || 15153938ee4SJosh Poimboeuf [[ $line =~ [^+\ ]+\+0x[0-9a-f]+/0x[0-9a-f]+ ]]; then 152dbd1abb2SSasha Levin # Translate address to line numbers 153dbd1abb2SSasha Levin handle_line "$line" 154dbd1abb2SSasha Levin # Is it a code line? 155dbd1abb2SSasha Levin elif [[ $line == *Code:* ]]; then 156dbd1abb2SSasha Levin decode_code "$line" 157dbd1abb2SSasha Levin else 158dbd1abb2SSasha Levin # Nothing special in this line, show it as is 159dbd1abb2SSasha Levin echo "$line" 160dbd1abb2SSasha Levin fi 161dbd1abb2SSasha Levindone 162