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
  30     INPUTS
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 *****************************************************************************/
  45 {
  46   AROS_LIBFUNC_INIT
  47
  48   BPTR next;
  49
  50   if (seglist)
  51   {
  52 #if AROS_MODULES_DEBUG
  53     extern struct MinList debug_seglist;
  54     extern struct MinList free_debug_segnodes;
  55     struct debug_segnode *segnode;
  56
  57     Forbid();
  58     ForeachNode(&debug_seglist, segnode)
  59     {
  60       if (segnode->seglist == seglist)
  61       {
  62         /* use the same free function as loadseg ! */
  63         struct seginfo *si;
  64         while ((si = (struct seginfo *)REMHEAD(&segnode->seginfos)))
  65         {
  66           AROS_CALL2NR(void, freefunc,
  67             AROS_LCA(APTR ,  (APTR)si, A1),
  68             AROS_LCA(ULONG,  (ULONG)sizeof(struct seginfo), D0),
  69             struct Library *, (struct Library *)SysBase
  70           );
  71         }
  72
  73         REMOVE(segnode);
  74         ADDHEAD(&free_debug_segnodes, segnode);
  75         break;
  76       }
  77     }
  78     Permit();
  79 #endif
  80
  81     while (seglist)
  82     {
  83       next = *(BPTR *)BADDR(seglist);
  84
  85       AROS_CALL2NR(void, freefunc,
  86         AROS_LCA(APTR ,  (BPTR *)((LONG)BADDR(seglist) - sizeof(ULONG)), A1),
  87         AROS_LCA(ULONG, *(LONG *)((LONG)BADDR(seglist) - sizeof(ULONG)), D0),
  88         struct Library *, (struct Library *)SysBase
  89       );
  90
  91       seglist = next;
  92     }
  93     return TRUE;
  94   }
  95   else
  96     return FALSE;
  97
  98   AROS_LIBFUNC_EXIT
  99 } /* InternalUnLoadSeg */