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

Removed a slightly more complex trampoline by making a stateful iterator.

Browse Source
This commit is contained in:
Cas Cremers 2018-10-22 00:10:07 +02:00
parent 4748d2f4d2
commit b6f4fcbb7a
1 changed files with 41 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/arachne.c
View File

@ -61,6 +61,12 @@
#include "heuristic.h"
#include "tempfile.h"
struct brsstate
{
Binding binding;
int found;
};
extern int *graph;
extern int nodes;
extern int graph_uordblks;
@ -1520,21 +1526,10 @@ process_good_candidate (const Protocol p, const Role r, const Roledef rd,
return sflag;
}
//! Bind a regular goal
/**
* Problem child. Valgrind does not like it.
*/
//! Helper for the next function bind_regular_goal
int
bind_goal_regular_run (const Binding b)
{
int flag;
int found;
/*
* This is a local function so we have access to goal
*/
int bind_this_role_send (Protocol p, Role r, Roledef rd, int index,
void *state)
bind_this_role_send (Protocol p, Role r, Roledef rd, int index,
struct brsstate *bs)
{
if (p == INTRUDER)
{
@ -1546,11 +1541,11 @@ bind_goal_regular_run (const Binding b)
debug_send_candidate (p, r, rd, index);
if (!subtermUnify
(rd->message, b->term, NULL, NULL, test_sub_unification))
(rd->message, (bs->binding)->term, NULL, NULL, test_sub_unification))
{
// A good candidate
found++;
return process_good_candidate (p, r, rd, index, b, found);
bs->found++;
return process_good_candidate (p, r, rd, index, bs->binding, bs->found);
}
else
{
@ -1558,12 +1553,24 @@ bind_goal_regular_run (const Binding b)
}
}
//! Bind a regular goal
/**
* Problem child. Valgrind did not like it.
* TODO maybe better since last rewrite; need to check again.
*/
int
bind_goal_regular_run (const Binding b)
{
int flag;
struct brsstate bs;
// Bind to all possible sends of regular runs
found = 0;
flag = iterate_state_role_sends (bind_this_role_send, NULL);
bs.found = 0;
bs.binding = b;
proof_term_match_none (b, found);
flag = iterate_state_role_sends (bind_this_role_send, &bs);
proof_term_match_none (b, bs.found);
return flag;
}