Identify ML functions that are implemented differently in native-coq and in standard coq

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