compiler/loadseg/unloadsegment.c

   1 /*
   2     Copyright © 1995-2011, 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 #include <proto/dos.h>
  15
  16 #include "loadseg_intern.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <loadseg/loadseg.h>
  22
  23         BOOL UnLoadSegment(
  24
  25 /*  SYNOPSIS */
  26         BPTR      seglist ,
  27         VOID_FUNC freefunc,
  28         struct DosLibrary *DOSBase)
  29
  30 /*  LOCATION
  31
  32         loadseg.lib
  33
  34     FUNCTION
  35         Unloads a seglist loaded with LoadSegment().
  36
  37     INPUTS
  38         seglist  - Seglist
  39         freefunc - Function to be called to free memory
  40         DOSBase  - Required for AOS HUNK overlays only, otherwise NULL
  41
  42     RESULT
  43         DOSTRUE if everything wents O.K.
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     BPTR next;
  58     SIPTR funcarray[] = { (SIPTR)NULL, (SIPTR)NULL, (SIPTR)freefunc };
  59
  60     if (seglist)
  61     {
  62         APTR DebugBase;
  63
  64         if ((DebugBase = OpenLibrary("debug.library", 0))) {
  65             UnregisterModule(seglist);
  66             CloseLibrary(DebugBase);
  67         }
  68
  69 #if (AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT)
  70         if (DOSBase != NULL) {
  71             /* free overlay structures */
  72             ULONG *seg = BADDR(seglist);
  73             if (seg[2] == 0x0000abcd && seg[6] == (ULONG)DOSBase->dl_GV) {
  74                 Close((BPTR)seg[3]); /* file handle */
  75                 ilsFreeVec((void*)seg[4]); /* overlay table, APTR */
  76                 ilsFreeVec(BADDR(seg[5])); /* hunk table, BPTR */
  77             }
  78         }
  79 #endif
  80
  81         while (seglist)
  82         {
  83             next = *(BPTR *)BADDR(seglist);
  84             ilsFreeVec(BADDR(seglist));
  85             seglist = next;
  86         }
  87
  88         return DOSTRUE;
  89     }
  90     else
  91         return DOSFALSE;
  92
  93 } /* UnLoadSegment */