rom/debug/unregistermodule.c

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