rom/dos/remsegment.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Remove a segment from the system list.
   6     Lang: English
   7 */
   8
   9 #include "dos_intern.h"
  10 #include <aros/config.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <dos/dosextens.h>
  17 #include <proto/dos.h>
  18
  19         AROS_LH1(LONG, RemSegment,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct Segment *, seg, D1),
  23
  24 /*  LOCATION */
  25         struct DosLibrary *, DOSBase, 131, Dos)
  26
  27 /*  FUNCTION
  28         Remove the segment seg from the DOS resident command list.
  29
  30         The segment to be removed should be in the list, and should
  31         have a usercount of 0. System or internal segment cannot be
  32         removed (although they can be replaced).
  33
  34     INPUTS
  35         seg - Segment to remove.
  36
  37     RESULT
  38         != 0    Segment was removed
  39         == 0    Segment was not removed (not in list, or not free).
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         AddSegment(), FindSegment()
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     /* Make sure segment is freeable */
  57 #if AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT
  58     if (seg->seg_UC == 0 || seg->seg_UC == 1)
  59 #else
  60     if (seg->seg_UC == 0)
  61 #endif
  62     {
  63         struct Segment *next, *prev;
  64         struct DosInfo *dinf = BADDR(DOSBase->dl_Root->rn_Info);
  65
  66         prev = NULL;
  67         next = BADDR(dinf->di_ResList);
  68         while (next != NULL)
  69         {
  70             if (next == seg)
  71             {
  72                 if (prev)
  73                 {
  74                     prev->seg_Next = next->seg_Next;
  75                 }
  76                 else
  77                 {
  78                     dinf->di_ResList = next->seg_Next;
  79                 }
  80                 UnLoadSeg(seg->seg_Seg);
  81                 FreeVec(seg);
  82                 return DOSTRUE;
  83             }
  84
  85             prev = next;
  86             next = BADDR(next->seg_Next);
  87         }
  88     }
  89
  90     return DOSFALSE;
  91
  92     AROS_LIBFUNC_EXIT
  93 } /* RemSegment */