(xalloc): New function.

Rev: nettle/tools/misc.c:1.3
Rev: nettle/tools/misc.h:1.3

tools/misc.c

@@ -50,6 +50,19 @@ werror(const char *format, ...)
   va_end(args);
 }
 
+void *
+xalloc(size_t size)
+{
+  void *p = malloc(size);
+  if (!p)
+    {
+      fprintf(stderr, "Virtual memory exhausted.\n");
+      abort();
+    }
+
+  return p;
+}
+
 const char
 sexp_token_chars[0x80] =
   {

tools/misc.h

@@ -43,6 +43,9 @@ werror(const char *format, ...)
 #endif
      ;
 
+void *
+xalloc(size_t size);
+
 enum sexp_mode
   {
     SEXP_CANONICAL = 0,