1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open! Core
module Location = struct
type t =
{ filename : string option
; line : int
; col : int
}
[@@deriving sexp]
end
module Addr_table = struct
type t = Location.t Int.Table.t
end
module Stop_info = struct
type t =
{ name : string
; addr : int64
; filter : string
}
end