diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-01 17:30:14 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-05 14:20:11 +0200 |
commit | e1e7888ac4519f4b7470cc8469f9fd924514e352 (patch) | |
tree | aa6afb40e01d5c51593f1b17dc9a81b5b75c54fb /kernel/nativevalues.ml | |
parent | d8d3e9cea631d253a30dc42760d7bdde72e01c60 (diff) |
More straightforward native compilation of primitive projections.
Instead of having a constant-based compilation of projections, we
generate them at the compilation time of the inductive block to which
they pertain.
Diffstat (limited to 'kernel/nativevalues.ml')
-rw-r--r-- | kernel/nativevalues.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml index cfcb0a485..da4413a0a 100644 --- a/kernel/nativevalues.ml +++ b/kernel/nativevalues.ml @@ -64,7 +64,7 @@ type atom = | Aprod of Name.t * t * (t -> t) | Ameta of metavariable * t | Aevar of Evar.t * t * t array - | Aproj of Constant.t * accumulator + | Aproj of (inductive * int) * accumulator let accumulate_tag = 0 |