diff options
| author | Ben Cheng <bccheng@google.com> | 2013-06-24 21:44:41 +0000 |
|---|---|---|
| committer | Android (Google) Code Review <android-gerrit@google.com> | 2013-06-24 21:44:41 +0000 |
| commit | 434ffc1f30af95f27562c9adf3bb16c8bdca10da (patch) | |
| tree | 9e155eefbdd6689adbd819e6198c45259216cf08 | |
| parent | 7ce3f66078dc161e53486e92d1459f9432ada632 (diff) | |
| parent | 0708600d533e7601e689abe9241dcdca2a4ae72d (diff) | |
| download | android_development-434ffc1f30af95f27562c9adf3bb16c8bdca10da.tar.gz android_development-434ffc1f30af95f27562c9adf3bb16c8bdca10da.tar.bz2 android_development-434ffc1f30af95f27562c9adf3bb16c8bdca10da.zip | |
Merge "Add a GDB script to crawl the Dalvik stack."
| -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 |