rom/dos/unloadseg.c

   1 /*
   2     Copyright © 1995-2013, 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
  50     NOTES
  51
  52     EXAMPLE
  53
  54     BUGS
  55
  56     SEE ALSO
  57         LoadSeg()
  58
  59     INTERNALS
  60
  61 *****************************************************************************/
  62 {
  63     AROS_LIBFUNC_INIT
  64
  65     if (seglist)
  66     {
  67         return InternalUnLoadSeg(seglist, FreeFunc);
  68     }
  69
  70     return FALSE;
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* UnLoadSeg */