1(**************************************************************************) 2(* *) 3(* OCaml *) 4(* *) 5(* Pierre Chambart, OCamlPro *) 6(* Mark Shinwell and Leo White, Jane Street Europe *) 7(* *) 8(* Copyright 2013--2016 OCamlPro SAS *) 9(* Copyright 2014--2016 Jane Street Group LLC *) 10(* *) 11(* All rights reserved. This file is distributed under the terms of *) 12(* the GNU Lesser General Public License version 2.1, with the *) 13(* special exception on linking described in the file LICENSE. *) 14(* *) 15(**************************************************************************) 16 17[@@@ocaml.warning "+a-4-9-30-40-41-42"] 18 19type t = int 20 21include Identifiable.Make (Numbers.Int) 22 23let create_exn tag = 24 if tag < 0 || tag > 255 then 25 Misc.fatal_error (Printf.sprintf "Tag.create_exn %d" tag) 26 else 27 tag 28 29let to_int t = t 30 31let zero = 0 32let object_tag = Obj.object_tag 33