freescale porting, work in progress

[helm.git] / helm / software / components / grafite_engine / grafiteEngine.ml

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index 310f3793fe943458490b3f29016c0c548713e599..71ac2939a7c8d6a7ab94c17a584871c19ec6eabc 100644 (file)
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -533,9 +533,12 @@ let index_obj_for_auto status (uri, height, _, _, kind) =
   match kind with
   | NCic.Fixpoint _ -> []
   | NCic.Inductive _ -> []
-  | NCic.Constant (_,_,_, ty, _) ->
-      let ty = (* saturare *) ty in
+  | NCic.Constant (_,_,Some _, ty, _) ->
+     let ty,_,_ = NCicMetaSubst.saturate [] [] [] ty 0 in
       [ty,NCic.Const(NReference.reference_of_spec uri (NReference.Def height))]
+  | NCic.Constant (_,_,None, ty, _) ->
+     let ty,_,_ = NCicMetaSubst.saturate [] [] [] ty 0 in
+      [ty,NCic.Const(NReference.reference_of_spec uri (NReference.Decl))]
  in
  let status = basic_index_obj data status in
  let dump = record_index_obj data :: status#dump in