diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-03-03 19:43:02 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-03-26 08:57:39 +0200 |
commit | fd5dc5b37e765bdb864e874c451d42d03d737792 (patch) | |
tree | 464f48702d8b7116163f031a8f2c2bf2dec64823 /kernel/vm.ml | |
parent | b5aed34bb8bbdda27646720db29a8d47c79653b9 (diff) |
Moving the VM global atom table to a ML reference.
Diffstat (limited to 'kernel/vm.ml')
-rw-r--r-- | kernel/vm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/vm.ml b/kernel/vm.ml index 160575ac7..d7eedc226 100644 --- a/kernel/vm.ml +++ b/kernel/vm.ml @@ -42,11 +42,11 @@ external push_vstack : vstack -> int -> unit = "coq_push_vstack" (* interpreteur *) -external coq_interprete : tcode -> values -> vm_global -> vm_env -> int -> values = - "coq_interprete_ml" +external coq_interprete : tcode -> values -> atom array -> vm_global -> vm_env -> int -> values = + "coq_interprete_byte" "coq_interprete_ml" let interprete code v env k = - coq_interprete code v (Csymtable.get_global_data ()) env k + coq_interprete code v (get_atom_rel ()) (Csymtable.get_global_data ()) env k (* Functions over arguments *) |