From 7dd28b4772251af6ae3641ec63a8251153915e21 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 26 Feb 2013 18:52:05 +0000
Subject: Names: shortcuts for building {kn, constant, mind} with empty
 sections

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16249 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/extraction/mlutil.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'plugins/extraction/mlutil.ml')

diff --git a/plugins/extraction/mlutil.ml b/plugins/extraction/mlutil.ml
index 7d95d2e17..8ecd8cd7c 100644
--- a/plugins/extraction/mlutil.ml
+++ b/plugins/extraction/mlutil.ml
@@ -1304,9 +1304,8 @@ let inline_test r t =
        not (is_fix t2) && ml_size t < 12 && is_not_strict t)
 
 let con_of_string s =
-  let null = DirPath.empty in
   match DirPath.repr (dirpath_of_string s) with
-    | id :: d -> make_con (MPfile (DirPath.make d)) null (Label.of_id id)
+    | id :: d -> Constant.make2 (MPfile (DirPath.make d)) (Label.of_id id)
     | [] -> assert false
 
 let manual_inline_set =
-- 
cgit v1.2.3