Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / legion / src / generic / allocate.c

/*
* ========== Copyright Header Begin ==========================================
* 
* OpenSPARC T2 Processor File: allocate.c
* Copyright (c) 2006 Sun Microsystems, Inc.  All Rights Reserved.
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES.
* 
* The above named program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public
* License version 2 as published by the Free Software Foundation.
* 
* The above named program 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 this work; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
* 
* ========== Copyright Header End ============================================
*/
/*
 * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident	"@(#)allocate.c	1.6	06/08/15 SMI"

#include <string.h>
#include <malloc.h>
#include <unistd.h>
#include <stdlib.h>

#include "basics.h"
#include "fatal.h"
#include "allocate.h"


	/*
	 * Simple allocation routines
	 */



void * xmalloc(size_t size, int linen, char * filen)
{
	void *p;

	if (size<=0) {
		if (size<0) fatal("xmalloc of negative size (%d) at %d in %s",
			linen, filen);
		warning("xmalloc of zero size at %d in %s", linen, filen);
		return (void*)0;
	}

	p = malloc(size);
	if (p == (void*)0) fatal("malloc of %d at %d in %s", size, linen, filen);

	return p;
}


void * xcalloc(size_t num, size_t size, int linen, char * filen)
{
	void *p;

	if (size<=0 || num<=0)
		fatal("xcalloc(%d,%d) : one of number or size is <= 0 at line %d of %s",
			num, size, linen, filen);

	p = calloc(num, size);
	if (p == (void*)0) fatal("calloc of %d of size %d at %d in %s", num, size, linen, filen);

	return p;
}



void xfree(void * p, int linen, char * filen)
{
	if (p == (void*)0) {
		warning("xfree of null pointer at %d in %s", linen, filen);
		return;
	}

	free(p);
}


void * xrealloc(void * oldp, size_t size, int linen, char * filen)
{
	void *p;

	if (size <= 0) {
		if (size == 0) {
			xfree(oldp, linen, filen);
			warning("xrealloc to zero size at %d in %s", linen, filen);
			return (void*)0;
		}

		fatal("xrealloc to negative size %d at %d in %s", size, linen, filen);
	}

	if (oldp == (void*)0) {
		p = malloc(size);
	} else {
		p = realloc(oldp, size);
	}

	if (p == (void*)0) fatal("xrealloc failed @ %d in %s", linen, filen);

	return p;
}



char * xstrdup(char * strp, int linen, char * filen)
{
	char * p;

	p = strdup(strp);
	if (p == (char*)0) fatal("xstrdup @ %d in %s failed", linen, filen);

	return p;
}