1 /* Standard debugging hooks for `malloc'.
2 Copyright (C) 1990,91,92,93,94,95,96 Free Software Foundation, Inc.
3 Written May 1989 by Mike Haertel.
5 This library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 This library 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 GNU
13 Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with this library; see the file COPYING.LIB. If not,
17 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA.
20 The author may be reached (Email) at the address mike@ai.mit.edu,
21 or (US mail) as Mike Haertel c/o Free Software Foundation. */
23 #ifndef _MALLOC_INTERNAL
24 #define _MALLOC_INTERNAL
30 /* Old hook values. */
31 static void (*old_free_hook
) __P ((__ptr_t ptr
));
32 static __ptr_t (*old_malloc_hook
) __P ((__malloc_size_t size
));
33 static __ptr_t (*old_realloc_hook
) __P ((__ptr_t ptr
, __malloc_size_t size
));
35 /* Function to call when something awful happens. */
36 static void (*abortfunc
) __P ((enum mcheck_status
));
38 /* Arbitrary magical numbers. */
39 #define MAGICWORD 0xfedabeeb
40 #define MAGICFREE 0xd8675309
41 #define MAGICBYTE ((char) 0xd7)
42 #define MALLOCFLOOD ((char) 0x93)
43 #define FREEFLOOD ((char) 0x95)
47 __malloc_size_t size
; /* Exact size requested by user. */
48 unsigned long int magic
; /* Magic number to check header integrity. */
51 #if defined(_LIBC) || defined(STDC_HEADERS) || defined(USG)
54 static void flood
__P ((__ptr_t
, int, __malloc_size_t
));
56 flood (ptr
, val
, size
)
67 static enum mcheck_status checkhdr
__P ((const struct hdr
*));
68 static enum mcheck_status
70 const struct hdr
*hdr
;
72 enum mcheck_status status
;
82 if (((char *) &hdr
[1])[hdr
->size
] != MAGICBYTE
)
88 if (status
!= MCHECK_OK
)
89 (*abortfunc
) (status
);
93 static void freehook
__P ((__ptr_t
));
100 struct hdr
*hdr
= ((struct hdr
*) ptr
) - 1;
102 hdr
->magic
= MAGICFREE
;
103 flood (ptr
, FREEFLOOD
, hdr
->size
);
106 __free_hook
= old_free_hook
;
108 __free_hook
= freehook
;
111 static __ptr_t mallochook
__P ((__malloc_size_t
));
114 __malloc_size_t size
;
118 __malloc_hook
= old_malloc_hook
;
119 hdr
= (struct hdr
*) malloc (sizeof (struct hdr
) + size
+ 1);
120 __malloc_hook
= mallochook
;
125 hdr
->magic
= MAGICWORD
;
126 ((char *) &hdr
[1])[size
] = MAGICBYTE
;
127 flood ((__ptr_t
) (hdr
+ 1), MALLOCFLOOD
, size
);
128 return (__ptr_t
) (hdr
+ 1);
131 static __ptr_t reallochook
__P ((__ptr_t
, __malloc_size_t
));
133 reallochook (ptr
, size
)
135 __malloc_size_t size
;
138 __malloc_size_t osize
;
142 hdr
= ((struct hdr
*) ptr
) - 1;
147 flood ((char *) ptr
+ size
, FREEFLOOD
, osize
- size
);
154 __free_hook
= old_free_hook
;
155 __malloc_hook
= old_malloc_hook
;
156 __realloc_hook
= old_realloc_hook
;
157 hdr
= (struct hdr
*) realloc ((__ptr_t
) hdr
, sizeof (struct hdr
) + size
+ 1);
158 __free_hook
= freehook
;
159 __malloc_hook
= mallochook
;
160 __realloc_hook
= reallochook
;
165 hdr
->magic
= MAGICWORD
;
166 ((char *) &hdr
[1])[size
] = MAGICBYTE
;
168 flood ((char *) (hdr
+ 1) + osize
, MALLOCFLOOD
, size
- osize
);
169 return (__ptr_t
) (hdr
+ 1);
172 static void mabort
__P ((enum mcheck_status status
));
175 enum mcheck_status status
;
181 msg
= _("memory is consistent, library is buggy");
184 msg
= _("memory clobbered before allocated block");
187 msg
= _("memory clobbered past end of allocated block");
190 msg
= _("block freed twice");
193 msg
= _("bogus mcheck_status, library is buggy");
199 fprintf (stderr
, "mcheck: %s\n", msg
);
205 static int mcheck_used
= 0;
209 void (*func
) __P ((enum mcheck_status
));
211 abortfunc
= (func
!= NULL
) ? func
: &mabort
;
213 /* These hooks may not be safely inserted if malloc is already in use. */
214 if (!__malloc_initialized
&& !mcheck_used
)
216 old_free_hook
= __free_hook
;
217 __free_hook
= freehook
;
218 old_malloc_hook
= __malloc_hook
;
219 __malloc_hook
= mallochook
;
220 old_realloc_hook
= __realloc_hook
;
221 __realloc_hook
= reallochook
;
225 return mcheck_used
? 0 : -1;
231 return mcheck_used
? checkhdr (ptr
) : MCHECK_DISABLED
;