compiler/arossupport/debugmem.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Show a dump of the memory list.
   6 */
   7
   8 #define DEBUG 1
   9 #include <exec/lists.h>
  10 #include <exec/memory.h>
  11 #include <exec/execbase.h>
  12 #include <aros/debug.h>
  13 #include <proto/exec.h>
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/arossupport.h>
  19
  20         void debugmem (
  21
  22 /*  SYNOPSIS */
  23         void)
  24
  25 /*  FUNCTION
  26         Print information about all memory lists.
  27
  28     INPUTS
  29         None.
  30
  31     RESULT
  32         None.
  33
  34     NOTES
  35         This function is not part of a library and may thus be called
  36         any time.
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 ******************************************************************************/
  47 {
  48 #ifndef __DONT_USE_DEBUGMEM__
  49     struct MemHeader *mh;
  50     struct MemChunk  *mc;
  51
  52     Forbid();
  53
  54     for
  55     (
  56         mh = (struct MemHeader *) GetHead(&SysBase->MemList);
  57         mh != NULL;
  58         mh = (struct MemHeader *) GetSucc(mh)
  59     )
  60     {
  61         bug("List %s: Attr=%08lX from 0x%p to 0x%p Free=%ld\n"
  62             , mh->mh_Node.ln_Name
  63             , mh->mh_Attributes
  64             , mh->mh_Lower
  65             , mh->mh_Upper
  66             , mh->mh_Free
  67         );
  68
  69         for (mc=mh->mh_First; mc; mc=mc->mc_Next)
  70         {
  71             bug ("   Chunk %p Size %ld\n", mc, mc->mc_Bytes);
  72         }
  73     }
  74
  75     Permit();
  76 #endif
  77 } /* debugmem */
  78