diff options
author | Chantal Keller <Chantal.Keller@inria.fr> | 2015-01-13 18:30:16 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@inria.fr> | 2015-01-13 18:30:16 +0100 |
commit | 78167cc85a2f580691ef08ce8ccd3391158167d3 (patch) | |
tree | 824c19dbde77ca00b7e345daa77921484feaf519 /src/versions/native/structures.ml | |
parent | 7072c4591668d2c21211a744d3719f6b42d1e7b9 (diff) | |
download | smtcoq-78167cc85a2f580691ef08ce8ccd3391158167d3.tar.gz smtcoq-78167cc85a2f580691ef08ce8ccd3391158167d3.zip |
Identify ML functions that are implemented differently in native-coq and in standard coq
Diffstat (limited to 'src/versions/native/structures.ml')
-rw-r--r-- | src/versions/native/structures.ml | 28 |
1 files changed, 25 insertions, 3 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index 8f74c32..de2879c 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -13,14 +13,36 @@ (* *) (**************************************************************************) + +open Entries + + (* Int63 *) let int63_modules = [["Coq";"Numbers";"Cyclic";"Int63";"Int63Native"]] -let mkInt i = Term.mkInt (Uint63.of_int i) +let mkInt : int -> Term.constr = + fun i -> Term.mkInt (Uint63.of_int i) (* PArray *) let parray_modules = [["Coq";"Array";"PArray"]] -let max_array_size = Parray.trunc_size (Uint63.of_int 4194303) -let mkArray = Term.mkArray +let max_array_size : int = + Parray.trunc_size (Uint63.of_int 4194303) +let mkArray : Term.types * Term.constr array -> Term.constr = + Term.mkArray + + +(* Differences between the two versions of Coq *) +let dummy_loc = Pp.dummy_loc + +let mkConst c = + { const_entry_body = c; + const_entry_type = None; + const_entry_secctx = None; + const_entry_opaque = false; + const_entry_inline_code = false} + +let glob_term_CbvVm = Glob_term.CbvVm None + +let error = Errors.error |