1dbd1abb2SSasha Levin#!/bin/bash 2dbd1abb2SSasha Levin# (c) 2014, Sasha Levin <[email protected]> 3dbd1abb2SSasha Levin#set -x 4dbd1abb2SSasha Levin 5310c6dd0SKonstantin Khlebnikovif [[ $# < 2 ]]; then 6dbd1abb2SSasha Levin echo "Usage:" 7310c6dd0SKonstantin Khlebnikov echo " $0 [vmlinux] [base path] [modules path]" 8dbd1abb2SSasha Levin exit 1 9dbd1abb2SSasha Levinfi 10dbd1abb2SSasha Levin 11dbd1abb2SSasha Levinvmlinux=$1 12dbd1abb2SSasha Levinbasepath=$2 13310c6dd0SKonstantin Khlebnikovmodpath=$3 14dbd1abb2SSasha Levindeclare -A cache 15310c6dd0SKonstantin Khlebnikovdeclare -A modcache 16dbd1abb2SSasha Levin 17dbd1abb2SSasha Levinparse_symbol() { 18dbd1abb2SSasha Levin # The structure of symbol at this point is: 19e260fe01SRobert Jarzmik # ([name]+[offset]/[total length]) 20dbd1abb2SSasha Levin # 21dbd1abb2SSasha Levin # For example: 22dbd1abb2SSasha Levin # do_basic_setup+0x9c/0xbf 23dbd1abb2SSasha Levin 24310c6dd0SKonstantin Khlebnikov if [[ $module == "" ]] ; then 25310c6dd0SKonstantin Khlebnikov local objfile=$vmlinux 26310c6dd0SKonstantin Khlebnikov elif [[ "${modcache[$module]+isset}" == "isset" ]]; then 27310c6dd0SKonstantin Khlebnikov local objfile=${modcache[$module]} 28310c6dd0SKonstantin Khlebnikov else 29310c6dd0SKonstantin Khlebnikov [[ $modpath == "" ]] && return 30310c6dd0SKonstantin Khlebnikov local objfile=$(find "$modpath" -name $module.ko -print -quit) 31310c6dd0SKonstantin Khlebnikov [[ $objfile == "" ]] && return 32310c6dd0SKonstantin Khlebnikov modcache[$module]=$objfile 33310c6dd0SKonstantin Khlebnikov fi 34310c6dd0SKonstantin Khlebnikov 35e260fe01SRobert Jarzmik # Remove the englobing parenthesis 36e260fe01SRobert Jarzmik symbol=${symbol#\(} 37e260fe01SRobert Jarzmik symbol=${symbol%\)} 38dbd1abb2SSasha Levin 39dbd1abb2SSasha Levin # Strip the symbol name so that we could look it up 40dbd1abb2SSasha Levin local name=${symbol%+*} 41dbd1abb2SSasha Levin 42dbd1abb2SSasha Levin # Use 'nm vmlinux' to figure out the base address of said symbol. 43dbd1abb2SSasha Levin # It's actually faster to call it every time than to load it 44dbd1abb2SSasha Levin # all into bash. 45310c6dd0SKonstantin Khlebnikov if [[ "${cache[$module,$name]+isset}" == "isset" ]]; then 46310c6dd0SKonstantin Khlebnikov local base_addr=${cache[$module,$name]} 47dbd1abb2SSasha Levin else 48310c6dd0SKonstantin Khlebnikov local base_addr=$(nm "$objfile" | grep -i ' t ' | awk "/ $name\$/ {print \$1}" | head -n1) 49310c6dd0SKonstantin Khlebnikov cache[$module,$name]="$base_addr" 50dbd1abb2SSasha Levin fi 51dbd1abb2SSasha Levin # Let's start doing the math to get the exact address into the 52dbd1abb2SSasha Levin # symbol. First, strip out the symbol total length. 53dbd1abb2SSasha Levin local expr=${symbol%/*} 54dbd1abb2SSasha Levin 55dbd1abb2SSasha Levin # Now, replace the symbol name with the base address we found 56dbd1abb2SSasha Levin # before. 57dbd1abb2SSasha Levin expr=${expr/$name/0x$base_addr} 58dbd1abb2SSasha Levin 59dbd1abb2SSasha Levin # Evaluate it to find the actual address 60dbd1abb2SSasha Levin expr=$((expr)) 61dbd1abb2SSasha Levin local address=$(printf "%x\n" "$expr") 62dbd1abb2SSasha Levin 63dbd1abb2SSasha Levin # Pass it to addr2line to get filename and line number 64dbd1abb2SSasha Levin # Could get more than one result 65310c6dd0SKonstantin Khlebnikov if [[ "${cache[$module,$address]+isset}" == "isset" ]]; then 66310c6dd0SKonstantin Khlebnikov local code=${cache[$module,$address]} 67dbd1abb2SSasha Levin else 68310c6dd0SKonstantin Khlebnikov local code=$(addr2line -i -e "$objfile" "$address") 69310c6dd0SKonstantin Khlebnikov cache[$module,$address]=$code 70dbd1abb2SSasha Levin fi 71dbd1abb2SSasha Levin 72dbd1abb2SSasha Levin # addr2line doesn't return a proper error code if it fails, so 73dbd1abb2SSasha Levin # we detect it using the value it prints so that we could preserve 74dbd1abb2SSasha Levin # the offset/size into the function and bail out 75dbd1abb2SSasha Levin if [[ $code == "??:0" ]]; then 76dbd1abb2SSasha Levin return 77dbd1abb2SSasha Levin fi 78dbd1abb2SSasha Levin 79dbd1abb2SSasha Levin # Strip out the base of the path 80dbd1abb2SSasha Levin code=${code//$basepath/""} 81dbd1abb2SSasha Levin 82dbd1abb2SSasha Levin # In the case of inlines, move everything to same line 83dbd1abb2SSasha Levin code=${code//$'\n'/' '} 84dbd1abb2SSasha Levin 85dbd1abb2SSasha Levin # Replace old address with pretty line numbers 86dbd1abb2SSasha Levin symbol="$name ($code)" 87dbd1abb2SSasha Levin} 88dbd1abb2SSasha Levin 89dbd1abb2SSasha Levindecode_code() { 90dbd1abb2SSasha Levin local scripts=`dirname "${BASH_SOURCE[0]}"` 91dbd1abb2SSasha Levin 92dbd1abb2SSasha Levin echo "$1" | $scripts/decodecode 93dbd1abb2SSasha Levin} 94dbd1abb2SSasha Levin 95dbd1abb2SSasha Levinhandle_line() { 96dbd1abb2SSasha Levin local words 97dbd1abb2SSasha Levin 98dbd1abb2SSasha Levin # Tokenize 99dbd1abb2SSasha Levin read -a words <<<"$1" 100dbd1abb2SSasha Levin 101dbd1abb2SSasha Levin # Remove hex numbers. Do it ourselves until it happens in the 102dbd1abb2SSasha Levin # kernel 103dbd1abb2SSasha Levin 104dbd1abb2SSasha Levin # We need to know the index of the last element before we 105dbd1abb2SSasha Levin # remove elements because arrays are sparse 106dbd1abb2SSasha Levin local last=$(( ${#words[@]} - 1 )) 107dbd1abb2SSasha Levin 108dbd1abb2SSasha Levin for i in "${!words[@]}"; do 109dbd1abb2SSasha Levin # Remove the address 110dbd1abb2SSasha Levin if [[ ${words[$i]} =~ \[\<([^]]+)\>\] ]]; then 111dbd1abb2SSasha Levin unset words[$i] 112dbd1abb2SSasha Levin fi 113dbd1abb2SSasha Levin 114dbd1abb2SSasha Levin # Format timestamps with tabs 115dbd1abb2SSasha Levin if [[ ${words[$i]} == \[ && ${words[$i+1]} == *\] ]]; then 116dbd1abb2SSasha Levin unset words[$i] 117dbd1abb2SSasha Levin words[$i+1]=$(printf "[%13s\n" "${words[$i+1]}") 118dbd1abb2SSasha Levin fi 119dbd1abb2SSasha Levin done 120dbd1abb2SSasha Levin 121310c6dd0SKonstantin Khlebnikov if [[ ${words[$last]} =~ \[([^]]+)\] ]]; then 122310c6dd0SKonstantin Khlebnikov module=${words[$last]} 123310c6dd0SKonstantin Khlebnikov module=${module#\[} 124310c6dd0SKonstantin Khlebnikov module=${module%\]} 125310c6dd0SKonstantin Khlebnikov symbol=${words[$last-1]} 126310c6dd0SKonstantin Khlebnikov unset words[$last-1] 127310c6dd0SKonstantin Khlebnikov else 128dbd1abb2SSasha Levin # The symbol is the last element, process it 129dbd1abb2SSasha Levin symbol=${words[$last]} 130310c6dd0SKonstantin Khlebnikov module= 131310c6dd0SKonstantin Khlebnikov fi 132310c6dd0SKonstantin Khlebnikov 133dbd1abb2SSasha Levin unset words[$last] 134dbd1abb2SSasha Levin parse_symbol # modifies $symbol 135dbd1abb2SSasha Levin 136dbd1abb2SSasha Levin # Add up the line number to the symbol 137310c6dd0SKonstantin Khlebnikov echo "${words[@]}" "$symbol $module" 138dbd1abb2SSasha Levin} 139dbd1abb2SSasha Levin 140dbd1abb2SSasha Levinwhile read line; do 141dbd1abb2SSasha Levin # Let's see if we have an address in the line 142*53938ee4SJosh Poimboeuf if [[ $line =~ \[\<([^]]+)\>\] ]] || 143*53938ee4SJosh Poimboeuf [[ $line =~ [^+\ ]+\+0x[0-9a-f]+/0x[0-9a-f]+ ]]; then 144dbd1abb2SSasha Levin # Translate address to line numbers 145dbd1abb2SSasha Levin handle_line "$line" 146dbd1abb2SSasha Levin # Is it a code line? 147dbd1abb2SSasha Levin elif [[ $line == *Code:* ]]; then 148dbd1abb2SSasha Levin decode_code "$line" 149dbd1abb2SSasha Levin else 150dbd1abb2SSasha Levin # Nothing special in this line, show it as is 151dbd1abb2SSasha Levin echo "$line" 152dbd1abb2SSasha Levin fi 153dbd1abb2SSasha Levindone 154