dmake/dbug/malloc/dump.c

   1 /*
   2  * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).
   3  * You may copy, distribute, and use this software as long as this
   4  * copyright statement is not removed.
   5  */
   6 #include <stdio.h>
   7 #include "malloc.h"
   8 #include "tostring.h"
   9
  10 /*
  11  * Function:    malloc_dump()
  12  *
  13  * Purpose:     to dump a printed copy of the malloc chain and
  14  *              associated data elements
  15  *
  16  * Arguments:   fd      - file descriptor to write data to
  17  *
  18  * Returns:     nothing of any use
  19  *
  20  * Narrative:   Just print out all the junk
  21  *
  22  * Notes:       This function is implemented using low level calls because
  23  *              of the likelyhood that the malloc tree is damaged when it
  24  *              is called.  (Lots of things in the c library use malloc and
  25  *              we don't want to get into a catch-22).
  26  *
  27  */
  28
  29 #ifndef lint
  30 static
  31 char rcs_hdr[] = "$Id: dump.c,v 1.2 2006-07-25 10:07:38 rt Exp $";
  32 #endif
  33
  34
  35 #define ERRSTR  "I/O Error on malloc dump file descriptor\n"
  36
  37 #define WRITEOUT(fd,str,len)    if( write(fd,str,(unsigned)len) != len ) \
  38                 { \
  39                     (void) write(2,ERRSTR,\
  40                              (unsigned)strlen(ERRSTR));\
  41                     exit(120); \
  42                 }
  43
  44 void
  45 malloc_dump(fd)
  46     int         fd;
  47 {
  48     char                          buffer[512];
  49     void                          exit();
  50     int                   i;
  51     extern char         * malloc_data_end;
  52     extern char         * malloc_data_start;
  53     extern struct mlist         * malloc_end;
  54     extern struct mlist   malloc_start;
  55     struct mlist                * ptr;
  56
  57     WRITEOUT(fd,"MALLOC CHAIN:\n",14);
  58     WRITEOUT(fd,"-------------------- START ----------------\n",44);
  59
  60     for(i=0; i < 80; i++)
  61     {
  62         buffer[i] = ' ';
  63     }
  64
  65     for(ptr = &malloc_start; ptr; ptr = ptr->next)
  66     {
  67         (void) tostring(buffer,    (int)ptr,         8, B_HEX,  '0');
  68         (void) tostring(buffer+9,  (int)ptr->next,   8, B_HEX,  '0');
  69         (void) tostring(buffer+18, (int)ptr->prev,   8, B_HEX,  '0');
  70         (void) tostring(buffer+27, (int)ptr->flag,  10, B_HEX,  '0');
  71         (void) tostring(buffer+38, (int)ptr->s.size, 8, B_DEC,  ' ');
  72         (void) tostring(buffer+47, (int)ptr->s.size, 8, B_HEX,  '0');
  73         (void) tostring(buffer+57, (int)ptr->data,   8, B_HEX,  '0');
  74         buffer[46] = '(';
  75         buffer[55] = ')';
  76         buffer[65] = '\n';
  77         WRITEOUT(fd,buffer,66);
  78     }
  79     WRITEOUT(fd,"-------------------- DONE -----------------\n",44);
  80
  81     WRITEOUT(fd,"Malloc start:      ",19);
  82     (void) tostring(buffer, (int) &malloc_start, 8, B_HEX, '0');
  83     buffer[8] = '\n';
  84     WRITEOUT(fd,buffer,9);
  85
  86     WRITEOUT(fd,"Malloc end:        ", 19);
  87     (void) tostring(buffer, (int) malloc_end, 8, B_HEX, '0');
  88     buffer[8] = '\n';
  89     WRITEOUT(fd,buffer,9);
  90
  91     WRITEOUT(fd,"Malloc data start: ", 19);
  92     (void) tostring(buffer, (int) malloc_data_start, 8, B_HEX, '0');
  93     buffer[8] = '\n';
  94     WRITEOUT(fd,buffer,9);
  95
  96     WRITEOUT(fd,"Malloc data end:   ", 19);
  97     (void) tostring(buffer, (int) malloc_data_end, 8, B_HEX, '0');
  98     buffer[8] = '\n';
  99     WRITEOUT(fd,buffer,9);
 100
 101 } /* malloc_dump(... */
 102
 103