//===--------------- gcerror.cc - Mvm allocator ---------------------------===//
//
//                              Mvm
//
// This file is distributed under the University of Illinois Open Source
// License. See LICENSE.TXT for details.
//
//===----------------------------------------------------------------------===//

#include "gcerror.h"
#include <stdarg.h>
#include "osdep.h"

static void __gcfatal(const char *file, unsigned int l, const char *func, const char *msg, ...)
{
  va_list va;
  va_start(va, msg);
  fprintf(stderr, "GC[error] in %s line %d (function %s)\n", file, l, func);
  vfprintf(stderr, msg, va);
  fprintf(stderr, "\n");
  va_end(va);
  exit(0);
}

static void _on_fatal() {}

void (*_gcfatal)(const char *, unsigned int l, const char *, const char *, ...) = __gcfatal;
void (*on_fatal)(void) = _on_fatal;

static void _defaultOnMemoryError(unsigned int sz)
{
  fprintf(stderr, "GC[error] out of memory for %d bytes\n", sz);
  exit(0);
}

void (*onMemoryError)(unsigned int) = _defaultOnMemoryError;