define lisp_string
x/s ($arg0-2)
end

define pname
lisp_string (*($arg0-2))
end

# show entrypoint of function
define entry
if ((($arg0&7)!=6)||((*(char*)$arg0-3)!=0x2a)) then
printf "Not a function - 0x~08x", $arg0
else
x/i 
end
end

handle SIGILL pass nostop noprint
handle SIGSEGV pass nostop noprint
handle SIGBUS pass nostop noprint

define ada 
 p *KG->all_areas->succ
end

define hook-stop
handle SIGALRM nopass
end
     
define hook-run
handle SIGALRM pass
end
     
define hook-continue
handle SIGALRM pass
end

break Bug
