#define CAML_INTERNALS

#include <caml/mlvalues.h>
#include <caml/domain_state.h>
#include <caml/signals.h>
#include <caml/minor_gc.h>
#include <caml/camlatomic.h>

CAMLprim value request_minor_gc(value v) {
  Caml_state->requested_minor_gc = 1;
  Caml_state->requested_major_slice = 1;
  /*
    This is massively unsafe in multicore but the polling
    tests are only run in a single domain, so we're probably
    good.
  */
  Caml_state->young_limit = (uintnat)Caml_state->young_end;

  return Val_unit;
}

CAMLprim value minor_gcs(value v) {
  return Val_long(atomic_load(&caml_minor_collections_count));
}