set disassembly-flavor intel

set print pretty on

add-auto-load-safe-path /usr/bin/mono-gdb.py

handle SIGXCPU SIG33 SIG35 SIGPWR nostop noprint

define mono_backtrace

select-frame 0

set $i = 0

while ($i < $arg0)

set $foo = (char*) mono_pmip ($pc)

if ($foo)

printf "#%d %p in %s\n", $i, $pc, $foo

else

frame

end

up-silently

set $i = $i + 1

end

end

define mono_stack

set $mono_thread = mono_thread_current ()

if ($mono_thread == 0x00)

printf "No mono thread associated with this thread\n"

else

set $ucp = malloc (sizeof (ucontext_t))

call (void) getcontext ($ucp)

call (void) mono_print_thread_dump ($ucp)

call (void) free ($ucp)

end

end