blob: f761e4f60bf0f67912ab3d7fa9373a98a70ae191 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
open Names
open Cbytecodes
open Cemitcodes
open Term
open Declarations
open Pre_env
val compile : env -> constr -> bytecodes * bytecodes * fv
(* init, fun, fv *)
val compile_constant_body :
env -> constr_substituted option -> bool -> bool -> body_code
(* opaque *) (* boxed *)
|
