Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / hypervisor / src / support / mdgen / allocate.c

/*
* ========== Copyright Header Begin ==========================================
*
* Hypervisor Software File: allocate.c
* 
* Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved.
* 
*  - Do no alter or remove copyright notices
* 
*  - Redistribution and use of this software in source and binary forms, with 
*    or without modification, are permitted provided that the following 
*    conditions are met: 
* 
*  - Redistribution of source code must retain the above copyright notice, 
*    this list of conditions and the following disclaimer.
* 
*  - Redistribution in binary form must reproduce the above copyright notice,
*    this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution. 
* 
*    Neither the name of Sun Microsystems, Inc. or the names of contributors 
* may be used to endorse or promote products derived from this software 
* without specific prior written permission. 
* 
*     This software is provided "AS IS," without a warranty of any kind. 
* ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, 
* INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A 
* PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN 
* MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR 
* ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR 
* DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN 
* OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR 
* FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE 
* DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, 
* ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF 
* SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
* 
* You acknowledge that this software is not designed, licensed or
* intended for use in the design, construction, operation or maintenance of
* any nuclear facility. 
* 
* ========== Copyright Header End ============================================
*/
/*
* Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
* Use is subject to license terms.
*/

#pragma ident   "@(#)allocate.c 1.1     04/07/16 SMI"

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

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


/*
* Simple allocation routines
*/

void *
xmalloc(int 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 (NULL);
       }

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

       return (p);
}


void *
xcalloc(int num, int 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 == NULL) {
               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 == NULL) {
               warning("xfree of NULL pointer at %d in %s", linen, filen);
               return;
       }

       free(p);
}


void *
xrealloc(void *oldp, int 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 (NULL);
               }

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

       if (oldp == NULL) {
               p = malloc(size);
       } else {
               p = realloc(oldp, size);
       }
       if (p == NULL)
               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 == NULL)
               fatal("xstrdup @ %d in %s failed", linen, filen);

       return (p);
}