90 строки
2.2 KiB
C
90 строки
2.2 KiB
C
/* -*- Mode: C; c-basic-offset:4 ; -*- */
|
|
/*
|
|
* $Id: malloc.c,v 1.9 2002/10/24 17:01:15 gropp Exp $
|
|
*
|
|
* Copyright (C) 1997 University of Chicago.
|
|
* See COPYRIGHT notice in top-level directory.
|
|
*/
|
|
|
|
/* These are routines for allocating and deallocating memory.
|
|
They should be called as ADIOI_Malloc(size) and
|
|
ADIOI_Free(ptr). In adio.h, they are macro-replaced to
|
|
ADIOI_Malloc(size,__LINE__,__FILE__) and
|
|
ADIOI_Free(ptr,__LINE__,__FILE__).
|
|
|
|
Later on, add some tracing and error checking, similar to
|
|
MPID_trmalloc. */
|
|
|
|
/* can't include adio.h here, because of the macro, so
|
|
* include romioconf.h to make sure config-time defines get included */
|
|
|
|
#include "romioconf.h"
|
|
#include "mpi.h"
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include "mpipr.h"
|
|
/* Open MPI: This seemes to have been missing */
|
|
#include "adio.h"
|
|
|
|
#define FPRINTF fprintf
|
|
void *ADIOI_Malloc_fn(size_t size, int lineno, char *fname);
|
|
void *ADIOI_Calloc_fn(size_t nelem, size_t elsize, int lineno, char *fname);
|
|
void *ADIOI_Realloc_fn(void *ptr, size_t size, int lineno, char *fname);
|
|
void ADIOI_Free_fn(void *ptr, int lineno, char *fname);
|
|
|
|
void *ADIOI_Malloc_fn(size_t size, int lineno, char *fname)
|
|
{
|
|
void *new;
|
|
|
|
#ifdef XFS
|
|
new = (void *) memalign(XFS_MEMALIGN, size);
|
|
#else
|
|
new = (void *) malloc(size);
|
|
#endif
|
|
if (!new) {
|
|
FPRINTF(stderr, "Out of memory in file %s, line %d\n", fname, lineno);
|
|
MPI_Abort(MPI_COMM_WORLD, 1);
|
|
}
|
|
|
|
return new;
|
|
}
|
|
|
|
|
|
void *ADIOI_Calloc_fn(size_t nelem, size_t elsize, int lineno, char *fname)
|
|
{
|
|
void *new;
|
|
|
|
new = (void *) calloc(nelem, elsize);
|
|
if (!new) {
|
|
FPRINTF(stderr, "Out of memory in file %s, line %d\n", fname, lineno);
|
|
MPI_Abort(MPI_COMM_WORLD, 1);
|
|
}
|
|
|
|
return new;
|
|
}
|
|
|
|
|
|
void *ADIOI_Realloc_fn(void *ptr, size_t size, int lineno, char *fname)
|
|
{
|
|
void *new;
|
|
|
|
new = (void *) realloc(ptr, size);
|
|
if (!new) {
|
|
FPRINTF(stderr, "realloc failed in file %s, line %d\n", fname, lineno);
|
|
MPI_Abort(MPI_COMM_WORLD, 1);
|
|
}
|
|
return new;
|
|
}
|
|
|
|
|
|
void ADIOI_Free_fn(void *ptr, int lineno, char *fname)
|
|
{
|
|
if (!ptr) {
|
|
FPRINTF(stderr, "Attempt to free null pointer in file %s, line %d\n", fname, lineno);
|
|
MPI_Abort(MPI_COMM_WORLD, 1);
|
|
}
|
|
|
|
free(ptr);
|
|
}
|
|
|