arch/ppc-chrp/dos/internalunloadseg.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id: internalunloadseg.c 29642 2008-10-02 00:06:13Z mazze $
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "dos_intern.h"
   9 #include <proto/exec.h>
  10 #include <proto/kernel.h>
  11 #include <aros/libcall.h>
  12 #include <aros/asmcall.h>
  13 #include <exec/libraries.h>
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/dos.h>
  19
  20         AROS_LH2(BOOL, InternalUnLoadSeg,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(BPTR     , seglist , D1),
  24         AROS_LHA(VOID_FUNC, freefunc, A1),
  25
  26 /*  LOCATION */
  27         struct DosLibrary *, DOSBase, 127, Dos)
  28
  29 /*  FUNCTION
  30         Unloads a seglist loaded with InternalLoadSeg().
  31
  32     INPUTS
  33         seglist  - Seglist
  34         freefunc - Function to be called to free memory
  35
  36     RESULT
  37         DOSTRUE if everything wents O.K.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51   AROS_LIBFUNC_INIT
  52
  53   BPTR next;
  54   void *KernelBase = OpenResource("kernel.resource");
  55
  56   if (seglist)
  57   {
  58 #if AROS_MODULES_DEBUG
  59     extern struct MinList debug_seglist;
  60     extern struct MinList free_debug_segnodes;
  61     struct debug_segnode *segnode;
  62
  63     Forbid();
  64     ForeachNode(&debug_seglist, segnode)
  65     {
  66       if (segnode->seglist == seglist)
  67       {
  68         /* use the same free function as loadseg ! */
  69         struct seginfo *si;
  70         while ((si = (struct seginfo *)REMHEAD(&segnode->seginfos)))
  71         {
  72           AROS_CALL2NR(void, freefunc,
  73             AROS_LCA(APTR ,  (APTR)si, A1),
  74             AROS_LCA(ULONG,  (ULONG)sizeof(struct seginfo), D0),
  75             struct Library *, (struct Library *)SysBase
  76           );
  77         }
  78
  79         REMOVE(segnode);
  80         ADDHEAD(&free_debug_segnodes, segnode);
  81         break;
  82       }
  83     }
  84     Permit();
  85 #endif
  86
  87     while (seglist)
  88     {
  89       next = *(BPTR *)BADDR(seglist);
  90
  91       char *seg = (ULONG)seglist;
  92       seg += (*(LONG *)((LONG)BADDR(seglist) - sizeof(ULONG))) / 2;
  93       KrnUnregisterModule(seg);
  94
  95       AROS_CALL2NR(void, freefunc,
  96         AROS_LCA(APTR ,  (BPTR *)((LONG)BADDR(seglist) - sizeof(ULONG)), A1),
  97         AROS_LCA(ULONG, *(LONG *)((LONG)BADDR(seglist) - sizeof(ULONG)), D0),
  98         struct Library *, (struct Library *)SysBase
  99       );
 100
 101       seglist = next;
 102     }
 103     return TRUE;
 104   }
 105   else
 106     return FALSE;
 107
 108   AROS_LIBFUNC_EXIT
 109 } /* InternalUnLoadSeg */