arch/ppc-chrp/dos/internalunloadseg.c

   1 /*
   2     Copyright � 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "dos_intern.h"
   9 #include <proto/exec.h>
  10 #include <aros/libcall.h>
  11 #include <aros/asmcall.h>
  12 #include <exec/libraries.h>
  13 #include <proto/kernel.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
  55   if (seglist)
  56   {
  57     APTR KernelBase = OpenResource("kernel.resource");
  58
  59     while (seglist)
  60     {
  61       next = *(BPTR *)BADDR(seglist);
  62
  63       char *seg = (ULONG)seglist;
  64       seg += (*(LONG *)((LONG)BADDR(seglist) - sizeof(ULONG))) / 2;
  65       if (KernelBase)
  66         KrnUnregisterModule(seg);
  67
  68       AROS_CALL2NR(void, freefunc,
  69         AROS_LCA(APTR ,  (BPTR *)((LONG)BADDR(seglist) - sizeof(ULONG)), A1),
  70         AROS_LCA(ULONG, *(LONG *)((LONG)BADDR(seglist) - sizeof(ULONG)), D0),
  71         struct Library *, (struct Library *)SysBase
  72       );
  73
  74       seglist = next;
  75     }
  76     return TRUE;
  77   }
  78   else
  79     return FALSE;
  80
  81   AROS_LIBFUNC_EXIT
  82 } /* InternalUnLoadSeg */