1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#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));
}
|
