rom/kernel/freepages.c

   1 #include <aros/config.h>
   2 #include <exec/alerts.h>
   3 #include <exec/execbase.h>
   4 #include <proto/exec.h>
   5
   6 #include <kernel_base.h>
   7 #include <kernel_debug.h>
   8 #include "memory_intern.h"
   9
  10 #define D(x)
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/kernel.h>
  16
  17 AROS_LH2(void, KrnFreePages,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(void *, addr, A0),
  21         AROS_LHA(uintptr_t, length, D0),
  22
  23 /*  LOCATION */
  24         struct KernelBase *, KernelBase, 28, Kernel)
  25
  26 /*  FUNCTION
  27
  28     INPUTS
  29
  30     RESULT
  31
  32     NOTES
  33         This function works only on systems with MMU support.
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43 ******************************************************************************/
  44 {
  45     AROS_LIBFUNC_INIT
  46
  47 #if USE_MMU
  48     struct MemHeader *mh;
  49
  50     ForeachNode(&SysBase->MemList, mh)
  51     {
  52         D(bug("[KrnFreePages] Checking MemHeader 0x%p... ", mh));
  53
  54         /* Test if the memory belongs to this MemHeader. */
  55         if (mh->mh_Lower <= addr && mh->mh_Upper > addr)
  56         {
  57             D(bug("[KrnFreePages] Match!\n"));
  58
  59             /* Test if it really fits into this MemHeader. */
  60             if ((addr + length) > mh->mh_Upper)
  61                 /* Something is completely wrong. */
  62                 Alert(AN_MemCorrupt|AT_DeadEnd);
  63
  64             krnFree(mh, addr, length, KernelBase);
  65             break;
  66         }
  67
  68         D(bug("[KrnFreePages] No match!\n"));
  69     }
  70 #endif
  71
  72     AROS_LIBFUNC_EXIT
  73 }