diff options
| author | Pierre-Marie Pédrot | 2018-06-01 17:30:14 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 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 cfcb0a485b..da4413a0ad 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 |