1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(* TEST
modules = "stubs.c";
include runtime_events;
*)
external start_runtime_events : unit -> unit = "start_runtime_events"
external get_event_counts : unit -> (int * int) = "get_event_counts"
let () =
Gc.full_major ();
start_runtime_events ();
for a = 0 to 2 do
ignore(Sys.opaque_identity(ref 42));
Gc.compact ()
done;
let (minors, majors) = get_event_counts () in
Printf.printf "minors: %d, majors: %d\n" minors majors;
(* Now test we can pause/resume while we're doing things *)
for a = 0 to 2 do
ignore(Sys.opaque_identity(ref 42));
Runtime_events.resume ();
Gc.compact ();
Runtime_events.pause ()
done;
let (minors, majors) = get_event_counts () in
Printf.printf "minors: %d, majors: %d\n" minors majors
|
