1 /* -*- mode: C; c-file-style: "gnu" -*- */
2 /* dbus-memory.c D-BUS memory handling
4 * Copyright (C) 2002, 2003 Red Hat Inc.
6 * Licensed under the Academic Free License version 2.1
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 #include "dbus-memory.h"
25 #include "dbus-internals.h"
26 #include "dbus-sysdeps.h"
27 #include "dbus-list.h"
31 * @defgroup DBusMemory Memory Allocation
33 * @brief dbus_malloc(), dbus_free(), etc.
35 * Functions and macros related to allocating and releasing
41 * @defgroup DBusMemoryInternals Memory allocation implementation details
42 * @ingroup DBusInternals
43 * @brief internals of dbus_malloc() etc.
45 * Implementation details related to allocating and releasing blocks
50 * @addtogroup DBusMemory
58 * Safe macro for using dbus_malloc(). Accepts the type
59 * to allocate and the number of type instances to
60 * allocate as arguments, and returns a memory block
61 * cast to the desired type, instead of as a void*.
63 * @param type type name to allocate
64 * @param count number of instances in the allocated array
65 * @returns the new memory block or #NULL on failure
71 * Safe macro for using dbus_malloc0(). Accepts the type
72 * to allocate and the number of type instances to
73 * allocate as arguments, and returns a memory block
74 * cast to the desired type, instead of as a void*.
75 * The allocated array is initialized to all-bits-zero.
77 * @param type type name to allocate
78 * @param count number of instances in the allocated array
79 * @returns the new memory block or #NULL on failure
83 * @typedef DBusFreeFunction
85 * The type of a function which frees a block of memory.
87 * @param memory the memory to free
90 /** @} */ /* end of public API docs */
93 * @addtogroup DBusMemoryInternals
98 #ifdef DBUS_BUILD_TESTS
99 static dbus_bool_t debug_initialized = FALSE;
100 static int fail_nth = -1;
101 static size_t fail_size = 0;
102 static int fail_alloc_counter = _DBUS_INT_MAX;
103 static int n_failures_per_failure = 1;
104 static int n_failures_this_failure = 0;
105 static dbus_bool_t guards = FALSE;
106 static dbus_bool_t disable_mem_pools = FALSE;
107 static dbus_bool_t backtrace_on_fail_alloc = FALSE;
108 static int n_blocks_outstanding = 0;
110 /** value stored in guard padding for debugging buffer overrun */
111 #define GUARD_VALUE 0xdeadbeef
112 /** size of the information about the block stored in guard mode */
113 #define GUARD_INFO_SIZE 8
114 /** size of the GUARD_VALUE-filled padding after the header info */
115 #define GUARD_START_PAD 16
116 /** size of the GUARD_VALUE-filled padding at the end of the block */
117 #define GUARD_END_PAD 16
118 /** size of stuff at start of block */
119 #define GUARD_START_OFFSET (GUARD_START_PAD + GUARD_INFO_SIZE)
120 /** total extra size over the requested allocation for guard stuff */
121 #define GUARD_EXTRA_SIZE (GUARD_START_OFFSET + GUARD_END_PAD)
124 _dbus_initialize_malloc_debug (void)
126 if (!debug_initialized)
128 debug_initialized = TRUE;
130 if (_dbus_getenv ("DBUS_MALLOC_FAIL_NTH") != NULL)
132 fail_nth = atoi (_dbus_getenv ("DBUS_MALLOC_FAIL_NTH"));
133 fail_alloc_counter = fail_nth;
134 _dbus_verbose ("Will fail malloc every %d times\n", fail_nth);
137 if (_dbus_getenv ("DBUS_MALLOC_FAIL_GREATER_THAN") != NULL)
139 fail_size = atoi (_dbus_getenv ("DBUS_MALLOC_FAIL_GREATER_THAN"));
140 _dbus_verbose ("Will fail mallocs over %ld bytes\n",
144 if (_dbus_getenv ("DBUS_MALLOC_GUARDS") != NULL)
147 _dbus_verbose ("Will use malloc guards\n");
150 if (_dbus_getenv ("DBUS_DISABLE_MEM_POOLS") != NULL)
152 disable_mem_pools = TRUE;
153 _dbus_verbose ("Will disable memory pools\n");
156 if (_dbus_getenv ("DBUS_MALLOC_BACKTRACES") != NULL)
158 backtrace_on_fail_alloc = TRUE;
159 _dbus_verbose ("Will backtrace on failing a malloc\n");
165 * Whether to turn off mem pools, useful for leak checking.
167 * @returns #TRUE if mempools should not be used.
170 _dbus_disable_mem_pools (void)
172 _dbus_initialize_malloc_debug ();
173 return disable_mem_pools;
177 * Sets the number of allocations until we simulate a failed
178 * allocation. If set to 0, the next allocation to run
179 * fails; if set to 1, one succeeds then the next fails; etc.
180 * Set to _DBUS_INT_MAX to not fail anything.
182 * @param until_next_fail number of successful allocs before one fails
185 _dbus_set_fail_alloc_counter (int until_next_fail)
187 _dbus_initialize_malloc_debug ();
189 fail_alloc_counter = until_next_fail;
192 _dbus_verbose ("Set fail alloc counter = %d\n", fail_alloc_counter);
197 * Gets the number of successful allocs until we'll simulate
200 * @returns current counter value
203 _dbus_get_fail_alloc_counter (void)
205 _dbus_initialize_malloc_debug ();
207 return fail_alloc_counter;
211 * Sets how many mallocs to fail when the fail alloc counter reaches
214 * @param failures_per_failure number to fail
217 _dbus_set_fail_alloc_failures (int failures_per_failure)
219 n_failures_per_failure = failures_per_failure;
223 * Gets the number of failures we'll have when the fail malloc
226 * @returns number of failures planned
229 _dbus_get_fail_alloc_failures (void)
231 return n_failures_per_failure;
234 #ifdef DBUS_BUILD_TESTS
236 * Called when about to alloc some memory; if
237 * it returns #TRUE, then the allocation should
238 * fail. If it returns #FALSE, then the allocation
241 * @returns #TRUE if this alloc should fail
244 _dbus_decrement_fail_alloc_counter (void)
246 _dbus_initialize_malloc_debug ();
248 if (fail_alloc_counter <= 0)
250 if (backtrace_on_fail_alloc)
251 _dbus_print_backtrace ();
253 _dbus_verbose ("failure %d\n", n_failures_this_failure);
255 n_failures_this_failure += 1;
256 if (n_failures_this_failure >= n_failures_per_failure)
259 fail_alloc_counter = fail_nth;
261 fail_alloc_counter = _DBUS_INT_MAX;
263 n_failures_this_failure = 0;
265 _dbus_verbose ("reset fail alloc counter to %d\n", fail_alloc_counter);
272 fail_alloc_counter -= 1;
276 #endif /* DBUS_BUILD_TESTS */
279 * Get the number of outstanding malloc()'d blocks.
281 * @returns number of blocks
284 _dbus_get_malloc_blocks_outstanding (void)
286 return n_blocks_outstanding;
290 * Where the block came from.
302 source_string (BlockSource source)
312 case SOURCE_MALLOC_ZERO:
314 case SOURCE_REALLOC_NULL:
315 return "realloc(NULL)";
317 _dbus_assert_not_reached ("Invalid malloc block source ID");
322 check_guards (void *free_block,
323 dbus_bool_t overwrite)
325 if (free_block != NULL)
327 unsigned char *block = ((unsigned char*)free_block) - GUARD_START_OFFSET;
328 size_t requested_bytes = *(dbus_uint32_t*)block;
329 BlockSource source = *(dbus_uint32_t*)(block + 4);
336 _dbus_verbose ("Checking %d bytes request from source %s\n",
337 requested_bytes, source_string (source));
341 while (i < GUARD_START_OFFSET)
343 dbus_uint32_t value = *(dbus_uint32_t*) &block[i];
344 if (value != GUARD_VALUE)
346 _dbus_warn ("Block of %lu bytes from %s had start guard value 0x%ux at %d expected 0x%x\n",
347 (long) requested_bytes, source_string (source),
348 value, i, GUARD_VALUE);
355 i = GUARD_START_OFFSET + requested_bytes;
356 while (i < (GUARD_START_OFFSET + requested_bytes + GUARD_END_PAD))
358 dbus_uint32_t value = *(dbus_uint32_t*) &block[i];
359 if (value != GUARD_VALUE)
361 _dbus_warn ("Block of %lu bytes from %s had end guard value 0x%ux at %d expected 0x%x\n",
362 (long) requested_bytes, source_string (source),
363 value, i, GUARD_VALUE);
370 /* set memory to anything but nul bytes */
372 memset (free_block, 'g', requested_bytes);
375 _dbus_assert_not_reached ("guard value corruption");
380 set_guards (void *real_block,
381 size_t requested_bytes,
384 unsigned char *block = real_block;
390 _dbus_assert (GUARD_START_OFFSET + GUARD_END_PAD == GUARD_EXTRA_SIZE);
392 *((dbus_uint32_t*)block) = requested_bytes;
393 *((dbus_uint32_t*)(block + 4)) = source;
396 while (i < GUARD_START_OFFSET)
398 (*(dbus_uint32_t*) &block[i]) = GUARD_VALUE;
403 i = GUARD_START_OFFSET + requested_bytes;
404 while (i < (GUARD_START_OFFSET + requested_bytes + GUARD_END_PAD))
406 (*(dbus_uint32_t*) &block[i]) = GUARD_VALUE;
411 check_guards (block + GUARD_START_OFFSET, FALSE);
413 return block + GUARD_START_OFFSET;
418 /** @} */ /* End of internals docs */
422 * @addtogroup DBusMemory
428 * Allocates the given number of bytes, as with standard
429 * malloc(). Guaranteed to return #NULL if bytes is zero
430 * on all platforms. Returns #NULL if the allocation fails.
431 * The memory must be released with dbus_free().
433 * @param bytes number of bytes to allocate
434 * @return allocated memory, or #NULL if the allocation fails.
437 dbus_malloc (size_t bytes)
439 #ifdef DBUS_BUILD_TESTS
440 _dbus_initialize_malloc_debug ();
442 if (_dbus_decrement_fail_alloc_counter ())
444 _dbus_verbose (" FAILING malloc of %ld bytes\n", (long) bytes);
450 if (bytes == 0) /* some system mallocs handle this, some don't */
452 #ifdef DBUS_BUILD_TESTS
453 else if (fail_size != 0 && bytes > fail_size)
459 block = malloc (bytes + GUARD_EXTRA_SIZE);
461 n_blocks_outstanding += 1;
463 return set_guards (block, bytes, SOURCE_MALLOC);
469 mem = malloc (bytes);
470 #ifdef DBUS_BUILD_TESTS
472 n_blocks_outstanding += 1;
479 * Allocates the given number of bytes, as with standard malloc(), but
480 * all bytes are initialized to zero as with calloc(). Guaranteed to
481 * return #NULL if bytes is zero on all platforms. Returns #NULL if the
482 * allocation fails. The memory must be released with dbus_free().
484 * @param bytes number of bytes to allocate
485 * @return allocated memory, or #NULL if the allocation fails.
488 dbus_malloc0 (size_t bytes)
490 #ifdef DBUS_BUILD_TESTS
491 _dbus_initialize_malloc_debug ();
493 if (_dbus_decrement_fail_alloc_counter ())
495 _dbus_verbose (" FAILING malloc0 of %ld bytes\n", (long) bytes);
503 #ifdef DBUS_BUILD_TESTS
504 else if (fail_size != 0 && bytes > fail_size)
510 block = calloc (bytes + GUARD_EXTRA_SIZE, 1);
512 n_blocks_outstanding += 1;
513 return set_guards (block, bytes, SOURCE_MALLOC_ZERO);
519 mem = calloc (bytes, 1);
520 #ifdef DBUS_BUILD_TESTS
522 n_blocks_outstanding += 1;
529 * Resizes a block of memory previously allocated by dbus_malloc() or
530 * dbus_malloc0(). Guaranteed to free the memory and return #NULL if bytes
531 * is zero on all platforms. Returns #NULL if the resize fails.
532 * If the resize fails, the memory is not freed.
534 * @param memory block to be resized
535 * @param bytes new size of the memory block
536 * @return allocated memory, or #NULL if the resize fails.
539 dbus_realloc (void *memory,
542 #ifdef DBUS_BUILD_TESTS
543 _dbus_initialize_malloc_debug ();
545 if (_dbus_decrement_fail_alloc_counter ())
547 _dbus_verbose (" FAILING realloc of %ld bytes\n", (long) bytes);
553 if (bytes == 0) /* guarantee this is safe */
558 #ifdef DBUS_BUILD_TESTS
559 else if (fail_size != 0 && bytes > fail_size)
568 check_guards (memory, FALSE);
570 block = realloc (((unsigned char*)memory) - GUARD_START_OFFSET,
571 bytes + GUARD_EXTRA_SIZE);
573 old_bytes = *(dbus_uint32_t*)block;
574 if (block && bytes >= old_bytes)
575 /* old guards shouldn't have moved */
576 check_guards (((unsigned char*)block) + GUARD_START_OFFSET, FALSE);
578 return set_guards (block, bytes, SOURCE_REALLOC);
584 block = malloc (bytes + GUARD_EXTRA_SIZE);
587 n_blocks_outstanding += 1;
589 return set_guards (block, bytes, SOURCE_REALLOC_NULL);
596 mem = realloc (memory, bytes);
597 #ifdef DBUS_BUILD_TESTS
598 if (memory == NULL && mem != NULL)
599 n_blocks_outstanding += 1;
606 * Frees a block of memory previously allocated by dbus_malloc() or
607 * dbus_malloc0(). If passed #NULL, does nothing.
609 * @param memory block to be freed
612 dbus_free (void *memory)
614 #ifdef DBUS_BUILD_TESTS
617 check_guards (memory, TRUE);
620 n_blocks_outstanding -= 1;
622 _dbus_assert (n_blocks_outstanding >= 0);
624 free (((unsigned char*)memory) - GUARD_START_OFFSET);
631 if (memory) /* we guarantee it's safe to free (NULL) */
633 #ifdef DBUS_BUILD_TESTS
634 n_blocks_outstanding -= 1;
636 _dbus_assert (n_blocks_outstanding >= 0);
644 * Frees a #NULL-terminated array of strings.
645 * If passed #NULL, does nothing.
647 * @param str_array the array to be freed
650 dbus_free_string_array (char **str_array)
659 dbus_free (str_array[i]);
663 dbus_free (str_array);
667 /** @} */ /* End of public API docs block */
671 * @addtogroup DBusMemoryInternals
677 * _dbus_current_generation is used to track each
678 * time that dbus_shutdown() is called, so we can
679 * reinit things after it's been called. It is simply
680 * incremented each time we shut down.
682 int _dbus_current_generation = 1;
685 * Represents a function to be called on shutdown.
687 typedef struct ShutdownClosure ShutdownClosure;
690 * This struct represents a function to be called on shutdown.
692 struct ShutdownClosure
694 ShutdownClosure *next; /**< Next ShutdownClosure */
695 DBusShutdownFunction func; /**< Function to call */
696 void *data; /**< Data for function */
699 _DBUS_DEFINE_GLOBAL_LOCK (shutdown_funcs);
700 static ShutdownClosure *registered_globals = NULL;
703 * Register a cleanup function to be called exactly once
704 * the next time dbus_shutdown() is called.
706 * @param func the function
707 * @param data data to pass to the function
708 * @returns #FALSE on not enough memory
711 _dbus_register_shutdown_func (DBusShutdownFunction func,
716 c = dbus_new (ShutdownClosure, 1);
724 _DBUS_LOCK (shutdown_funcs);
726 c->next = registered_globals;
727 registered_globals = c;
729 _DBUS_UNLOCK (shutdown_funcs);
734 /** @} */ /* End of private API docs block */
738 * @addtogroup DBusMemory
744 * The D-BUS library keeps some internal global variables, for example
745 * to cache the username of the current process. This function is
746 * used to free these global variables. It is really useful only for
747 * leak-checking cleanliness and the like. WARNING: this function is
748 * NOT thread safe, it must be called while NO other threads are using
749 * D-BUS. You cannot continue using D-BUS after calling this function,
750 * as it does things like free global mutexes created by
751 * dbus_threads_init(). To use a D-BUS function after calling
752 * dbus_shutdown(), you have to start over from scratch, e.g. calling
753 * dbus_threads_init() again.
758 while (registered_globals != NULL)
762 c = registered_globals;
763 registered_globals = c->next;
765 (* c->func) (c->data);
770 _dbus_current_generation += 1;
773 /** @} */ /** End of public API docs block */
775 #ifdef DBUS_BUILD_TESTS
776 #include "dbus-test.h"
779 * @ingroup DBusMemoryInternals
780 * Unit test for DBusMemory
781 * @returns #TRUE on success.
784 _dbus_memory_test (void)
786 dbus_bool_t old_guards;
794 _dbus_assert_not_reached ("no memory");
795 for (size = 4; size < 256; size += 4)
797 p = dbus_realloc (p, size);
799 _dbus_assert_not_reached ("no memory");
801 for (size = 256; size != 0; size -= 4)
803 p = dbus_realloc (p, size);
805 _dbus_assert_not_reached ("no memory");