util/dmalloc.c

   1 /*
   2  * Copyright (C) 1994, Index Data I/S
   3  * All rights reserved.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: dmalloc.c,v $
   7  * Revision 1.3  1995-05-15 11:56:55  quinn
   8  * Debuggng & adjustments.
   9  *
  10  * Revision 1.2  1995/04/10  10:23:50  quinn
  11  * Fixes.
  12  *
  13  * Revision 1.1  1995/03/27  08:35:17  quinn
  14  * Created util library
  15  * Added memory debugging module. Imported options-manager
  16  *
  17  *
  18  */
  19
  20 #include <stdlib.h>
  21 #include <stdio.h>
  22 #include <string.h>
  23
  24 static const unsigned char head[] = {44, 33, 22, 11};
  25 static const unsigned char tail[] = {11, 22, 33, 44};
  26 static const unsigned char freed[] = {99, 99, 99, 99};
  27
  28 void *d_malloc(char *file, int line, int nbytes)
  29 {
  30     char *res;
  31     int long len;
  32
  33     if (!(res = malloc(nbytes + 3 * sizeof(long))))
  34         return 0;
  35     fprintf(stderr, "---d_malloc, '%s':%d, %d->%p\n",
  36         file, line, nbytes, res + 2 * sizeof(long));
  37     len = nbytes;
  38     memcpy(res, &head, sizeof(long));
  39     memcpy(res + sizeof(long), &len, sizeof(long));
  40     res += 2 * sizeof(long);
  41     memcpy(res + nbytes, &tail, sizeof(long));
  42     return res;
  43 }
  44
  45 void d_free(char *file, int line, char *ptr)
  46 {
  47     long len;
  48
  49     if (memcmp(&head, ptr - 2 * sizeof(long), sizeof(long)))
  50         abort();
  51     memcpy(ptr - 2 * sizeof(long), &freed, sizeof(long));
  52     memcpy(&len, ptr - sizeof(long), sizeof(long));
  53     if (memcmp(ptr + len, &tail, sizeof(long)))
  54         abort();
  55     fprintf(stderr, "---d_free, '%s':%d, %p (%d)\n",
  56         file, line, ptr, len);
  57     free(ptr - 2 * sizeof(long));
  58     return;
  59 }
  60
  61 void *d_realloc(char *file, int line, char *ptr, int nbytes)
  62 {
  63     long len, nlen = nbytes;
  64     char *p = ptr;
  65     char *r;
  66
  67     if (memcmp(&head, ptr - 2 * sizeof(long), sizeof(long)))
  68         abort();
  69     memcpy(&len, ptr - sizeof(long), sizeof(long));
  70     if (memcmp(ptr + len, &tail, sizeof(long)))
  71         abort();
  72     if (!(r = realloc(ptr - 2 * sizeof(long), nbytes + 3 * sizeof(long))))
  73         return 0;
  74     fprintf(stderr, "---d_realloc, '%s':%d, %d->%d, %p->%p\n",
  75         file, line, len, nbytes, p, r + 2 * sizeof(long));
  76     memcpy(r, &head, sizeof(long));
  77     memcpy(r + sizeof(long), &nlen, sizeof(long));
  78     if (r != ptr - 2 * sizeof(long))
  79     {
  80         memcpy(r + 2 * sizeof(long), ptr, len);
  81         memcpy(ptr - 2 * sizeof(long), &freed, sizeof(long));
  82     }
  83     r += 2 * sizeof(long);
  84     memcpy(r + nbytes, &tail, sizeof(long));
  85     return r;
  86 }