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

Added some safety checks and a missing deVar to the code that localises terms.

Browse Source
This commit is contained in:
Cas Cremers
2018-10-14 22:00:16 +02:00
parent 69c0486376
commit b56c66db0b
2 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/termlist.c
View File

@@ -629,14 +629,18 @@ termlistLength (Termlist tl)
*\sa termlistLocal()
*/
Term
termLocal (const Term t, Termlist fromlist, Termlist tolist)
termLocal (const Term tPre, Termlist fromlist, Termlist tolist)
{
if (t == NULL)
Term t;
if (tPre == NULL)
return NULL;
t = deVar(tPre);
if (realTermLeaf (t))
{
while (fromlist != NULL && tolist != NULL)
while ((fromlist != NULL) && (tolist != NULL))
{
if (isTermEqual (fromlist->term, t))
{
@@ -650,7 +654,9 @@ termLocal (const Term t, Termlist fromlist, Termlist tolist)
}
else
{
Term newt = termNodeDuplicate (t);
Term newt;
newt = termNodeDuplicate (t);
if (realTermTuple (t))
{
TermOp1 (newt) = termLocal (TermOp1 (t), fromlist, tolist);
@@ -658,8 +664,11 @@ termLocal (const Term t, Termlist fromlist, Termlist tolist)
}
else
{
TermOp (newt) = termLocal (TermOp (t), fromlist, tolist);
TermKey (newt) = termLocal (TermKey (t), fromlist, tolist);
if (realTermEncrypt (t))
{
TermOp (newt) = termLocal (TermOp (t), fromlist, tolist);
TermKey (newt) = termLocal (TermKey (t), fromlist, tolist);
}
}
return newt;
}