1 /* vim:tw=78:ts=8:sw=4:set ft=c: */
3 Copyright (C) 2006-2007 Ben Kibbey <bjk@luxsci.net>
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27 #define N_(msgid) gettext(msgid)
31 static struct memlist_s
*memlist
;
33 static struct memlist_s
*memlist_remove(struct memlist_s
*list
, struct memlist_s
*r
)
35 struct memlist_s
*m
, *last
= NULL
, *p
;
37 for (m
= list
; m
; m
= m
->next
) {
38 if (m
->ptr
== r
->ptr
) {
39 memset(m
->ptr
, 0, m
->size
);
42 if (RUNNING_ON_VALGRIND
)
43 VALGRIND_FREELIKE_BLOCK(m
->ptr
, 0);
48 if (RUNNING_ON_VALGRIND
)
49 VALGRIND_FREELIKE_BLOCK(m
, 0);
71 static struct memlist_s
*memlist_append(struct memlist_s
*list
, struct memlist_s
*p
)
81 for (m
= list
; m
; m
= m
->next
) {
100 for (m
= memlist
; m
; m
= m
->next
) {
103 fprintf(stderr
, "%s: %p %i\n", __FUNCTION__
, ptr
, m
->size
);
105 memlist
= memlist_remove(memlist
, m
);
110 warnx(N_("%s: %p not found"), __FUNCTION__
, ptr
);
114 void *xmalloc(size_t size
)
122 if ((m
= (struct memlist_s
*)malloc(sizeof(struct memlist_s
))) == NULL
)
125 if (RUNNING_ON_VALGRIND
)
126 VALGRIND_MALLOCLIKE_BLOCK(m
, sizeof(struct memlist_s
), 0, 0);
128 if ((p
= malloc(size
)) == NULL
) {
131 if (RUNNING_ON_VALGRIND
)
132 VALGRIND_FREELIKE_BLOCK(m
, 0);
137 if (RUNNING_ON_VALGRIND
)
138 VALGRIND_MALLOCLIKE_BLOCK(p
, size
, 0, 0);
142 memlist
= memlist_append(memlist
, m
);
144 fprintf(stderr
, "%s: %p %i\n", __FUNCTION__
, p
, size
);
149 void *xcalloc(size_t nmemb
, size_t size
)
157 if ((m
= (struct memlist_s
*)malloc(sizeof(struct memlist_s
))) == NULL
)
160 if (RUNNING_ON_VALGRIND
)
161 VALGRIND_MALLOCLIKE_BLOCK(m
, sizeof(struct memlist_s
), 0, 0);
163 if ((p
= calloc(nmemb
, size
)) == NULL
) {
166 if (RUNNING_ON_VALGRIND
)
167 VALGRIND_FREELIKE_BLOCK(m
, 0);
172 if (RUNNING_ON_VALGRIND
)
173 VALGRIND_MALLOCLIKE_BLOCK(p
, nmemb
* size
, 0, 1);
176 m
->size
= nmemb
* size
;
177 memlist
= memlist_append(memlist
, m
);
179 fprintf(stderr
, "%s: %p %i\n", __FUNCTION__
, p
, nmemb
* size
);
184 void *xrealloc(void *ptr
, size_t size
)
190 return xmalloc(size
);
195 for (m
= memlist
; m
; m
= m
->next
) {
197 if ((p
= malloc(size
)) == NULL
)
200 if (RUNNING_ON_VALGRIND
)
201 VALGRIND_MALLOCLIKE_BLOCK(p
, size
, 0, 0);
203 memcpy(p
, m
->ptr
, size
< m
->size
? size
: m
->size
);
204 memset(m
->ptr
, 0, m
->size
);
207 if (RUNNING_ON_VALGRIND
)
208 VALGRIND_FREELIKE_BLOCK(m
->ptr
, 0);
213 fprintf(stderr
, "%s: %p %i\n", __FUNCTION__
, p
, size
);
219 warnx(N_("%s: %p not found"), __FUNCTION__
, ptr
);
224 char *xstrdup(const char *str
)
233 len
= strlen(str
) + 1;
235 if ((t
= (char *)xmalloc(len
* sizeof(char))) == NULL
)
238 for (p
= str
, tp
= t
; *p
; p
++)
243 fprintf(stderr
, "%s: %p\n", __FUNCTION__
, t
);
252 for (m
= memlist
; m
; m
= memlist
)