blob: 9d7165cbed78995c1c6721a9ddf848a2dfce1cd1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
--- why3-for-spark-gpl-2017-src/src/gnat/gnat_config.ml.old 2017-10-18 09:07:03.118919785 +0200
+++ why3-for-spark-gpl-2017-src/src/gnat/gnat_config.ml 2017-10-18 09:07:45.198216939 +0200
@@ -12,10 +12,7 @@
| Limit_Check of Gnat_expl.check
| Limit_Line of Gnat_loc.loc
-let spark_prefix =
- (Filename.dirname
- (Filename.dirname (Filename.dirname
- (Filename.dirname Sys.executable_name))))
+let spark_prefix = "/usr"
let rec file_concat l =
match l with
--- why3-for-spark-gpl-2017-src/src/coq-tactic/why3tac.ml4.old 2017-10-26 22:25:55.289094778 +0200
+++ why3-for-spark-gpl-2017-src/src/coq-tactic/why3tac.ml4 2017-10-26 22:26:10.719807270 +0200
@@ -1352,7 +1352,7 @@
let limit =
{ Call_provers.empty_limit with Call_provers.limit_time = timelimit } in
let call = Driver.prove_task ~command ~limit drv !task in
- wait_on_call call
+ wait_on_call (ServerCall call)
with
| NotFO ->
if debug then Printexc.print_backtrace stderr; flush stderr;
|
