rom/dos/unloadseg.c

   1 /*
   2     Copyright © 1995-2007, 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 static AROS_UFH3(void, FreeFunc,
  15         AROS_UFHA(APTR, buffer, A1),
  16         AROS_UFHA(ULONG, length, D0),
  17         AROS_UFHA(struct ExecBase *, SysBase, A6)
  18 )
  19 {
  20     AROS_USERFUNC_INIT
  21
  22     FreeMem(buffer, length);
  23
  24     AROS_USERFUNC_EXIT
  25 }
  26
  27 /*****************************************************************************
  28
  29     NAME */
  30 #include <proto/dos.h>
  31
  32         AROS_LH1(BOOL, UnLoadSeg,
  33
  34 /*  SYNOPSIS */
  35         AROS_LHA(BPTR, seglist, D1),
  36
  37 /*  LOCATION */
  38         struct DosLibrary *, DOSBase, 26, Dos)
  39
  40 /*  FUNCTION
  41         Free a segment list allocated with LoadSeg().
  42
  43     INPUTS
  44         seglist - The segment list.
  45
  46     RESULT
  47         success = returns whether everything went ok. Returns FALSE if
  48                   seglist was NULL.
  49     NOTES
  50
  51     EXAMPLE
  52
  53     BUGS
  54
  55     SEE ALSO
  56         LoadSeg()
  57
  58     INTERNALS
  59
  60 *****************************************************************************/
  61 {
  62     AROS_LIBFUNC_INIT
  63
  64     if (seglist)
  65     {
  66         return InternalUnLoadSeg(seglist, FreeFunc);
  67     }
  68
  69     return FALSE;
  70
  71     AROS_LIBFUNC_EXIT
  72 } /* UnLoadSeg */