You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
1.2 KiB
59 lines
1.2 KiB
2 years ago
|
/*********************************************************************
|
||
|
* Copyright 2018, UCAR/Unidata
|
||
|
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
||
|
*********************************************************************/
|
||
|
#include "config.h"
|
||
|
#include <stdarg.h>
|
||
|
#include <stdio.h>
|
||
|
#ifdef HAVE_EXECINFO_H
|
||
|
#include <execinfo.h>
|
||
|
#endif
|
||
|
|
||
|
#include "hdf5debug.h"
|
||
|
|
||
|
#ifdef H5CATCH
|
||
|
|
||
|
#define STSIZE 1000
|
||
|
|
||
|
#ifdef HAVE_EXECINFO_H
|
||
|
#ifdef H5BACKTRACE
|
||
|
# if !defined _WIN32 && !defined __CYGWIN__
|
||
|
static void* stacktrace[STSIZE];
|
||
|
# endif
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
int
|
||
|
nch5breakpoint(int err)
|
||
|
{
|
||
|
#ifdef HAVE_EXECINFO_H
|
||
|
#ifdef H5BACKTRACE
|
||
|
# if !defined _WIN32 && !defined __CYGWIN__
|
||
|
int count = 0;
|
||
|
char** trace = NULL;
|
||
|
int i;
|
||
|
|
||
|
count = backtrace(stacktrace,STSIZE);
|
||
|
trace = backtrace_symbols(stacktrace, STSIZE);
|
||
|
fprintf(stderr,"backtrace:\n");
|
||
|
for(i=0;i<count;i++)
|
||
|
fprintf(stderr,"[%03d] %s\n",i,trace[i]);
|
||
|
# if 0
|
||
|
if(trace != NULL) free(trace);
|
||
|
# endif
|
||
|
# endif
|
||
|
#endif
|
||
|
#endif
|
||
|
return ncbreakpoint(err);
|
||
|
}
|
||
|
|
||
|
int
|
||
|
nch5throw(int err, int line)
|
||
|
{
|
||
|
if(err == 0) return err;
|
||
|
fprintf(stderr,">>> hdf5throw: line=%d err=%d\n",line,err); fflush(stderr);
|
||
|
return nch5breakpoint(err);
|
||
|
}
|
||
|
#endif
|
||
|
|