blob: 52e52b10c353db50c604afc1d6e0fb4960bb6cc5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
module T = Types
(** This module contains various utilities for the assumed functions *)
module A = CfimAst
open TypesUtils
(** `T -> Box<T>` *)
let box_new_sig : A.fun_sig =
let tvar_id_0 = T.TypeVarId.of_int 0 in
let tvar_0 = T.TypeVar tvar_id_0 in
{
region_params = [];
num_early_bound_regions = 0;
regions_hierarchy = [];
type_params = [ { index = tvar_id_0; name = "T" } ];
inputs = [ tvar_0 (* T *) ];
output = mk_box_ty tvar_0 (* Box<T> *);
}
(** Helper for `Box::deref_shared` and `Box::deref_mut`.
Returns:
`&'a (mut) Box<T> -> &'a (mut) T`
*)
let box_deref_sig (is_mut : bool) : A.fun_sig =
let rvar_id_0 = T.RegionVarId.of_int 0 in
let rvar_0 = T.Var rvar_id_0 in
let rg_id_0 = T.RegionGroupId.of_int 0 in
let tvar_id_0 = T.TypeVarId.of_int 0 in
let tvar_0 = T.TypeVar tvar_id_0 in
let ref_kind = if is_mut then T.Mut else T.Shared in
(* The signature fields *)
let region_params = [ { T.index = rvar_id_0; name = Some "'a" } ] in
let regions_hierarchy =
[ { T.id = rg_id_0; regions = [ rvar_id_0 ]; parents = [] } ]
(* <'a> *)
in
{
region_params;
num_early_bound_regions = 0;
regions_hierarchy;
type_params = [ { index = tvar_id_0; name = "T" } ] (* <T> *);
inputs =
[ mk_ref_ty rvar_0 (mk_box_ty tvar_0) ref_kind (* &'a (mut) Box<T> *) ];
output = mk_ref_ty rvar_0 tvar_0 ref_kind (* &'a (mut) T *);
}
(** `&'a Box<T> -> &'a T` *)
let box_deref_shared_sig = box_deref_sig false
(** `&'a mut Box<T> -> &'a mut T` *)
let box_deref_mut_sig = box_deref_sig true
|
