From 33c0d04c1ae40fb3eded886f8d82eb941e588fc9 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 12 Feb 2013 22:56:43 +0000
Subject: Checker: re-sync vo structures after Maxime's commit 16136

 make validate still fails, but that's another issue (#2949) we're
 still working on...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16198 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/declarations.mli | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'checker/declarations.mli')

diff --git a/checker/declarations.mli b/checker/declarations.mli
index ad234a3f5c..80c895bbe9 100644
--- a/checker/declarations.mli
+++ b/checker/declarations.mli
@@ -5,6 +5,8 @@ open Term
 type values
 type reloc_table
 type to_patch_substituted
+(* Native code *)
+type native_name
 (*Retroknowledge *)
 type action
 type retroknowledge
@@ -57,7 +59,9 @@ type constant_body = {
     const_body : constant_def;
     const_type : constant_type;
     const_body_code : to_patch_substituted;
-    const_constraints : Univ.constraints }
+    const_constraints : Univ.constraints;
+    const_native_name : native_name ref;
+    const_inline_code : bool }
 
 val body_of_constant : constant_body -> constr_substituted option
 val constant_has_body : constant_body -> bool
@@ -167,6 +171,9 @@ type mutual_inductive_body = {
   (* Universes constraints enforced by the inductive declaration *)
     mind_constraints : Univ.constraints;
 
+  (* Data for native compilation *)
+    mind_native_name : native_name ref;
+
   }
 
 (* Modules *)
-- 
cgit v1.2.3