diff options
| author | Ben Cheng <bccheng@google.com> | 2013-06-24 14:30:48 -0700 |
|---|---|---|
| committer | Ben Cheng <bccheng@google.com> | 2013-06-24 14:30:48 -0700 |
| commit | 0708600d533e7601e689abe9241dcdca2a4ae72d (patch) | |
| tree | e8bcae6f67658854e60c7b80245bead9116712a4 /scripts/gdb | |
| parent | f7b000b8c8c8489b7fec4f523a90c356028bbcc6 (diff) | |
| download | android_development-0708600d533e7601e689abe9241dcdca2a4ae72d.tar.gz android_development-0708600d533e7601e689abe9241dcdca2a4ae72d.tar.bz2 android_development-0708600d533e7601e689abe9241dcdca2a4ae72d.zip | |
Add a GDB script to crawl the Dalvik stack.
Change-Id: I5635a2fc8a8fe8105527312429dd43139c8727a8
Diffstat (limited to 'scripts/gdb')
| -rw-r--r-- | scripts/gdb/dalvik.gdb | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/scripts/gdb/dalvik.gdb b/scripts/gdb/dalvik.gdb new file mode 100644 index 000000000..cab0951d7 --- /dev/null +++ b/scripts/gdb/dalvik.gdb @@ -0,0 +1,51 @@ +# dump dalvik backtrace +define dbt + if $argc == 1 + set $FP = $arg0 + else + set $FP = $r5 + end + + set $frame = 0 + set $savedPC = 0 + while $FP + set $stackSave = $FP - sizeof(StackSaveArea) + set $savedPC = ((StackSaveArea *)$stackSave)->savedPc + set $method = ((StackSaveArea *)$stackSave)->method + printf "#%d\n", $frame + printf " FP = %#x\n", $FP + printf " stack save = %#x\n", $stackSave + printf " Curr pc = %#x\n", ((StackSaveArea *) $stackSave)->xtra.currentPc + printf " FP prev = %#x\n", ((StackSaveArea *) $stackSave)->prevFrame + if $method != 0 + printf " returnAddr: 0x%x\n", \ + ((StackSaveArea *)$stackSave)->returnAddr + printf " class = %s\n", ((Method *) $method)->clazz->descriptor + printf " method = %s (%#08x)\n", ((Method *) $method)->name, $method + printf " signature = %s\n", ((Method *) $method)->shorty + printf " bytecode offset = 0x%x\n", (short *) (((StackSaveArea *) $stackSave)->xtra.currentPc) - (short *) (((Method *) $method)->insns) + set $regSize = ((Method *) $method)->registersSize + set $insSize = ((Method *) $method)->insSize + set $index = 0 + while $index < $regSize + printf " v%d = %d", $index, ((int *)$FP)[$index] + if $regSize - $index <= $insSize + printf " (in%d)\n", $insSize - $regSize + $index + else + printf " (local%d)\n", $index + end + set $index = $index + 1 + end + else + printf " break frame\n" + end + set $FP = (int) ((StackSaveArea *)$stackSave)->prevFrame + set $frame = $frame + 1 + end +end + +document dbt + Unwind Dalvik stack frames. Argument 0 is the frame address of the top + frame. If omitted r5 will be used as the default (as the case in the + interpreter and JIT'ed code). +end |