*/
#define MAXMSGS 256
-/*
- * Safely call malloc
- */
-void *
-mh_xmalloc(size_t size)
+/* Call malloc(3), exiting on NULL return. */
+void *mh_xmalloc(size_t size)
{
- void *memory;
+ void *p;
if (size == 0)
- adios(NULL, "Tried to malloc 0 bytes");
-
- memory = malloc(size);
- if (!memory)
- adios(NULL, "Malloc failed");
+ size = 1; /* Some mallocs don't like 0. */
+ p = malloc(size);
+ if (!p)
+ adios(NULL, "malloc failed, size wanted: %zu", size);
- return memory;
+ return p;
}
-/*
- * Safely call realloc
- */
-void *
-mh_xrealloc(void *ptr, size_t size)
+/* Call realloc(3), exiting on NULL return. */
+void *mh_xrealloc(void *ptr, size_t size)
{
- void *memory;
+ void *new;
- /* Some non-POSIX realloc()s don't cope with realloc(NULL,sz) */
+ /* Copy POSIX behaviour, coping with non-POSIX systems. */
+ if (size == 0) {
+ if (ptr) {
+ free(ptr);
+ }
+ return mh_xmalloc(1); /* Get a unique pointer. */
+ }
if (!ptr)
return mh_xmalloc(size);
- if (size == 0)
- adios(NULL, "Tried to realloc 0bytes");
-
- memory = realloc(ptr, size);
- if (!memory)
- adios(NULL, "Realloc failed");
+ new = realloc(ptr, size);
+ if (!new)
+ adios(NULL, "realloc failed, size wanted: %zu", size);
- return memory;
+ return new;
}
-/*
- * Safely call calloc
- */
-void *
-mh_xcalloc(size_t nmemb, size_t size)
+/* Call calloc(3), exiting on NULL return. */
+void *mh_xcalloc(size_t nelem, size_t elsize)
{
- void *memory;
+ void *p;
- if (nmemb == 0 || size == 0)
- adios(NULL, "Tried to calloc 0 bytes");
+ if (!nelem || !elsize)
+ return mh_xmalloc(1); /* Get a unique pointer. */
- if ((memory = calloc(nmemb, size))) {
- return memory;
- } else {
- adios(NULL, "calloc failed");
- }
+ p = calloc(nelem, elsize);
+ if (!p)
+ adios(NULL, "calloc failed, size wanted: %zu * %zu", nelem, elsize);
+
+ return p;
+}
+
+/* Call free(3), if ptr isn't NULL. */
+void mh_xfree(void *ptr)
+{
+ if (ptr)
+ free(ptr); /* Some very old platforms can't cope with NULL. */
}
/*
} else {
int status = context_foil(NULL);
if (status != OK) {
- advise("", "failed to create minimal profile/conext");
+ advise("", "failed to create minimal profile/context");
}
return status;
}