1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) Index Data
3 * See the file LICENSE for details.
7 * \brief Implements malloc interface.
20 #include <yaz/xmalloc.h>
23 #define TRACE_XMALLOC 1
26 /* treat any size >1/4 of max value of size_t to be an error */
27 #define MALLOC_SIZE_MAX ((size_t)(-1) / 4)
29 static int log_level = 0;
30 static int log_level_initialized = 0;
34 static const unsigned char head[] = {88, 77, 66, 55, 44, 33, 22, 11};
35 static const unsigned char tail[] = {11, 22, 33, 44, 55, 66, 77, 88};
36 static const unsigned char freed[] = {11, 22, 33, 44, 55, 66, 77, 88};
42 struct dmalloc_info *next;
43 struct dmalloc_info *prev;
46 struct dmalloc_info *dmalloc_list = 0;
49 void *xmalloc_d(size_t nbytes, const char *file, int line)
52 struct dmalloc_info *dinfo;
54 if (!log_level_initialized)
56 log_level = yaz_log_module_level("malloc");
57 log_level_initialized = 1;
60 if (!(res = (char*) malloc(nbytes + sizeof(*dinfo)+16*sizeof(char))))
62 dinfo = (struct dmalloc_info *) res;
63 strncpy(dinfo->file, file, sizeof(dinfo->file)-1);
64 dinfo->file[sizeof(dinfo->file)-1] = '\0';
69 dinfo->next = dmalloc_list;
71 dinfo->next->prev = dinfo;
74 memcpy(res + sizeof(*dinfo), head, 8*sizeof(char));
75 res += sizeof(*dinfo) + 8*sizeof(char);
76 memcpy(res + nbytes, tail, 8*sizeof(char));
80 void xfree_d(void *ptr, const char *file, int line)
82 struct dmalloc_info *dinfo;
86 dinfo = (struct dmalloc_info *)
87 ((char*)ptr - 8*sizeof(char) - sizeof(*dinfo));
88 if (memcmp(head, (char*) ptr - 8*sizeof(char), 8*sizeof(char)))
90 yaz_log(YLOG_FATAL, "xfree_d bad head, %s:%d, %p", file, line, ptr);
93 if (memcmp((char*) ptr + dinfo->len, tail, 8*sizeof(char)))
95 yaz_log(YLOG_FATAL, "xfree_d bad tail, %s:%d, %p", file, line, ptr);
99 dinfo->prev->next = dinfo->next;
101 dmalloc_list = dinfo->next;
103 dinfo->next->prev = dinfo->prev;
104 memcpy((char*) ptr - 8*sizeof(char), freed, 8*sizeof(char));
109 void *xrealloc_d(void *p, size_t nbytes, const char *file, int line)
111 struct dmalloc_info *dinfo;
112 char *ptr = (char*) p;
115 if (!log_level_initialized)
117 log_level = yaz_log_module_level("malloc");
118 log_level_initialized = 1;
125 res = (char *) malloc(nbytes + sizeof(*dinfo) + 16*sizeof(char));
129 if (memcmp(head, ptr - 8*sizeof(char), 8*sizeof(char)))
131 yaz_log(YLOG_FATAL, "xrealloc_d bad head, %s:%d, %p",
135 dinfo = (struct dmalloc_info *) (ptr-8*sizeof(char) - sizeof(*dinfo));
136 if (memcmp(ptr + dinfo->len, tail, 8*sizeof(char)))
138 yaz_log(YLOG_FATAL, "xrealloc_d bad tail, %s:%d, %p",
143 dinfo->prev->next = dinfo->next;
145 dmalloc_list = dinfo->next;
147 dinfo->next->prev = dinfo->prev;
155 realloc(dinfo, nbytes + sizeof(*dinfo) + 16*sizeof(char));
159 dinfo = (struct dmalloc_info *) res;
160 strncpy(dinfo->file, file, sizeof(dinfo->file)-1);
161 dinfo->file[sizeof(dinfo->file)-1] = '\0';
166 dinfo->next = dmalloc_list;
168 dmalloc_list->prev = dinfo;
169 dmalloc_list = dinfo;
171 memcpy(res + sizeof(*dinfo), head, 8*sizeof(char));
172 res += sizeof(*dinfo) + 8*sizeof(char);
173 memcpy(res + nbytes, tail, 8*sizeof(char));
177 void *xcalloc_d(size_t nmemb, size_t size, const char *file, int line)
180 struct dmalloc_info *dinfo;
181 size_t nbytes = nmemb * size;
183 if (!log_level_initialized)
185 log_level = yaz_log_module_level("malloc");
186 log_level_initialized = 1;
189 if (!(res = (char*) calloc(1, nbytes+sizeof(*dinfo)+16*sizeof(char))))
191 dinfo = (struct dmalloc_info *) res;
192 strncpy(dinfo->file, file, sizeof(dinfo->file)-1);
193 dinfo->file[sizeof(dinfo->file)-1] = '\0';
198 dinfo->next = dmalloc_list;
200 dinfo->next->prev = dinfo;
201 dmalloc_list = dinfo;
203 memcpy(res + sizeof(*dinfo), head, 8*sizeof(char));
204 res += sizeof(*dinfo) + 8*sizeof(char);
205 memcpy(res + nbytes, tail, 8*sizeof(char));
209 void xmalloc_trav_d(const char *file, int line)
212 struct dmalloc_info *dinfo = dmalloc_list;
214 if (!log_level_initialized)
216 log_level = yaz_log_module_level("malloc");
217 log_level_initialized = 1;
220 yaz_log(log_level, "malloc_trav %s:%d", file, line);
223 yaz_log(log_level, " %20s:%d p=%p size=%d", dinfo->file, dinfo->line,
224 ((char*) dinfo)+sizeof(*dinfo)+8*sizeof(char), dinfo->len);
228 yaz_log(log_level, "total bytes %ld", (long) size);
232 /* TRACE_XMALLOC <= 1 */
233 #define xrealloc_d(o, x, f, l) realloc(o, x)
234 #define xmalloc_d(x, f, l) malloc(x)
235 #define xcalloc_d(x,y, f, l) calloc(x,y)
236 #define xfree_d(x, f, l) free(x)
237 #define xmalloc_trav_d(f, l)
240 void xmalloc_trav_f(const char *s, const char *file, int line)
242 if (!log_level_initialized)
244 log_level = yaz_log_module_level("malloc");
245 log_level_initialized = 1;
248 xmalloc_trav_d(file, line);
251 void xmalloc_fatal(size_t size)
253 assert(size < MALLOC_SIZE_MAX);
257 void *xrealloc_f(void *o, size_t size, const char *file, int line)
259 void *p = xrealloc_d(o, size, file, line);
261 if (!log_level_initialized)
263 log_level = yaz_log_module_level("malloc");
264 log_level_initialized = 1;
269 "%s:%d: xrealloc(s=%ld) %p -> %p", file, line, (long) size, o, p);
272 yaz_log(YLOG_FATAL, "%s:%d: Out of memory, realloc(%ld bytes)",
273 file, line, (long) size);
279 void *xmalloc_f(size_t size, const char *file, int line)
281 void *p = xmalloc_d(size, file, line);
283 if (!log_level_initialized)
285 log_level = yaz_log_module_level("malloc");
286 log_level_initialized = 1;
290 yaz_log(log_level, "%s:%d: xmalloc(s=%ld) %p", file, line,
295 yaz_log(YLOG_FATAL, "%s:%d: Out of memory - malloc(%ld bytes)",
296 file, line, (long) size);
302 void *xcalloc_f(size_t nmemb, size_t size, const char *file, int line)
304 void *p = xcalloc_d(nmemb, size, file, line);
305 if (!log_level_initialized)
307 log_level = yaz_log_module_level("malloc");
308 log_level_initialized = 1;
312 yaz_log(log_level, "%s:%d: xcalloc(s=%ld) %p", file, line,
317 yaz_log(YLOG_FATAL, "%s:%d: Out of memory - calloc(%ld, %ld)",
318 file, line, (long) nmemb, (long) size);
324 char *xstrdup_f(const char *s, const char *file, int line)
326 char *p = (char *)xmalloc_d(strlen(s)+1, file, line);
327 if (!log_level_initialized)
329 log_level = yaz_log_module_level("malloc");
330 log_level_initialized = 1;
334 yaz_log(log_level, "%s:%d: xstrdup(s=%ld) %p", file, line,
335 (long) strlen(s)+1, p);
341 void xfree_f(void *p, const char *file, int line)
346 yaz_log(log_level, "%s:%d: xfree %p", file, line, p);
347 xfree_d(p, file, line);
350 char *xstrndup_f(const char *s, size_t n, const char *file, int line)
352 size_t l = strlen(s);
354 return xstrdup_f(s, file, line);
356 char *a = (char*) xmalloc_f(n+1, file, line);
366 * c-file-style: "Stroustrup"
367 * indent-tabs-mode: nil
369 * vim: shiftwidth=4 tabstop=8 expandtab