From 8bda62e798c4e89c8c3f9406327899e394f7be0f Mon Sep 17 00:00:00 2001
From: Maxime Dénès <mail@maximedenes.fr>
Date: Tue, 16 Dec 2014 00:06:13 +0100
Subject: Fix for #3154: use CUnix.sys_command to call native compiler.

Patch by CJ on bugzilla. CUnix.sys_command doesn't rely on a shell, so extra
care with cmd.exe vs sh is no longer required.
---
 pretyping/nativenorm.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping/nativenorm.ml')

diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml
index 274357adb..9af68b46b 100644
--- a/pretyping/nativenorm.ml
+++ b/pretyping/nativenorm.ml
@@ -389,7 +389,7 @@ let native_norm env sigma c ty =
   let ml_filename, prefix = Nativelib.get_ml_filename () in
   let code, upd = mk_norm_code penv sigma prefix c in
   match Nativelib.compile ml_filename code with
-    | 0,fn ->
+    | true, fn ->
         if !Flags.debug then Pp.msg_debug (Pp.str "Running norm ...");
         let t0 = Sys.time () in
         Nativelib.call_linker ~fatal:true prefix fn (Some upd);
-- 
cgit v1.2.3