mirror of
https://github.com/Unidata/netcdf-c.git
synced 2025-02-17 16:50:18 +08:00
67 lines
1.4 KiB
C
67 lines
1.4 KiB
C
/*********************************************************************
|
|
* Copyright 1993, UCAR/Unidata
|
|
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
|
* $Header: /upc/share/CVS/netcdf-3/libncdap3/dapdebug.c,v 1.9 2009/09/23 22:26:00 dmh Exp $
|
|
*********************************************************************/
|
|
#include "config.h"
|
|
#include "oc.h"
|
|
#include "dapdebug.h"
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
|
|
int ncdap3debug = 0;
|
|
|
|
/* Support debugging of memory*/
|
|
/* Also guarantee that calloc zeros memory*/
|
|
void*
|
|
dapcalloc(size_t size, size_t nelems)
|
|
{
|
|
return dapmalloc(size*nelems);
|
|
}
|
|
|
|
void*
|
|
dapmalloc(size_t size)
|
|
{
|
|
void* memory = calloc(size,1); /* use calloc to zero memory*/
|
|
if(memory == NULL) {
|
|
oc_log(OCLOGERR,"malloc:out of memory");
|
|
}
|
|
return memory;
|
|
}
|
|
|
|
void
|
|
dapfree(void* mem)
|
|
{
|
|
if(mem != NULL) free(mem);
|
|
}
|
|
|
|
#ifdef CATCHERROR
|
|
/* Place breakpoint here to catch errors close to where they occur*/
|
|
int
|
|
dapbreakpoint(int err) {return err;}
|
|
|
|
int
|
|
dapthrow(int err)
|
|
{
|
|
if(err == 0) return err;
|
|
return dapbreakpoint(err);
|
|
}
|
|
#endif
|
|
|
|
int
|
|
dappanic(const char* fmt, ...)
|
|
{
|
|
va_list args;
|
|
if(fmt != NULL) {
|
|
va_start(args, fmt);
|
|
vfprintf(stderr, fmt, args);
|
|
fprintf(stderr, "\n" );
|
|
va_end( args );
|
|
} else {
|
|
fprintf(stderr, "panic" );
|
|
}
|
|
fprintf(stderr, "\n" );
|
|
fflush(stderr);
|
|
return 0;
|
|
}
|