rom/dos/unloadseg.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <dos/dos.h>
  11 #include <exec/types.h>
  12 #include "dos_intern.h"
  13
  14 extern void Exec_FreeMem();
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <proto/dos.h>
  20
  21         AROS_LH1(BOOL, UnLoadSeg,
  22
  23 /*  SYNOPSIS */
  24         AROS_LHA(BPTR, seglist, D1),
  25
  26 /*  LOCATION */
  27         struct DosLibrary *, DOSBase, 26, Dos)
  28
  29 /*  FUNCTION
  30         Free a segment list allocated with LoadSeg().
  31
  32     INPUTS
  33         seglist - The segment list.
  34
  35     RESULT
  36         success = returns whether everything went ok. Returns FALSE if
  37                   seglist was NULL.
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45         LoadSeg()
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  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                 REMOVE(segnode);
  67                 ADDHEAD(&free_debug_segnodes, segnode);
  68                 break;
  69             }
  70         }
  71         Permit();
  72 #endif
  73         return InternalUnLoadSeg(seglist, __AROS_GETVECADDR(SysBase, 35));
  74     }
  75
  76     return FALSE;
  77
  78     AROS_LIBFUNC_EXIT
  79 } /* UnLoadSeg */