compiler/arossupport/debugmem.c

   1 /*
   2     Copyright © 1995-2003, 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     AROS_GET_SYSBASE_OK
  50     struct MemHeader *mh;
  51     struct MemChunk  *mc;
  52
  53     Forbid();
  54
  55     for
  56     (
  57         mh = (struct MemHeader *) GetHead(&SysBase->MemList);
  58         mh != NULL;
  59         mh = (struct MemHeader *) GetSucc(mh)
  60     )
  61     {
  62         bug("List %s: Attr=%08lX from 0x%p to 0x%p Free=%ld\n"
  63             , mh->mh_Node.ln_Name
  64             , mh->mh_Attributes
  65             , mh->mh_Lower
  66             , mh->mh_Upper
  67             , mh->mh_Free
  68         );
  69
  70         for (mc=mh->mh_First; mc; mc=mc->mc_Next)
  71         {
  72             bug ("   Chunk %p Size %ld\n", mc, mc->mc_Bytes);
  73         }
  74     }
  75
  76     Permit();
  77 #endif
  78 } /* debugmem */
  79