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

- Matching is now typed.

Browse Source
This commit is contained in:
ccremers
2004-08-15 16:08:53 +00:00
parent c7e290197c
commit c3d5123ab0
5 changed files with 99 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/system.c
View File

@@ -597,6 +597,7 @@ roleInstance (const System sys, const Protocol protocol, const Role role,
// Make new var for this run
newt = makeTermType (VARIABLE, newt->left.symb, rid);
artefacts = termlistAdd (artefacts, newt);
newt->stype = oldt->stype;
// Copy substitution
newt->subst = oldt->subst;
// Remove any old substitution! It is now propagated!
@@ -604,7 +605,9 @@ roleInstance (const System sys, const Protocol protocol, const Role role,
}
// Add to agent list, possibly
if (inTermlist (protocol->rolenames, oldt))
runs[rid].agents = termlistAdd (runs[rid].agents, newt);
{
runs[rid].agents = termlistAdd (runs[rid].agents, newt);
}
fromlist = termlistAdd (fromlist, oldt);
tolist = termlistAdd (tolist, newt);