rom/dos/remsegment.c

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