/*
 * $Id: walloc.h 16108 2009-03-10 15:19:52Z rmanfredi $
 *
 * Copyright (c) 2002-2003, Raphael Manfredi
 *
 *----------------------------------------------------------------------
 * This file is part of gtk-gnutella.
 *
 *  gtk-gnutella is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  gtk-gnutella is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with gtk-gnutella; if not, write to the Free Software
 *  Foundation, Inc.:
 *      59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *----------------------------------------------------------------------
 */

/**
 * @ingroup lib
 * @file
 *
 * Explicit-width block allocator, based on zalloc().
 *
 * @author Raphael Manfredi
 * @date 2002-2003
 */

#ifndef _walloc_h_
#define _walloc_h_

#include "common.h"
#include "malloc.h"

/*
 * Under REMAP_ZALLOC control, those routines are remapped to malloc/free.
 * Under TRACK_ZALLOC, we keep track of the allocation places.
 */

#if defined(USE_DMALLOC) && !defined(REMAP_ZALLOC)
#define REMAP_ZALLOC
#endif

#ifdef REMAP_ZALLOC

#ifdef TRACK_ZALLOC
#error "TRACK_ZALLOC and REMAP_ZALLOC are mutually exclusive"
#endif

#if 0 && GLIB_CHECK_VERSION(2, 10, 0)
static inline gpointer walloc(size_t size) { return g_slice_alloc(size); }
static inline gpointer walloc0(size_t size) { return g_slice_alloc0(size); }
static inline void wfree(gpointer p, size_t size) { g_slice_free1(size, p); }

static inline gpointer
wcopy(gconstpointer p, size_t size)
{
	gpointer x = g_slice_alloc(size);
	memcpy(x, p, size);
	return x;
}

static inline gpointer
wrealloc(gpointer p, size_t old_size, size_t new_size)
{
	gpointer x = g_slice_alloc(new_size);
	memcpy(x, p, MIN(new_size, old_size));
	g_slice_free1(old_size, p);
	return x;
}

#else	/* GLib < 2.10 */
#define walloc(s)			g_malloc(s)
#define walloc0(s)			g_malloc0(s)

static inline gpointer
wcopy(gconstpointer p, size_t size)
{
	return g_memdup(p, size);
}

static inline void
wfree(gpointer p, size_t size)
{
	(void) size;
	g_free(p);
}

static inline gpointer
wrealloc(gpointer p, size_t o, size_t n)
{
	(void) o;
	return g_realloc(p, n);
}
#endif	/* GLib >= 2.10 */

#else	/* !REMAP_ZALLOC */

gpointer walloc(size_t size) WARN_UNUSED_RESULT G_GNUC_MALLOC;
gpointer walloc0(size_t size) WARN_UNUSED_RESULT G_GNUC_MALLOC;
void wfree(gpointer ptr, size_t size);
gpointer wrealloc(gpointer old, size_t old_size, size_t new_size)
			WARN_UNUSED_RESULT G_GNUC_MALLOC;

/* Don't define both an inline routine and a macro... */
#ifndef TRACK_ZALLOC
static inline gpointer wcopy(gconstpointer ptr, size_t size)
			WARN_UNUSED_RESULT G_GNUC_MALLOC;

static inline gpointer
wcopy(gconstpointer ptr, size_t size)
{
	gpointer cp = walloc(size);
	memcpy(cp, ptr, size);
	return cp;
}
#endif

#endif	/* REMAP_ZALLOC */

#ifdef TRACK_ZALLOC

#define walloc(s)			walloc_track(s, _WHERE_, __LINE__)
#define wcopy(p,s)			wcopy_track(p, s, _WHERE_, __LINE__)
#define walloc0(s)			walloc0_track(s, _WHERE_, __LINE__)
#define wrealloc(p,o,n)		wrealloc_track(p, o, n, _WHERE_, __LINE__)

gpointer walloc_track(size_t size, char *file, int line);
gpointer walloc0_track(size_t size, char *file, int line);
gpointer wcopy_track(gconstpointer, size_t size, char *file, int line);
gpointer wrealloc_track(gpointer old, size_t old_size, size_t new_size,
	char *file, int line);

#endif	/* TRACK_ZALLOC */

void wdestroy(void);

#define WFREE_NULL(p,size)	\
G_STMT_START {				\
	if (p) {				\
		wfree(p,size);		\
		p = NULL;			\
	}						\
} G_STMT_END

#endif /* _walloc_h_ */
/* vi: set ts=4 sw=4 cindent: */
