diff options
| author | Pierre-Marie Pédrot | 2020-08-27 16:50:45 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-08-27 16:50:45 +0200 |
| commit | 1abf7c94f97948f8171c2fe1fec99cd890e8d1f6 (patch) | |
| tree | 3c60f0cd4a38608dacceca0b012de120bdc46a79 /kernel/term_typing.ml | |
| parent | f140359a6df94d1caa2ccea3da2d48e01eacc44b (diff) | |
| parent | 4ee0cedff7726a56ebd53125995a7ae131660b4a (diff) | |
Merge PR #12849: Rename VM-related kernel/cfoo files to kernel/vmfoo
Reviewed-by: gares
Reviewed-by: ppedrot
Reviewed-by: silene
Diffstat (limited to 'kernel/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 48567aa564..24aa4ed771 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -283,8 +283,8 @@ let build_constant_declaration env result = let univs = result.cook_universes in let hyps = List.filter (fun d -> Id.Set.mem (NamedDecl.get_id d) hyps) (Environ.named_context env) in let tps = - let res = Cbytegen.compile_constant_body ~fail_on_error:false env univs def in - Option.map Cemitcodes.from_val res + let res = Vmbytegen.compile_constant_body ~fail_on_error:false env univs def in + Option.map Vmemitcodes.from_val res in { const_hyps = hyps; const_body = def; @@ -343,8 +343,8 @@ let translate_recipe env _kn r = let open Cooking in let result = Cooking.cook_constant r in let univs = result.cook_universes in - let res = Cbytegen.compile_constant_body ~fail_on_error:false env univs result.cook_body in - let tps = Option.map Cemitcodes.from_val res in + let res = Vmbytegen.compile_constant_body ~fail_on_error:false env univs result.cook_body in + let tps = Option.map Vmemitcodes.from_val res in let hyps = Option.get result.cook_context in (* Trust the set of section hypotheses generated by Cooking *) let hyps = List.filter (fun d -> Id.Set.mem (NamedDecl.get_id d) hyps) (Environ.named_context env) in |