summaryrefslogtreecommitdiff
path: root/plugins/extraction/modutil.ml
diff options
context:
space:
mode:
authorGravatar Stephane Glondu <steph@glondu.net>2010-12-24 11:53:29 +0100
committerGravatar Stephane Glondu <steph@glondu.net>2010-12-24 11:53:29 +0100
commit6b691bbd2101fd39395c0d2135fd7c06a8915e14 (patch)
treeb04b45d1a6f42d19b1428c522d647afbad2f9b83 /plugins/extraction/modutil.ml
parent3e96002677226c0cdaa8f355938a76cfb37a722a (diff)
Imported Upstream version 8.3pl1upstream/8.3pl1
Diffstat (limited to 'plugins/extraction/modutil.ml')
-rw-r--r--plugins/extraction/modutil.ml8
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/extraction/modutil.ml b/plugins/extraction/modutil.ml
index b4334750..313fc58d 100644
--- a/plugins/extraction/modutil.ml
+++ b/plugins/extraction/modutil.ml
@@ -6,7 +6,7 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-(*i $Id: modutil.ml 13420 2010-09-16 15:47:08Z letouzey $ i*)
+(*i $Id: modutil.ml 13733 2010-12-21 13:08:53Z letouzey $ i*)
open Names
open Declarations
@@ -82,10 +82,10 @@ let ast_iter_references do_term do_cons do_type a =
match a with
| MLglob r -> do_term r
| MLcons (i,r,_) ->
- if lang () = Ocaml then record_iter_references do_term i;
+ if lang () = Ocaml then record_iter_references do_term i.c_kind;
do_cons r
| MLcase (i,_,v) ->
- if lang () = Ocaml then record_iter_references do_term (fst i);
+ if lang () = Ocaml then record_iter_references do_term i.m_kind;
Array.iter (fun (r,_,_) -> do_cons r) v
| _ -> ()
in iter a
@@ -101,7 +101,7 @@ let ind_iter_references do_term do_cons do_type kn ind =
| _ -> ());
Array.iteri (fun j -> cons_iter (ip,j+1)) p.ip_types
in
- if lang () = Ocaml then record_iter_references do_term ind.ind_info;
+ if lang () = Ocaml then record_iter_references do_term ind.ind_kind;
Array.iteri (fun i -> packet_iter (kn,i)) ind.ind_packets
let decl_iter_references do_term do_cons do_type =