2 * Copyright (c) 1995, Index Data
3 * See the file LICENSE for details.
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.6 1995-09-27 15:03:02 quinn
8 * Modified function heads & prototypes.
10 * Revision 1.5 1995/05/16 08:51:10 quinn
11 * License, documentation, and memory fixes
13 * Revision 1.4 1995/05/15 13:25:13 quinn
16 * Revision 1.3 1995/05/15 11:56:55 quinn
17 * Debuggng & adjustments.
19 * Revision 1.2 1995/04/10 10:23:50 quinn
22 * Revision 1.1 1995/03/27 08:35:17 quinn
23 * Created util library
24 * Added memory debugging module. Imported options-manager
33 static const unsigned char head[] = {44, 33, 22, 11};
34 static const unsigned char tail[] = {11, 22, 33, 44};
35 static const unsigned char freed[] = {99, 99, 99, 99};
37 void MDF *d_malloc(char *file, int line, int nbytes)
42 if (!(res = malloc(nbytes + 3 * sizeof(long))))
44 fprintf(stderr, "---d_malloc, '%s':%d, %d->%p\n",
45 file, line, nbytes, res + 2 * sizeof(long));
47 memcpy(res, &head, sizeof(long));
48 memcpy(res + sizeof(long), &len, sizeof(long));
49 res += 2 * sizeof(long);
50 memcpy(res + nbytes, &tail, sizeof(long));
54 void MDF d_free(char *file, int line, char *ptr)
58 if (memcmp(&head, ptr - 2 * sizeof(long), sizeof(long)))
60 memcpy(ptr - 2 * sizeof(long), &freed, sizeof(long));
61 memcpy(&len, ptr - sizeof(long), sizeof(long));
62 if (memcmp(ptr + len, &tail, sizeof(long)))
64 fprintf(stderr, "---d_free, '%s':%d, %p (%d)\n",
65 file, line, ptr, len);
66 free(ptr - 2 * sizeof(long));
70 void MDF *d_realloc(char *file, int line, char *ptr, int nbytes)
72 long len, nlen = nbytes;
76 if (memcmp(&head, ptr - 2 * sizeof(long), sizeof(long)))
78 memcpy(&len, ptr - sizeof(long), sizeof(long));
79 if (memcmp(ptr + len, &tail, sizeof(long)))
81 if (!(r = realloc(ptr - 2 * sizeof(long), nbytes + 3 * sizeof(long))))
83 fprintf(stderr, "---d_realloc, '%s':%d, %d->%d, %p->%p\n",
84 file, line, len, nbytes, p, r + 2 * sizeof(long));
85 memcpy(r, &head, sizeof(long));
86 memcpy(r + sizeof(long), &nlen, sizeof(long));
87 r += 2 * sizeof(long);
88 memcpy(r + nbytes, &tail, sizeof(long));