Source file `scheduler0.ml`

1
2
3
4
5
6
7
8
9
10
11
open! Core_kernel
open! Import
include Types.Scheduler

let events t = t.time_source.events

let set_execution_context t execution_context =
  (* Avoid a caml_modify in most cases. *)
  if not (phys_equal t.current_execution_context execution_context)
  then t.current_execution_context <- execution_context
;;