Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
why3
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
119
Issues
119
List
Boards
Labels
Service Desk
Milestones
Merge Requests
16
Merge Requests
16
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Why3
why3
Commits
878893b3
Commit
878893b3
authored
May 17, 2011
by
MARCHE Claude
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Improved replaying
parent
b55f6bd6
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
14 additions
and
9 deletions
+14
-9
examples/nightly-bench.sh
examples/nightly-bench.sh
+5
-2
src/ide/replay.ml
src/ide/replay.ml
+2
-1
src/ide/session.ml
src/ide/session.ml
+7
-6
No files found.
examples/nightly-bench.sh
View file @
878893b3
...
...
@@ -4,8 +4,8 @@ OUT=$PWD/nightly-bench.out
REPORT
=
$PWD
/nightly-bench.report
notify
()
{
mail
-s
"Why3 nightly bench"
why3-commits@lists.gforge.inria.fr <
$REPORT
#
cat $REPORT
#
mail -s "Why3 nightly bench" why3-commits@lists.gforge.inria.fr < $REPORT
cat
$REPORT
exit
0
}
...
...
@@ -43,6 +43,9 @@ else
echo
"Prover detection succeeded. "
>>
$REPORT
fi
# increase number of cores used
perl
-pi
-e
's/running_provers_max = 2/running_provers_max = 4/'
why.conf
# do we want to do "make bench" ?
# replay proofs
...
...
src/ide/replay.ml
View file @
878893b3
...
...
@@ -158,7 +158,8 @@ let init =
p
.
Session
.
prover_name
^
" "
^
p
.
Session
.
prover_version
|
M
.
Transformation
tr
->
Session
.
transformation_id
tr
.
M
.
transf
in
eprintf
"Item '%s' loaded@."
name
(* eprintf "Item '%s' loaded@." name *)
()
let
string_of_result
result
=
match
result
with
...
...
src/ide/session.ml
View file @
878893b3
...
...
@@ -1334,8 +1334,9 @@ let check_external_proof g a =
|
Scheduled
|
Running
->
()
|
Undone
->
assert
false
|
InternalFailure
msg
->
Format
.
printf
"goal '%s', prover '%s': internal failure '%a'@."
g
.
goal_name
p
.
prover_id
Exn_printer
.
exn_printer
msg
;
Format
.
printf
"goal '%s', prover '%s %s': internal failure '%a'@."
g
.
goal_name
p
.
prover_name
p
.
prover_version
Exn_printer
.
exn_printer
msg
;
check_failed
:=
true
;
incr
proofs_done
|
Done
new_res
->
...
...
@@ -1346,16 +1347,16 @@ let check_external_proof g a =
begin
check_failed
:=
true
;
Format
.
printf
"goal '%s', prover '%s': %a instead of %a@."
g
.
goal_name
p
.
prover_
id
"goal '%s', prover '%s
%s
': %a instead of %a@."
g
.
goal_name
p
.
prover_
name
p
.
prover_version
Call_provers
.
print_prover_result
new_res
Call_provers
.
print_prover_result
old_res
end
|
_
->
check_failed
:=
true
;
Format
.
printf
"goal '%s', prover '%s': no former result available@."
g
.
goal_name
p
.
prover_
id
"goal '%s', prover '%s
%s
': no former result available@."
g
.
goal_name
p
.
prover_
name
p
.
prover_version
in
let
old
=
if
a
.
edited_as
=
""
then
None
else
begin
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment