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

- Bugfixed --extravert.

Browse Source
This commit is contained in:
ccremers 2006-03-28 14:24:46 +00:00
parent dff7fcaee3
commit b224344b59
1 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/prune_theorems.c
View File

@ -212,24 +212,19 @@ prune_theorems (const System sys)
{ {
int run; int run;
run = 0; for (run = 0; run < sys->maxruns; run++)
while (run < sys->maxruns)
{ {
// Check this run only if it is an initiator role // Check this run only if it is an initiator role
if (sys->runs[run].role->initiator) if (sys->runs[run].role->initiator)
{ {
// Check this initiator run // Check this initiator run
Termlist tl; Termlist tl;
Termlist found;
tl = sys->runs[run].rho; found = NULL;
while (tl != NULL) for (tl = sys->runs[run].rho; tl != NULL; tl = tl->next)
{ {
Termlist tlscan; if (inTermlist (found, tl->term))
tlscan = tl->next;
while (tlscan != NULL)
{
if (isTermEqual (tl->term, tlscan->term))
{ {
// XXX TODO // XXX TODO
// Still need to fix proof output for this // Still need to fix proof output for this
@ -237,11 +232,9 @@ prune_theorems (const System sys)
// Pruning because some agents are equal for this role. // Pruning because some agents are equal for this role.
return true; return true;
} }
tlscan = tlscan->next; found = termlistAdd (found, tl->term);
} }
tl = tl->next; termlistDelete (found);
}
run++;
} }
} }
} }