_gdbinit

   1 handle SIGUSR1 pass noprint nostop
   2 handle SIGUSR2 pass noprint nostop
   3 set follow-fork-mode child
   4
   5 # This is a bit tricky, because we have several cases,
   6 # and gdb has no easy 'is this symbol defined' tests.
   7 #
   8 # Case 1: Hosted AROSBootstrap (ie linux-i386)
   9 #         Provides SysBase, Debug_ModList, and Debug_KickList
  10 # Case 2: ROM (ie amiga-m68k)
  11 #         Provides AbsExecBase and SysBase
  12 #
  13 define _sysbase_init
  14     init-if-undefined $AbsExecBase = 0
  15     if $AbsExecBase != 0
  16         set $AbsExecBase = (struct IntExecBase *)$AbsExecBase
  17     end
  18 end
  19 document _sysbase_init
  20 Initialize $AbsExecBase convenience variables
  21 end
  22
  23 define _debug_init
  24     _sysbase_init
  25     init-if-undefined $_debug_DebugBase = 0
  26
  27     # This is the case for ROM debugging - the user must
  28     #  'set $AbsExecBase = 4', then this kicks in.
  29     if $AbsExecBase != 0 && $_debug_DebugBase == 0
  30         set $_debug_DebugBase = (struct DebugBase *)($AbsExecBase->DebugBase)
  31     end
  32
  33     if $_debug_DebugBase != 0
  34         set $_debug_DebugBase = (struct DebugBase *)($_debug_DebugBase)
  35         # This is the case for debugging a ROM
  36         set $_debug_ModList = &($_debug_DebugBase->db_Modules)
  37         set $_debug_KickList = $_debug_DebugBase->db_KernelModules
  38     else
  39         # This is the case for debugging a bootstrap
  40         init-if-undefined $_debug_ModList = Debug_ModList
  41         init-if-undefined $_debug_KickList = Debug_KickList
  42     end
  43 end
  44 document _debug_init
  45 Initialize debugging convenience variables
  46 end
  47
  48 define liblist
  49     _sysbase_init
  50     set $lib = ((struct ExecBase *)$AbsExecBase)->LibList.lh_Head
  51
  52     printf "Base     OpenC   Name\n"
  53     printf "---------------------------------------------------------------\n"
  54     while ($lib->ln_Succ != 0)
  55     printf "%p %5d   %s\n", \
  56         $lib, \
  57         ((struct Library *)$lib)->lib_OpenCnt, \
  58         $lib->ln_Name
  59     set $lib = $lib->ln_Succ
  60     end
  61 end
  62 document liblist
  63 List the current libraries in the system
  64 end
  65
  66 define devlist
  67     _debug_init
  68     set $dev = ((struct ExecBase *)$AbsExecBase)->DeviceList.lh_Head
  69     printf "Base     OpenC   Name\n"
  70     printf "---------------------------------------------------------------\n"
  71     while ($dev->ln_Succ != 0)
  72     printf "%p %5d   %s\n", \
  73         $dev, \
  74         ((struct Library *)$dev)->lib_OpenCnt, \
  75         $dev->ln_Name
  76     set $dev = $dev->ln_Succ
  77     end
  78 end
  79 document devlist
  80 List the current devices in the system
  81 end
  82
  83 define resourcelist
  84     _debug_init
  85     set $res = ((struct ExecBase *)$AbsExecBase)->ResourceList.lh_Head
  86     printf "Base     Name\n"
  87     printf "---------------------------------------------------------------\n"
  88     while ($res->ln_Succ != 0)
  89     printf "%p %s\n", $res, $res->ln_Name
  90     set $res = $res->ln_Succ
  91     end
  92 end
  93 document resourcelist
  94 List the current resources in the system
  95 end
  96
  97 define residentlist
  98     _debug_init
  99     set $resp = (struct Resident **)((struct ExecBase *)$AbsExecBase)->ResModules
 100     set $i = 0
 101
 102     printf "Address    Pri Flags Vers Type  Name\n"
 103     printf "--------------------------------------------------------------\n"
 104     while (($resp)[$i] != 0)
 105     set $res = ($resp)[$i]
 106     printf "%p  %4d    %02x  %3d  %3d  %s\n", \
 107         $res, \
 108         ((struct Resident *)$res)->rt_Pri, \
 109         ((struct Resident *)$res)->rt_Flags, \
 110         ((struct Resident *)$res)->rt_Version, \
 111         ((struct Resident *)$res)->rt_Type, \
 112         ((struct Resident *)$res)->rt_Name
 113     set $i = $i + 1
 114     end
 115 end
 116 document residentlist
 117 List the system resident list
 118 end
 119
 120 define taskready
 121     _debug_init
 122     set $task = (struct Task *)((struct ExecBase *)$AbsExecBase)->TaskReady.lh_Head
 123
 124     printf "Task     SigWait  SigRecvd StkSize   StkUsed Pri Type Name\n"
 125     printf "-----------------------------------------------------------------------------\n"
 126     while ($task->tc_Node.ln_Succ != 0)
 127     printf "%p %p %p %8d %8d %3d  %3ld %s\n", \
 128         $task, \
 129         $task->tc_SigWait, \
 130         $task->tc_SigRecvd, \
 131         $task->tc_SPUpper - $task->tc_SPLower, \
 132         $task->tc_SPUpper - $task->tc_SPReg, \
 133         $task->tc_Node.ln_Pri, \
 134         $task->tc_Node.ln_Type, \
 135         $task->tc_Node.ln_Name
 136     set $task = (struct Task *)$task->tc_Node.ln_Succ
 137     end
 138 end
 139 document taskready
 140 List of tasks currently ready to run
 141 end
 142
 143 define taskwait
 144     _debug_init
 145     set $task = (struct Task *)((struct ExecBase *)$AbsExecBase)->TaskWait.lh_Head
 146
 147     printf "Task     SigWait  SigRecvd StkSize   StkUsed Pri Type Name\n"
 148     printf "-----------------------------------------------------------------------------\n"
 149     while ($task->tc_Node.ln_Succ != 0)
 150     printf "%p %p %p %8d %8d %3d  %3ld %s\n", \
 151         $task, \
 152         $task->tc_SigWait, \
 153         $task->tc_SigRecvd, \
 154         $task->tc_SPUpper - $task->tc_SPLower, \
 155         $task->tc_SPUpper - $task->tc_SPReg, \
 156         $task->tc_Node.ln_Pri, \
 157         $task->tc_Node.ln_Type, \
 158         $task->tc_Node.ln_Name
 159     set $task = (struct Task *)$task->tc_Node.ln_Succ
 160     end
 161 end
 162 document taskwait
 163 List of tasks currently waiting for an event
 164 end
 165
 166 define thistask
 167     _debug_init
 168     set $task = (struct Task *)((struct ExecBase *)$AbsExecBase)->ThisTask
 169     printf "Task     SigWait  SigRecvd StkSize   StkUsed Pri Type Name\n"
 170     printf "-----------------------------------------------------------------------------\n"
 171     printf "%p %p %p %8d %8d %3d  %3ld %s\n", \
 172     $task, \
 173     $task->tc_SigWait, \
 174     $task->tc_SigRecvd, \
 175     $task->tc_SPUpper - $task->tc_SPLower, \
 176     $task->tc_SPUpper - $task->tc_SPReg, \
 177     $task->tc_Node.ln_Pri, \
 178     $task->tc_Node.ln_Type, \
 179     $task->tc_Node.ln_Name
 180 end
 181 document thistask
 182 Print out information about the currently running task.
 183 end
 184
 185 define modlist
 186     _debug_init
 187     printf "Segment           Module\n"
 188
 189     if $_debug_ModList
 190         printf "---------------------------------------------------------------------\n"
 191         set $segnode = (struct segment *)$_debug_ModList->mlh_Head
 192
 193         while ($segnode->s_node.mln_Succ != 0)
 194             printf "%p %12s %2u %32s\n", $segnode->s_lowest, $segnode->s_name, $segnode->s_num, $segnode->s_mod->m_name
 195
 196             set $segnode = (struct segment *)$segnode->s_node.mln_Succ
 197         end
 198     end
 199
 200     printf "---------------------------------------------------------------------\n"
 201     set $kicknode = $_debug_KickList
 202
 203     while ($kicknode != 0)
 204         set $eh = $kicknode->eh
 205         set $sh = $kicknode->sh
 206         set $shnum = $eh->shnum
 207
 208         set $i = 0
 209         while ($i < $shnum)
 210             if ($sh->addr != 0) && ($sh->size != 0)
 211         printf "%p              %2u %32s\n", $sh->addr, $i, $kicknode->Name
 212         end
 213         set $sh = $sh + 1
 214         set $i = $i + 1
 215     end
 216         set $kicknode = $kicknode->Next
 217     end
 218 end
 219 document modlist
 220 List of all the modules currently loaded in memory
 221 end
 222
 223 define findaddr
 224     _debug_init
 225     set $cont = 1
 226
 227     #first search in modules loaded from disk
 228     printf "Searching in the loaded modules...\n"
 229     if $_debug_ModList
 230         set $segnode = (struct segment *)$_debug_ModList->mlh_Head
 231
 232         while ($segnode->s_node.mln_Succ != 0) && $cont
 233         if $arg0 >= $segnode->s_lowest && $arg0 <= $segnode->s_highest
 234                 printf "Address found in %s, in segment %p.\nIf this is an executable, its .text section starts at %p.\n", $segnode->s_mod->m_name, $segnode->s_seg, $segnode->s_lowest
 235
 236                 set $cont = 0
 237             end
 238             set $segnode = (struct segment *)$segnode->s_node.mln_Succ
 239         end
 240     end
 241
 242     if $cont
 243     printf "Searching in the kickstart list...\n"
 244         set $kicknode = $_debug_KickList
 245
 246     while ($kicknode != 0) && $cont
 247             set $eh = $kicknode->eh
 248             set $sh = $kicknode->sh
 249             set $shnum = $eh->shnum
 250
 251             set $i = 0
 252             while ($i < $shnum) && $cont
 253                 if ($sh->addr != 0) && ($sh->size != 0)
 254             set $lowest  = $sh->addr
 255             set $highest = $sh->addr + $sh->size - 1
 256
 257             if $arg0 >= $lowest && $arg0 <= $highest
 258                 printf "Address found in %s in section number %d starting at %p.\n", $kicknode->Name, $i, $lowest
 259                         set $cont = 0
 260                     end
 261                 end
 262
 263         set $sh = $sh + 1
 264         set $i = $i + 1
 265         end
 266             set $kicknode = $kicknode->Next
 267         end
 268     end
 269
 270     #then in the resident list
 271     if $cont
 272         printf "Searching in the resident list...\n"
 273     end
 274
 275     set $resp = (struct Resident **)((struct ExecBase *)$AbsExecBase)->ResModules
 276     set $i = 0
 277
 278     while (($resp)[$i] != 0) && $cont
 279     set $res = ($resp)[$i]
 280
 281         if ($arg0 >= $res) && ($arg0 <= $res->rt_EndSkip)
 282             printf "Address found in %s, which resides at %p\n", $res->rt_Name, $res
 283             set $cont = 0
 284         end
 285
 286         set $i = $i + 1
 287     end
 288
 289     if $cont
 290         printf "No matching module for this address\n"
 291     end
 292 end
 293 document findaddr
 294 -Shows the module that contains the given address
 295 -
 296 -To debug a problem in AROS, do the following:
 297 -
 298 -1. Get a stacktrace with bt or similar.
 299 -2. Use findaddr with such an address to find out in which
 300 -   module it is:
 301 -3. Use add-symbol-file to load that modules symbols.
 302 -4. Now you can run bt (or similar) again and you should see the
 303 -   addresses resolved as symbols.
 304 -
 305 -Example:
 306 -
 307 -0x4058d45b in ?? ()
 308 -
 309 -(gdb) findaddr 0x4058d45b
 310 -
 311 -Searching in the loaded modules...
 312 -Address found in Workbench:contrib/Zune/Libs/muimaster.library, which is loaded at 0x405379a4.
 313 -If this is an executable, its .text section starts at 0x405379b0.
 314 -(gdb) add-symbol-file contrib/Zune/Libs/muimaster.library 0x405379b0
 315 -add symbol table from file "contrib/Zune/Libs/muimaster.library" at
 316 -        .text_addr = 0x405379b0
 317 -(y or n) y
 318 -Reading symbols from contrib/Zune/Libs/muimaster.library...done.
 319 -(gdb) bt
 320 -#0  0x4058d45b in strlen (ptr=0x80 <Address 0x80 out of bounds>) at strlen.c:45
 321 -#1  0x00000000 in lastx.78 ()
 322 end
 323
 324 define printtaglist
 325     set $list = (struct TagItem *)$arg0
 326
 327     printf "Tag         Data (Hex)     Data (Dec)\n"
 328     printf "--------------------------------------\n"
 329
 330     while $list->ti_Tag != 0
 331     # Handle the possible control tag...
 332     if $list->ti_Tag == 1
 333         printf "TAG_IGNORE\n"
 334     else if $list->ti_Tag == 2
 335         printf "TAG_MORE    %p\n", $list->ti_Data
 336         set $list = (struct TagItem *)$list->ti_Data
 337     else if $list->ti_Tag == 3
 338         printf "TAG_SKIP    %d\n", $list->ti_Data
 339         set $list = $list + $list->ti_Tag + 1
 340     else
 341         printf "%p  %p      %9lu\n", $list->ti_Tag, $list->ti_Data, $list->ti_Data
 342         set $list = $list + 1
 343     end
 344     end
 345     printf "TAG_DONE\n"
 346 end
 347 document printtaglist
 348 end
 349
 350 define log_to_file
 351   set logging file $arg0
 352   set logging redirect on
 353   set logging overwrite $arg1
 354   set logging on
 355 end
 356
 357 define end_log
 358   set logging off
 359 end
 360
 361 define loadseg
 362     _debug_init
 363     dont-repeat
 364     if $_debug_ModList
 365         set $step = 1
 366         set $segnode = (struct segment *)$_debug_ModList->mlh_Head
 367         while ($segnode->s_node.mln_Succ != 0) && $step == 1
 368             if $arg0 >= $segnode->s_lowest && $arg0 <= $segnode->s_highest
 369                 log_to_file segname.tmp on
 370                 printf "%s", $segnode->s_mod->m_name
 371                 end_log
 372                 shell sed -i 's/.*:\(.*\)/\1/' segname.tmp
 373                 log_to_file loadseg.tmp on
 374                 printf "add-symbol-file "
 375                 end_log
 376                 shell head -n1 segname.tmp >>loadseg.tmp
 377                 log_to_file loadseg.tmp off
 378                 printf " %p", $segnode->s_lowest
 379                 if $segnode->s_node.mln_Succ != 0
 380                     set $segnode = (struct segment *)$segnode->s_node.mln_Succ
 381                     while ($segnode->s_node.mln_Succ != 0) && $step < 5
 382                         if strcmp($segnode->s_name, ".text") == 0
 383                             loop_break
 384                         end
 385                         printf " -s %s %p", $segnode->s_name, $segnode->s_lowest
 386                         set $step = $step + 1
 387                         set $segnode = (struct segment *)$segnode->s_node.mln_Succ
 388                     end
 389                 end
 390                 end_log
 391                 source loadseg.tmp
 392                 loop_break
 393             end
 394             set $segnode = (struct segment *)$segnode->s_node.mln_Succ
 395         end
 396
 397
 398         if $step < 2
 399             set $kicknode = $_debug_KickList
 400
 401             while ($kicknode != 0) && $step == 1
 402                 set $eh = $kicknode->eh
 403                 set $sh = $kicknode->sh
 404                 set $shnum = $eh->shnum
 405
 406                 set $i = 0
 407                 while ($i < $shnum)
 408                     if ($sh->addr != 0) && ($sh->size != 0)
 409                         set $lowest  = $sh->addr
 410                         set $highest = $sh->addr + $sh->size - 1
 411
 412                         if $arg0 >= $lowest && $arg0 <= $highest
 413                             set $shstrndx = $eh->shstrndx
 414                             set $shstr = 0
 415
 416                             if ($shstrndx < 0xFF00)
 417                                 set $shstr = $shstrndx
 418                             end
 419                             if ($shstrndx > 0xFFFF)
 420                                 set $shstr = $shstrndx - (0x10000 - 0xFF00)
 421                             end
 422
 423                             log_to_file segname.tmp on
 424                             printf "%s", $kicknode->Name
 425                             end_log
 426                             shell sed -i 's/.*:\(.*\)/\1/' segname.tmp
 427                             log_to_file loadseg.tmp on
 428                             printf "add-symbol-file "
 429                             end_log
 430                             shell head -n1 segname.tmp >>loadseg.tmp
 431                             log_to_file loadseg.tmp off
 432                             printf " %p", $lowest
 433
 434                             set $sh = $sh + 1
 435                             set $i = $i + 1
 436
 437                             while ($i < $shnum)
 438                                 if ($sh->addr != 0) && ($sh->size != 0)
 439 #                                   This code does not work, cause error. I have no knowledge on how to make it work.
 440 #                                    set $segname = $kicknode->sh[$shstr] + $sh->name
 441 #                                    printf " -s %s %p", $segname, $sh->addr
 442                                 end
 443                                 set $step = $step + 1
 444                                 set $sh = $sh + 1
 445                                 set $i = $i + 1
 446                             end
 447
 448                             end_log
 449                             source loadseg.tmp
 450                             loop_break
 451                         end
 452                     end
 453
 454                     set $sh = $sh + 1
 455                     set $i = $i + 1
 456                 end
 457                 set $kicknode = $kicknode->Next
 458             end
 459         end
 460
 461         if $step < 2
 462             printf "No matching module for this address\n"
 463         end
 464
 465
 466     end
 467 end
 468 document loadseg
 469 Loads the module that contains the given address
 470 end
 471
 472 define loadkick
 473     _debug_init
 474     set $_kicknode = $_debug_KickList
 475
 476     while ($_kicknode != 0)
 477         set $_eh = $_kicknode->eh
 478         set $_sh = $_kicknode->sh
 479         set $_shnum = $_eh->shnum
 480
 481         set $_i = 0
 482         while ($_i < $_shnum)
 483             if ($_i == 1) && ($_sh->addr != 0) && ($_sh->size != 0)
 484                 loadseg $_sh->addr
 485             end
 486             set $_sh = $_sh + 1
 487             set $_i = $_i + 1
 488         end
 489         set $_kicknode = $_kicknode->Next
 490     end
 491 end
 492 document loadkick
 493 Loads the Kickstart (symbols)
 494 end
 495
 496 define loadmods
 497     _debug_init
 498
 499     if $_debug_ModList
 500         set $_segnode = (struct segment *)$_debug_ModList->mlh_Head
 501
 502         while ($_segnode->s_node.mln_Succ != 0)
 503             if $_segnode->s_num == 1
 504                 loadseg $_segnode->s_lowest
 505             end
 506             set $_segnode = (struct segment *)$_segnode->s_node.mln_Succ
 507         end
 508     end
 509 end
 510 document loadmods
 511 Loads all the modules (symbols)
 512 end
 513
 514 define loadall
 515     loadkick
 516     loadmods
 517 end
 518 document loadall
 519 Loads the symbols of the Kickstart and all modules
 520 end
 521
 522 define loadframe
 523     log_to_file frameinfo.tmp on
 524     info frame $arg0
 525     end_log
 526
 527     shell grep "eip =" frameinfo.tmp >loadseg.tmp
 528     shell sed -e 's/eip = \(0x[0-9,a-f]*\).*/loadseg \1/' loadseg.tmp >frameinfo.tmp
 529
 530     source frameinfo.tmp
 531 end
 532 document loadframe
 533 Loads the symbols for the given stack frame number
 534 end
 535
 536 define loadframes
 537     set $_again = 1
 538     printf "\n\n"
 539
 540     while ($_again == 1)
 541         bt
 542         printf "\nEnter stack frame number to resolve or RETURN to stop: \n\n"
 543
 544         set $_answer = 1000
 545
 546         shell read _gdb_answer && echo $_gdb_answer | grep -E "[0-9]+" | sed "s/\(.*\)/set \$_answer=\1/" >frameinfo.tmp
 547
 548         source frameinfo.tmp
 549         printf "\n\n"
 550
 551         if $_answer == 1000
 552             set $_again = 0
 553         else
 554             loadframe $_answer
 555         end
 556     end
 557 end
 558 document loadframes
 559 Interactive multiple loading of symbols for given stack frame numbers
 560 end
 561
 562 define loadbt
 563     set $_frame_counter = 0
 564
 565     set $_again = 1
 566     while ($_again == 1)
 567         printf "Checking frame #%d\n", $_frame_counter
 568
 569         set $_again = 0
 570
 571         log_to_file loadseg.tmp on
 572         bt
 573         end_log
 574
 575         # Check if frame exists
 576
 577         log_to_file frameinfo.tmp on
 578         printf "shell grep \"#%d .*\" loadseg.tmp | sed \"s/#.*/set \\$_again = 1/\" >loadbt.tmp\n", $_frame_counter
 579         end_log
 580
 581         source frameinfo.tmp
 582         source loadbt.tmp
 583
 584         if $_again == 1
 585
 586             # If frame is unresolved ("in ??") transform to "loadseg address"
 587
 588             log_to_file frameinfo.tmp on
 589             printf "shell grep \"#%d .* in ??\" loadseg.tmp | sed \"s/#.*\\(0x[0-9,a-f]*\\) .*/loadseg \\1/\" >loadbt.tmp\n", $_frame_counter
 590             end_log
 591
 592             source frameinfo.tmp
 593             source loadbt.tmp
 594
 595             set $_frame_counter = $_frame_counter + 1
 596             if ($_frame_counter == 1000)
 597                 set $_again = 0
 598             end
 599         end
 600     end
 601 end
 602 document loadbt
 603 Tries to automatically load the symbols for all unresolved stack frames
 604 end
 605
 606 define seglistdump
 607     _debug_init
 608     set $nextseg = $arg0
 609     set $count   = 1
 610
 611     printf "Hunk num. | Start addr | Size       \n"
 612     printf "----------+------------+------------\n"
 613     while $nextseg
 614         printf "%9d | %p | %10d\n", $count, $nextseg + sizeof(BPTR), *((ULONG *)$nextseg - 1) - sizeof(BPTR)
 615
 616         set $nextseg = *(BPTR *)$nextseg
 617         set $count = $count+1
 618     end
 619 end
 620 document seglistdump
 621 Shows the segments chain of the given seglist
 622 end
 623
 624 define bttask
 625     set $task = (struct Task *)$arg0
 626     if ($task->tc_Node.ln_Type != 1) && ($task->tc_Node.ln_Type != 13)
 627         printf "ERROR: Given address does not look like a task or process!\n"
 628     else
 629         #FIXME: The following assumes Linux x86
 630         set $old_esp = $esp
 631         set $old_eip = $eip
 632
 633         if $task->tc_State == 2
 634             printf "WARNING: TS_RUN Task. Showing normal backtrace!\n"
 635         else
 636             set $esp = $task->tc_SPReg
 637             set $taskcontext = (struct AROSCPUContext *)$task->tc_UnionETask.tc_ETask.et_RegFrame
 638             set $eip = $taskcontext.regs.eip
 639         end
 640
 641         bt
 642
 643         set $esp = $old_esp
 644         set $eip = $old_eip
 645     end
 646 end
 647 document bttask
 648 Shows the backtrace of the given TS_READY/TS_WAIT task
 649 end
 650
 651 define semowner
 652     set $sem = (struct SignalSemaphore *)$arg0
 653     if $sem->ss_Link.ln_Type != 15
 654         printf "ERROR: Given address does not look like a semaphore!\n"
 655     else
 656         if $sem->ss_QueueCount == -1
 657             printf "The semaphore is free\n"
 658         else
 659             if $sem->ss_Owner == 0
 660                 printf "The semaphore is locked in shared mode by one or more tasks\n"
 661             else
 662                     printf "The semaphore is owned by task %p (%s)\n", $sem->ss_Owner, $sem->ss_Owner->tc_Node.ln_Name
 663             end
 664
 665             printf "\nWait Queue:\n\n"
 666
 667             set $waitnode = (struct SemaphoreRequest *)$sem->ss_WaitQueue.mlh_Head
 668
 669             while ($waitnode->sr_Link.mln_Succ != 0)
 670                 set $waitertask = $waitnode->sr_Waiter
 671                 if (int)$waitertask & 1
 672                     set $waitertask = $waitertask & ~1
 673                     printf " SHARED    "
 674                 else
 675                     printf " EXCLUSIVE "
 676                 end
 677                 printf"%p %s\n", $waitertask, $waitertask->tc_Node.ln_Name
 678                 set $waitnode = (struct SemaphoreRequest *)$waitnode->sr_Link.mln_Succ
 679             end
 680         end
 681     end
 682 end
 683 document semowner
 684 Shows the owner of the given Exec Semaphore and the Wait Queue
 685 end