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

Removed one more.

Browse Source
This commit is contained in:
Cas Cremers 2018-10-19 15:46:48 -04:00
parent 6ee81d304d
commit fe2bc26e71
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/compiler.c
View File

@ -2216,21 +2216,19 @@ checkRoleVariables (const System sys, const Protocol p, const Role r)
{ {
Termlist vars; Termlist vars;
Termlist declared; Termlist declared;
Roledef rd;
int process_event (Roledef rd)
{
if (rd->type == RECV)
{
vars = termlistAddVariables (vars, rd->from);
vars = termlistAddVariables (vars, rd->to);
vars = termlistAddVariables (vars, rd->message);
}
return 1;
}
/* Gather all variables occurring in the recvs */ /* Gather all variables occurring in the recvs */
vars = NULL; vars = NULL;
roledef_iterate_events (r->roledef, process_event); for (rd = r->roledef; rd != NULL; rd = rd->next)
{
if (rd->type == RECV)
{
vars = termlistAddVariables (vars, rd->from);
vars = termlistAddVariables (vars, rd->to);
vars = termlistAddVariables (vars, rd->message);
}
}
/* Now, all variables for this role should be in the recvs */ /* Now, all variables for this role should be in the recvs */
declared = r->declaredvars; declared = r->declaredvars;