aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel/nativelambda.mli
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2014-04-05 19:51:04 -0400
committerGravatar Maxime Dénès <mail@maximedenes.fr>2014-04-09 01:05:48 -0400
commitde61c7d77e49286622c4aebd56f2e87b0df93903 (patch)
treed7038f72ed54e3cdebae620c458e3ca93294f49f /kernel/nativelambda.mli
parent5bcfa8cab56798f2b575b839fd92b0f743c3d453 (diff)
Had to split Nativelambda in two files because of Retroknowledge
dependencies.
Diffstat (limited to 'kernel/nativelambda.mli')
-rw-r--r--kernel/nativelambda.mli32
1 files changed, 1 insertions, 31 deletions
diff --git a/kernel/nativelambda.mli b/kernel/nativelambda.mli
index 751f11978..d4be2279d 100644
--- a/kernel/nativelambda.mli
+++ b/kernel/nativelambda.mli
@@ -9,40 +9,10 @@ open Names
open Term
open Pre_env
open Nativevalues
+open Nativeinstr
(** This file defines the lambda code generation phase of the native compiler *)
-type lambda =
- | Lrel of name * int
- | Lvar of identifier
- | Lmeta of metavariable * lambda (* type *)
- | Levar of existential * lambda (* type *)
- | Lprod of lambda * lambda
- | Llam of name array * lambda
- | Llet of name * lambda * lambda
- | Lapp of lambda * lambda array
- | Lconst of string * constant (* prefix, constant name *)
- | Lcase of annot_sw * lambda * lambda * lam_branches
- (* annotations, term being matched, accu, branches *)
- | Lif of lambda * lambda * lambda
- | Lfix of (int array * int) * fix_decl
- | Lcofix of int * fix_decl
- | Lmakeblock of string * constructor * int * lambda array
- (* prefix, constructor name, constructor tag, arguments *)
- (* A fully applied constructor *)
- | Lconstruct of string * constructor (* prefix, constructor name *)
- (* A partially applied constructor *)
- | Luint of Uint31.t
- | Lval of Nativevalues.t
- | Lsort of sorts
- | Lind of string * inductive (* prefix, inductive name *)
- | Llazy
- | Lforce
-
-and lam_branches = (constructor * name array * lambda) array
-
-and fix_decl = name array * lambda array * lambda array
-
type evars =
{ evars_val : existential -> constr option;
evars_typ : existential -> types;