diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-01-14 16:16:13 -0800 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-01-26 09:18:03 +0100 |
| commit | 42d91c271a176de5029c216ef74e913ac7dec2e1 (patch) | |
| tree | 85e06970be224d3f11bb07f9af5015bb70014fe1 /kernel/pre_env.ml | |
| parent | 05e0b45a254ab37e912e677d732aca20389263a8 (diff) | |
Safer VM interfaces
We separate functions dealing with VM values (vmvalues.ml) and
interfaces of the bytecode interpreter (vm.ml). Only the former relies
on untyped constructions.
This also makes the VM architecture closer to the one of native_compute,
another patch could probably try to share more code between the two for
conversion and reification (not trivial, though).
This is also preliminary work for integers and arrays.
Diffstat (limited to 'kernel/pre_env.ml')
| -rw-r--r-- | kernel/pre_env.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml index 3ef15105a..6c5e1cde5 100644 --- a/kernel/pre_env.ml +++ b/kernel/pre_env.ml @@ -15,7 +15,6 @@ open Util open Names -open Constr open Declarations module NamedDecl = Context.Named.Declaration @@ -50,7 +49,7 @@ type stratification = { } type val_kind = - | VKvalue of (values * Id.Set.t) CEphemeron.key + | VKvalue of (Vmvalues.values * Id.Set.t) CEphemeron.key | VKnone type lazy_val = val_kind ref |