rom/dos/internalunloadseg.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 <aros/libcall.h>
  10 #include <aros/asmcall.h>
  11 #include <exec/libraries.h>
  12 #include <proto/debug.h>
  13 #include <proto/exec.h>
  14
  15 #include "dos_intern.h"
  16 #include "internalloadseg.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/dos.h>
  22
  23         AROS_LH2(BOOL, InternalUnLoadSeg,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(BPTR     , seglist , D1),
  27         AROS_LHA(VOID_FUNC, freefunc, A1),
  28
  29 /*  LOCATION */
  30         struct DosLibrary *, DOSBase, 127, Dos)
  31
  32 /*  FUNCTION
  33         Unloads a seglist loaded with InternalLoadSeg().
  34
  35     INPUTS
  36         seglist  - Seglist
  37         freefunc - Function to be called to free memory
  38
  39     RESULT
  40         DOSTRUE if everything went OK.
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     BPTR next;
  57     SIPTR funcarray[] = { (SIPTR)NULL, (SIPTR)NULL, (SIPTR)freefunc };
  58
  59     if (seglist)
  60     {
  61         if (DebugBase)
  62             UnregisterModule(seglist);
  63
  64 #ifdef __mc68000
  65         {
  66             /* free overlay structures */
  67             ULONG *seg = BADDR(seglist);
  68             if (seg[2] == 0x0000abcd && seg[6] == (ULONG)DOSBase->dl_GV) {
  69                 Close((BPTR)seg[3]); /* file handle */
  70                 ilsFreeVec((void*)seg[4]); /* overlay table, APTR */
  71                 ilsFreeVec(BADDR(seg[5])); /* hunk table, BPTR */
  72             }
  73         }
  74 #endif
  75
  76         while (seglist)
  77         {
  78             next = *(BPTR *)BADDR(seglist);
  79             ilsFreeVec(BADDR(seglist));
  80             seglist = next;
  81         }
  82
  83         return DOSTRUE;
  84     }
  85     else
  86         return DOSFALSE;
  87
  88     AROS_LIBFUNC_EXIT
  89 } /* InternalUnLoadSeg */