rom/debug/unregistermodule.c

   1 #include <aros/debug.h>
   2 #include <aros/kernel.h>
   3 #include <aros/libcall.h>
   4 #include <exec/lists.h>
   5 #include <proto/exec.h>
   6
   7 #include <string.h>
   8
   9 #include "debug_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/debug.h>
  15
  16 AROS_LH1(void, UnregisterModule,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(BPTR, segList, A0),
  20
  21 /*  LOCATION */
  22         struct Library *, DebugBase, 6, Debug)
  23
  24 /*  FUNCTION
  25         Remove previously registered module from the debug information database
  26
  27     INPUTS
  28         segList - DOS segment list for the module to remove
  29
  30     RESULT
  31         None
  32
  33     NOTES
  34         The function correctly supports partial removal of the module
  35         (when an existing seglist is broken and only a part of the module
  36         is unloaded).
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 ******************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     struct segment *seg;
  51
  52     D(bug("[Debug] UnregisterModule(0x%p)\n", segList));
  53     ObtainSemaphore(&DBGBASE(DebugBase)->db_ModSem);
  54
  55     while (segList)
  56     {
  57         ForeachNode(&DBGBASE(DebugBase)->db_Modules, seg)
  58         {
  59             if (seg->s_seg == segList)
  60             {
  61                 module_t *mod = seg->s_mod;
  62
  63                 D(bug("[Debug] Removing segment 0x%p\n", segList));
  64                 Remove((struct Node *)seg);
  65
  66                 /* If module's segment count reached 0, remove the whole
  67                    module information */
  68                 if (--mod->m_segcnt == 0)
  69                 {
  70                     D(bug("[Debug] Removing module %s\n", mod->m_name));
  71
  72                     /* Free associated symbols */
  73                     if (mod->m_symbols) {
  74                         D(bug("[Debug] Removing symbol table 0x%p\n", mod->m_symbols));
  75                         FreeVec(mod->m_symbols);
  76                     }
  77
  78                     /* Free associated string tables */
  79                     if (mod->m_str) {
  80                         D(bug("[Debug] Removing symbol name table 0x%p\n", mod->m_str));
  81                         FreeVec(mod->m_str);
  82                     }
  83                     if (mod->m_shstr) {
  84                         D(bug("[Debug] Removing section name table 0x%p\n", mod->m_str));
  85                         FreeVec(mod->m_shstr);
  86                     }
  87
  88                     /* Free module descriptor at last */
  89                     FreeVec(mod);
  90                 }
  91
  92                 FreeMem(seg, sizeof(struct segment));
  93
  94                 break;
  95             }
  96         }
  97         /* Advance to next DOS segment */
  98         segList = *(BPTR *)BADDR(segList);
  99     }
 100
 101     ReleaseSemaphore(&DBGBASE(DebugBase)->db_ModSem);
 102
 103     AROS_LIBFUNC_EXIT
 104 }