package fuseau

  1. Overview
  2. Docs
package fuseau
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file fiber_handle.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open Common_

type t = int

let counter_ = A.make 0
let fresh () = A.fetch_and_add counter_ 1
let equal : t -> t -> bool = ( = )
let compare : t -> t -> int = Stdlib.compare

(* TODO: better hash *)
let[@inline] hash x = x land max_int

module Set = Int_set
module Map = Int_map