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

Removed another straightforward trampoline with one nested call only.

Browse Source
This commit is contained in:
Cas Cremers 2018-11-04 23:06:24 +01:00
parent 92c5b0bedc
commit 131ee69f1d
4 changed files with 61 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/TODO-trampolines.txt
View File

@ -2,7 +2,6 @@
1 subtermUnify arachne.c +961
1 term_iterate_open_leaves dotout.c +1790 // Could be replaced by term_iterate_leaves
3 unify mgu.c +233 ; mgu.c +247 ; mgu.c +281
1 iterateLocalToOther prune_theorems.c +108
term_iterate_leaves
term_iterate_state_leaves
@ -13,5 +12,4 @@ iterateTermOther is called using makeDepend and addOther
subtermUnify is called using unifiesWithKeys
term_iterate_open_leaves is called using addsubterms
unify is called using unify_combine_enc and unify_combined_tup, and a callback using the keys list? (which propagates back to subtermunify data)
iterateLocalToOther is called using checkTerm

22
src/prune_theorems.c
View File

@ -41,17 +41,9 @@ extern Protocol INTRUDER;
extern int proofDepth;
extern int max_encryption_level;
//! Check locals occurrence
/*
* Returns true if the order is correct
*/
//! checkTerm is a helper for the next function
int
correctLocalOrder (const System sys)
{
int r1;
int checkTerm (Term t)
checkTerm (const System sys, const Term t, const int r1)
{
if (!isTermVariable (t))
{
@ -101,6 +93,16 @@ correctLocalOrder (const System sys)
return true;
}
//! Check locals occurrence
/*
* Returns true if the order is correct
*/
int
correctLocalOrder (const System sys)
{
int r1;
for (r1 = 0; r1 < sys->maxruns; r1++)
{
if (sys->runs[r1].protocol != INTRUDER)

9
src/system.c
View File

@ -1129,9 +1129,14 @@ iterateEventsType (const System sys, const int run, const int evtype,
}
// Iterate over all 'others': local variables of a run that are instantiated and contain some term of another run.
/**
* Now incorporates "checkterm" required argument of myrun to the callback:
*
* It's now callback(conts Term,const int);
*/
int
iterateLocalToOther (const System sys, const int myrun,
int (*callback) (Term tlocal))
int (*callback) (const System, const Term, const int))
{
Termlist tlo, tls;
int flag;
@ -1158,7 +1163,7 @@ iterateLocalToOther (const System sys, const int myrun,
// now iterate over all of them
for (tls = tlo; flag && (tls != NULL); tls = tls->next)
{
if (!callback (tls->term))
if (!callback (sys, tls->term, myrun))
{
flag = false;
}

3
src/system.h
View File

@ -199,7 +199,8 @@ int iterateAllEvents (const System sys,
int iterateEventsType (const System sys, const int run, const int evtype,
int (*callback) (Roledef rd, int ev));
int iterateLocalToOther (const System sys, const int myrun,
int (*callback) (Term t));
int (*callback) (const System sys, const Term t,
const int myrun));
int iterateRoles (const System sys, int (*callback) (Protocol p, Role r));
int firstOccurrence (const System sys, const int r, Term t, int evtype);
Roledef eventRoledef (const System sys, const int run, const int ev);