diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2014-12-16 00:06:13 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2014-12-16 00:06:13 +0100 |
commit | 8bda62e798c4e89c8c3f9406327899e394f7be0f (patch) | |
tree | ac7df2ec0c3f7b2740363428f77dadc64b774af1 /kernel/nativeconv.ml | |
parent | 0e730e4fa316cbfbd2d6dc60276498f57f500e0e (diff) |
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.
Diffstat (limited to 'kernel/nativeconv.ml')
-rw-r--r-- | kernel/nativeconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml index c7701a8b1..04747cd8b 100644 --- a/kernel/nativeconv.ml +++ b/kernel/nativeconv.ml @@ -135,7 +135,7 @@ let native_conv pb sigma env t1 t2 = let ml_filename, prefix = get_ml_filename () in let code, upds = mk_conv_code penv sigma prefix t1 t2 in match compile ml_filename code with - | (0,fn) -> + | (true, fn) -> begin if !Flags.debug then Pp.msg_debug (Pp.str "Running test..."); let t0 = Sys.time () in |