rom/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
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(BOOL, InternalUnLoadSeg,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(BPTR     , seglist , D1),
  23         AROS_LHA(VOID_FUNC, freefunc, A1),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 127, Dos)
  27
  28 /*  FUNCTION
  29         Unloads a seglist loaded with InternalLoadSeg().
  30
  31     INPUTS
  32         seglist  - Seglist
  33         freefunc - Function to be called to free memory
  34
  35     RESULT
  36         DOSTRUE if everything wents O.K.
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50   AROS_LIBFUNC_INIT
  51
  52   BPTR next;
  53
  54   if (seglist)
  55   {
  56 #if AROS_MODULES_DEBUG
  57     extern struct MinList debug_seglist;
  58     extern struct MinList free_debug_segnodes;
  59     struct debug_segnode *segnode;
  60
  61     Forbid();
  62     ForeachNode(&debug_seglist, segnode)
  63     {
  64       if (segnode->seglist == seglist)
  65       {
  66         /* use the same free function as loadseg ! */
  67         struct seginfo *si;
  68         while ((si = (struct seginfo *)REMHEAD(&segnode->seginfos)))
  69         {
  70           AROS_CALL2NR(void, freefunc,
  71             AROS_LCA(APTR ,  (APTR)si, A1),
  72             AROS_LCA(ULONG,  (ULONG)sizeof(struct seginfo), D0),
  73             struct Library *, (struct Library *)SysBase
  74           );
  75         }
  76
  77         REMOVE(segnode);
  78         ADDHEAD(&free_debug_segnodes, segnode);
  79         break;
  80       }
  81     }
  82     Permit();
  83 #endif
  84
  85     while (seglist)
  86     {
  87       next = *(BPTR *)BADDR(seglist);
  88
  89       AROS_CALL2NR(void, freefunc,
  90         AROS_LCA(APTR ,  (BPTR *)((LONG)BADDR(seglist) - sizeof(ULONG)), A1),
  91         AROS_LCA(ULONG, *(LONG *)((LONG)BADDR(seglist) - sizeof(ULONG)), D0),
  92         struct Library *, (struct Library *)SysBase
  93       );
  94
  95       seglist = next;
  96     }
  97     return TRUE;
  98   }
  99   else
 100     return FALSE;
 101
 102   AROS_LIBFUNC_EXIT
 103 } /* InternalUnLoadSeg */