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.
70 lines
2.3 KiB
70 lines
2.3 KiB
#ifndef ngspice_MEMORY_H
|
|
#define ngspice_MEMORY_H
|
|
|
|
#include <stddef.h>
|
|
|
|
#define TMALLOC(t, n) (t*) tmalloc(sizeof(t) * (size_t)(n))
|
|
#define TREALLOC(t, p, n) (t*) trealloc(p, sizeof(t) * (size_t)(n))
|
|
|
|
|
|
#ifndef HAVE_LIBGC
|
|
|
|
extern void *tmalloc(size_t num);
|
|
extern void *trealloc(void *str, size_t num);
|
|
extern void txfree(void *ptr);
|
|
|
|
#define tfree(x) (txfree(x), (x) = 0)
|
|
|
|
#else
|
|
|
|
#include <gc/gc.h>
|
|
|
|
#define tmalloc(m) GC_malloc(m)
|
|
#define trealloc(m, n) GC_realloc((m), (n))
|
|
#define tfree(m)
|
|
#define txfree(m)
|
|
|
|
#endif /* HAVE_LIBGC */
|
|
|
|
|
|
#include "ngspice/stringutil.h" /* va: spice3 internally bzero */
|
|
|
|
#define alloc(TYPE) TMALLOC(TYPE, 1)
|
|
#define MALLOC(x) tmalloc((size_t) (x))
|
|
#define FREE(x) do { if(x) { txfree(x); (x) = NULL; } } while(0)
|
|
#define REALLOC(x, y) trealloc(x, (size_t) (y))
|
|
#define ZERO(PTR, TYPE) bzero(PTR, sizeof(TYPE))
|
|
|
|
|
|
#if defined(_MSC_VER) || defined(__MINGW32__)
|
|
void *hrealloc(void *ptr, size_t num);
|
|
#endif
|
|
|
|
|
|
#ifdef CIDER
|
|
|
|
#define RALLOC(ptr, type, number) \
|
|
do { \
|
|
if ((number) && (ptr = (type *)calloc((size_t)(number), sizeof(type))) == NULL) \
|
|
return E_NOMEM; \
|
|
} while(0)
|
|
|
|
#define XALLOC(ptr, type, number) \
|
|
do { \
|
|
if ((number) && (ptr = (type *)calloc((size_t)(number), sizeof(type))) == NULL) { \
|
|
SPfrontEnd->IFerror(E_PANIC, "Out of Memory", NULL); \
|
|
exit(1); \
|
|
} \
|
|
} while(0)
|
|
|
|
#define XCALLOC(ptr, type, number) \
|
|
do { \
|
|
if ((number) && (ptr = (type *)calloc((size_t)(number), sizeof(type))) == NULL) { \
|
|
fprintf(stderr, "Out of Memory\n"); \
|
|
exit(1); \
|
|
} \
|
|
} while(0)
|
|
|
|
#endif /* CIDER */
|
|
|
|
#endif
|