Idris2/support/c/idris_memory.c

#include "idris_memory.h"

#include <errno.h>
#include <stdlib.h>
#include <string.h>

#include "idris_util.h"

void *idris2_malloc(int size) {
  IDRIS2_VERIFY(size >= 0, "malloc negative argument: %d", size);

  if (size == 0) {
    // Do not depend on platform-speific behavior of malloc.
    return NULL;
  }

  void *ptr = malloc(size);
  IDRIS2_VERIFY(ptr, "malloc failed: %s", strerror(errno));
  return ptr;
}

void idris2_free(void *ptr) {
  if (!ptr) {
    return;
  }
  free(ptr);
}

// TODO: remove `idrnet_malloc` and `idrnet_free` after bootstrap update

void *idrnet_malloc(int size) { return idris2_malloc(size); }

void idrnet_free(void *ptr) { idris2_free(ptr); }