forked from Unidata/netcdf-c
/
debug.c
79 lines (69 loc) · 1.59 KB
/
debug.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
/*********************************************************************
* Copyright 2009, UCAR/Unidata
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
*********************************************************************/
/* $Id: debug.c,v 1.2 2010/05/24 19:59:57 dmh Exp $ */
/* $Header: /upc/share/CVS/netcdf-3/ncgen/debug.c,v 1.2 2010/05/24 19:59:57 dmh Exp $ */
#include "includes.h"
extern char* ncclassname(nc_class);
#ifdef DEBUG
int debug = 1;
#else
int debug = 0;
#endif
void fdebug(const char *fmt, ...)
{
va_list argv;
if(debug == 0) return;
va_start(argv,fmt);
(void)vfprintf(stderr,fmt,argv) ;
}
/**************************************************/
/* Support debugging of memory*/
/* Also guarantee that calloc zeros memory*/
void*
chkcalloc(size_t size, size_t nelems)
{
return chkmalloc(size*nelems);
}
void*
chkmalloc(size_t size)
{
void* memory = calloc(size,1); /* use calloc to zero memory*/
if(memory == NULL) {
panic("malloc:out of memory");
}
memset(memory,0,size);
return memory;
}
void*
chkrealloc(void* ptr, size_t size)
{
void* memory = realloc(ptr,size);
if(memory == NULL) {
panic("realloc:out of memory");
}
return memory;
}
void
chkfree(void* mem)
{
if(mem != NULL) free(mem);
}
int
panic(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);
abort();
return 0;
}