andr3/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Minor refactoring.

Browse Source
This commit is contained in:
ccremers 2006-08-08 14:50:28 +00:00
parent d2e3aaa869
commit 341bbfeb0c
1 changed files with 123 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/arachne.c
View File

@ -2231,15 +2231,9 @@ iterate_buffer_attacks (void)
} }
} }
//! Arachne single claim //! Arachne single claim test
int int
arachneClaim (Claimlist cl) arachneClaimTest (Claimlist cl)
{
// Skip the dummy claims
if (!isTermEqual (cl->type, CLAIM_Empty))
{
// Some claims are always true!
if (!cl->alwaystrue)
{ {
// others we simply test... // others we simply test...
int run; int run;
@ -2312,8 +2306,7 @@ arachneClaim (Claimlist cl)
*/ */
add_claim_specifics (sys, cl, add_claim_specifics (sys, cl,
roledef_shift (sys->runs[run]. roledef_shift (sys->runs[run].
start, cl->ev), start, cl->ev), realStart);
realStart);
} }
@ -2341,8 +2334,7 @@ arachneClaim (Claimlist cl)
} }
if (sys->maxruns != 0) if (sys->maxruns != 0)
{ {
error ("%i undestroyed runs left after claim test.", error ("%i undestroyed runs left after claim test.", sys->maxruns);
sys->maxruns);
} }
if (newruns != 0) if (newruns != 0)
{ {
@ -2359,6 +2351,20 @@ arachneClaim (Claimlist cl)
eprintf ("Proof complete for this claim.\n"); eprintf ("Proof complete for this claim.\n");
} }
} }
//! Arachne single claim inspection
int
arachneClaim (Claimlist cl)
{
// Skip the dummy claims
if (!isTermEqual (cl->type, CLAIM_Empty))
{
// Some claims are always true!
if (!cl->alwaystrue)
{
// others we simply test...
arachneClaimTest (cl);
}
claimStatusReport (sys, cl); claimStatusReport (sys, cl);
if (switches.xml) if (switches.xml)
{ {