2016-02-18 07:11:59 -08:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* OCaml *)
|
|
|
|
(* *)
|
|
|
|
(* Pierre Chambart, OCamlPro *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 2015 Institut National de Recherche en Informatique et *)
|
|
|
|
(* en Automatique. *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
2015-10-23 01:28:59 -07:00
|
|
|
|
|
|
|
val check_attribute
|
|
|
|
: Typedtree.expression
|
2018-07-21 05:04:53 -07:00
|
|
|
-> Parsetree.attribute
|
2015-10-23 01:28:59 -07:00
|
|
|
-> unit
|
|
|
|
|
2015-12-18 11:53:24 -08:00
|
|
|
val check_attribute_on_module
|
|
|
|
: Typedtree.module_expr
|
2018-07-21 05:04:53 -07:00
|
|
|
-> Parsetree.attribute
|
2015-12-18 11:53:24 -08:00
|
|
|
-> unit
|
|
|
|
|
2015-10-23 01:28:59 -07:00
|
|
|
val add_inline_attribute
|
|
|
|
: Lambda.lambda
|
|
|
|
-> Location.t
|
2015-12-18 11:53:24 -08:00
|
|
|
-> Parsetree.attributes
|
2015-10-23 01:28:59 -07:00
|
|
|
-> Lambda.lambda
|
|
|
|
|
|
|
|
val get_inline_attribute
|
2015-12-18 11:53:24 -08:00
|
|
|
: Parsetree.attributes
|
2015-10-23 01:28:59 -07:00
|
|
|
-> Lambda.inline_attribute
|
|
|
|
|
2016-02-10 04:03:40 -08:00
|
|
|
val add_specialise_attribute
|
|
|
|
: Lambda.lambda
|
|
|
|
-> Location.t
|
|
|
|
-> Parsetree.attributes
|
|
|
|
-> Lambda.lambda
|
|
|
|
|
|
|
|
val get_specialise_attribute
|
|
|
|
: Parsetree.attributes
|
|
|
|
-> Lambda.specialise_attribute
|
|
|
|
|
2018-11-27 08:54:07 -08:00
|
|
|
val add_local_attribute
|
|
|
|
: Lambda.lambda
|
|
|
|
-> Location.t
|
|
|
|
-> Parsetree.attributes
|
|
|
|
-> Lambda.lambda
|
|
|
|
|
|
|
|
val get_local_attribute
|
|
|
|
: Parsetree.attributes
|
|
|
|
-> Lambda.local_attribute
|
|
|
|
|
2015-12-18 11:53:24 -08:00
|
|
|
val get_and_remove_inlined_attribute
|
2015-10-23 01:28:59 -07:00
|
|
|
: Typedtree.expression
|
|
|
|
-> Lambda.inline_attribute * Typedtree.expression
|
|
|
|
|
2015-12-18 11:53:24 -08:00
|
|
|
val get_and_remove_inlined_attribute_on_module
|
|
|
|
: Typedtree.module_expr
|
|
|
|
-> Lambda.inline_attribute * Typedtree.module_expr
|
|
|
|
|
2016-02-10 04:03:40 -08:00
|
|
|
val get_and_remove_specialised_attribute
|
|
|
|
: Typedtree.expression
|
|
|
|
-> Lambda.specialise_attribute * Typedtree.expression
|
|
|
|
|
2015-10-23 01:28:59 -07:00
|
|
|
val get_tailcall_attribute
|
|
|
|
: Typedtree.expression
|
2020-04-12 06:28:13 -07:00
|
|
|
-> Lambda.tailcall_attribute * Typedtree.expression
|
2018-11-27 08:54:07 -08:00
|
|
|
|
|
|
|
val add_function_attributes
|
|
|
|
: Lambda.lambda
|
|
|
|
-> Location.t
|
|
|
|
-> Parsetree.attributes
|
|
|
|
-> Lambda.lambda
|