My working unpac repository
1(**************************************************************************)
2(* *)
3(* OCaml *)
4(* *)
5(* Pierre Chambart, OCamlPro *)
6(* *)
7(* Copyright 2015 Institut National de Recherche en Informatique et *)
8(* en Automatique. *)
9(* *)
10(* All rights reserved. This file is distributed under the terms of *)
11(* the GNU Lesser General Public License version 2.1, with the *)
12(* special exception on linking described in the file LICENSE. *)
13(* *)
14(**************************************************************************)
15
16val add_inline_attribute
17 : Lambda.lambda
18 -> Location.t
19 -> Parsetree.attributes
20 -> Lambda.lambda
21
22val get_inline_attribute
23 : Parsetree.attributes
24 -> Lambda.inline_attribute
25
26val add_specialise_attribute
27 : Lambda.lambda
28 -> Location.t
29 -> Parsetree.attributes
30 -> Lambda.lambda
31
32val get_specialise_attribute
33 : Parsetree.attributes
34 -> Lambda.specialise_attribute
35
36val add_local_attribute
37 : Lambda.lambda
38 -> Location.t
39 -> Parsetree.attributes
40 -> Lambda.lambda
41
42val get_local_attribute
43 : Parsetree.attributes
44 -> Lambda.local_attribute
45
46val get_inlined_attribute
47 : Typedtree.expression
48 -> Lambda.inline_attribute
49
50val get_inlined_attribute_on_module
51 : Typedtree.module_expr
52 -> Lambda.inline_attribute
53
54val get_specialised_attribute
55 : Typedtree.expression
56 -> Lambda.specialise_attribute
57
58val get_tailcall_attribute
59 : Typedtree.expression
60 -> Lambda.tailcall_attribute
61
62val add_function_attributes
63 : Lambda.lambda
64 -> Location.t
65 -> Parsetree.attributes
66 -> Lambda.lambda