#include <ccan/compiler/compiler.h>
#include <ccan/likely/likely.h>
#include <ccan/typesafe_cb/typesafe_cb.h>
+#include <ccan/str/str.h>
#include <stdlib.h>
#include <stdbool.h>
#include <stdarg.h>
* @ctx: NULL, or tal allocated object to be parent.
* @type: the type to allocate.
*
- * Allocates a specific type, with a given parent context.
+ * Allocates a specific type, with a given parent context. The name
+ * of the object is a string of the type, but if CCAN_TAL_DEBUG is
+ * defined it also contains the file and line which allocated it.
*/
-#define tal(ctx, type) tal_arr((ctx), type, 1)
+#define tal(ctx, type) \
+ ((type *)tal_alloc_((ctx), sizeof(type), false, TAL_LABEL(type, "")))
/**
* talz - zeroing allocator function
*
* Equivalent to tal() followed by memset() to zero.
*/
-#define talz(ctx, type) tal_arrz((ctx), type, 1)
+#define talz(ctx, type) \
+ ((type *)tal_alloc_((ctx), sizeof(type), true, TAL_LABEL(type, "")))
/**
* tal_free - free a tal-allocated pointer.
* @count: the number to allocate.
*/
#define tal_arr(ctx, type, count) \
- ((type *)tal_alloc_((ctx), tal_sizeof_(sizeof(type), (count)), false))
+ ((type *)tal_alloc_((ctx), tal_sizeof_(sizeof(type), (count)), false, \
+ TAL_LABEL(type, "[]")))
/**
* tal_arrz - allocate an array of zeroed objects.
* @count: the number to allocate.
*/
#define tal_arrz(ctx, type, count) \
- ((type *)tal_alloc_((ctx), tal_sizeof_(sizeof(type), (count)), true))
+ ((type *)tal_alloc_((ctx), tal_sizeof_(sizeof(type), (count)), true, \
+ TAL_LABEL(type, "[]")))
/**
* tal_resize - enlarge or reduce a tal_arr(z).
#endif
/* Internal support functions */
+#ifndef TAL_LABEL
+#ifdef CCAN_TAL_NO_LABELS
+#define TAL_LABEL(type, arr) NULL
+#else
+#ifdef CCAN_TAL_DEBUG
+#define TAL_LABEL(type, arr) \
+ __FILE__ ":" stringify(__LINE__) ":" stringify(type) arr
+#else
+#define TAL_LABEL(type, arr) stringify(type) arr
+#endif /* CCAN_TAL_DEBUG */
+#endif
+#endif
+
#if HAVE_BUILTIN_CONSTANT_P
#define TAL_IS_LITERAL(str) __builtin_constant_p(str)
#else
#define tal_typeof(ptr)
#endif
-void *tal_alloc_(const tal_t *ctx, size_t bytes, bool clear);
+void *tal_alloc_(const tal_t *ctx, size_t bytes, bool clear, const char *label);
tal_t *tal_steal_(const tal_t *new_parent, const tal_t *t);