protected override bool elIsLoop(string procname)
{
StratifiedInliningInfo info = null;
if (implName2StratifiedInliningInfo.ContainsKey(procname))
{
info = implName2StratifiedInliningInfo[procname];
}
if (info == null) return false;
var lp = info.impl.Proc as LoopProcedure;
if (lp == null) return false;
return true;
}
public VCExpr Attach(StratifiedVC svc)
{
Contract.Assert(interfaceExprs.Count == svc.interfaceExprVars.Count);
StratifiedInliningInfo info = svc.info;
ProverInterface prover = info.vcgen.prover;
VCExpressionGenerator gen = prover.VCExprGen;
Dictionary<VCExprVar, VCExpr> substDict = new Dictionary<VCExprVar, VCExpr>();
for (int i = 0; i < svc.interfaceExprVars.Count; i++)
{
VCExprVar v = svc.interfaceExprVars[i];
substDict.Add(v, interfaceExprs[i]);
}
VCExprSubstitution subst =
new VCExprSubstitution(substDict, new Dictionary<TypeVariable, Microsoft.Boogie.Type>());
SubstitutingVCExprVisitor substVisitor = new SubstitutingVCExprVisitor(prover.VCExprGen);
svc.vcexpr = substVisitor.Mutate(svc.vcexpr, subst);
foreach (StratifiedCallSite scs in svc.CallSites)
{
List<VCExpr> newInterfaceExprs = new List<VCExpr>();
foreach (VCExpr expr in scs.interfaceExprs)
{
newInterfaceExprs.Add(substVisitor.Mutate(expr, subst));
}
scs.interfaceExprs = newInterfaceExprs;
}
foreach (StratifiedCallSite scs in svc.RecordProcCallSites)
{
List<VCExpr> newInterfaceExprs = new List<VCExpr>();
foreach (VCExpr expr in scs.interfaceExprs)
{
newInterfaceExprs.Add(substVisitor.Mutate(expr, subst));
}
scs.interfaceExprs = newInterfaceExprs;
}
//return gen.Implies(callSiteExpr, svc.vcexpr);
return svc.vcexpr;
}
public StratifiedVC(StratifiedInliningInfo siInfo, HashSet<string> procCalls)
{
info = siInfo;
info.GenerateVC();
var vcgen = info.vcgen;
var prover = vcgen.prover;
VCExpressionGenerator gen = prover.VCExprGen;
var bet = prover.Context.BoogieExprTranslator;
vcexpr = info.vcexpr;
id = vcgen.CreateNewId();
interfaceExprVars = new List<VCExprVar>();
Dictionary<VCExprVar, VCExpr> substDict = new Dictionary<VCExprVar, VCExpr>();
foreach (VCExprVar v in info.interfaceExprVars)
{
VCExprVar newVar = vcgen.CreateNewVar(v.Type);
interfaceExprVars.Add(newVar);
substDict.Add(v, newVar);
}
foreach (VCExprVar v in info.privateExprVars)
{
substDict.Add(v, vcgen.CreateNewVar(v.Type));
}
if (info.controlFlowVariable != null)
substDict.Add(bet.LookupVariable(info.controlFlowVariable), gen.Integer(BigNum.FromInt(id)));
VCExprSubstitution subst =
new VCExprSubstitution(substDict, new Dictionary<TypeVariable, Microsoft.Boogie.Type>());
SubstitutingVCExprVisitor substVisitor = new SubstitutingVCExprVisitor(prover.VCExprGen);
vcexpr = substVisitor.Mutate(vcexpr, subst);
// For BoolControlVC generation
if (info.blockToControlVar != null)
{
blockToControlVar = new Dictionary<Block, VCExpr>();
foreach (var tup in info.blockToControlVar)
blockToControlVar.Add(tup.Key, substDict[tup.Value]);
}
if (procCalls != null)
vcexpr = RemoveProcedureCalls.Apply(vcexpr, info.vcgen.prover.VCExprGen, procCalls);
callSites = new Dictionary<Block, List<StratifiedCallSite>>();
foreach (Block b in info.callSites.Keys)
{
callSites[b] = new List<StratifiedCallSite>();
foreach (CallSite cs in info.callSites[b])
{
callSites[b].Add(new StratifiedCallSite(cs, substVisitor, subst));
}
}
recordProcCallSites = new Dictionary<Block, List<StratifiedCallSite>>();
foreach (Block b in info.recordProcCallSites.Keys)
{
recordProcCallSites[b] = new List<StratifiedCallSite>();
foreach (CallSite cs in info.recordProcCallSites[b])
{
recordProcCallSites[b].Add(new StratifiedCallSite(cs, substVisitor, subst));
}
}
}
