package memtrace_viewer

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

Source file obj_id.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Core
open Memtrace

module T = struct
  type t = Trace.Obj_id.t

  let hash t = Int.hash (t : t :> int)
  let hash_fold_t s t = Int.hash_fold_t s (t : t :> int)
  let compare t1 t2 = Int.compare (t1 : t :> int) (t2 : t :> int)
  let sexp_of_t t = Int.sexp_of_t (t : t :> int)
end

include T
include Hashable.Make_plain (T)
OCaml

Innovation. Community. Security.