1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Lang
open Il
module Value = Runtime.Value
open Util.Source
let fresh_typeId (ctr : int ref) (add : value -> unit) (at : region)
(targs : targ list) (values_input : value list) : value =
Extract.zero at targs;
Extract.zero at values_input;
let tid = "FRESH__" ^ string_of_int !ctr in
ctr := !ctr + 1;
let value = Value.Make.text tid in
add value;
value