public void addNavigationUriHavocer(Sink sink)
{
Sink.ProcedureInfo procInfo = sink.FindOrCreateProcedure(getUriHavocerMethod(sink).ResolvedMethod);
procInfo.Decl.AddAttribute("inline", new Bpl.LiteralExpr(Bpl.Token.NoToken, Microsoft.Basetypes.BigNum.ONE));
Bpl.StmtListBuilder builder = new Bpl.StmtListBuilder();
Bpl.HavocCmd havoc =
new Bpl.HavocCmd(Bpl.Token.NoToken,
new List <Bpl.IdentifierExpr>(new List <Bpl.IdentifierExpr>(new Bpl.IdentifierExpr[] {
new Bpl.IdentifierExpr(Bpl.Token.NoToken, sink.FindOrCreateFieldVariable(PhoneCodeHelper.CurrentURIFieldDefinition))
})));
builder.Add(havoc);
Bpl.Implementation impl = new Bpl.Implementation(Bpl.Token.NoToken, procInfo.Decl.Name, new List <Bpl.TypeVariable>(),
new List <Bpl.Variable>(), new List <Bpl.Variable>(), new List <Bpl.Variable>(),
builder.Collect(Bpl.Token.NoToken));
sink.TranslatedProgram.AddTopLevelDeclaration(impl);
}
public override Cmd VisitHavocCmd(HavocCmd node) {
//Contract.Requires(node != null);
Contract.Ensures(Contract.Result<Cmd>() != null);
return base.VisitHavocCmd((HavocCmd)node.Clone());
}
public override Cmd VisitHavocCmd(HavocCmd node)
{
Contract.Ensures(Contract.Result<Cmd>() == node);
this.VisitIdentifierExprSeq(node.Vars);
return node;
}
public virtual Cmd VisitHavocCmd(HavocCmd node) {
Contract.Requires(node != null);
Contract.Ensures(Contract.Result<Cmd>() != null);
node.Vars = this.VisitIdentifierExprSeq(node.Vars);
return node;
}
public override Cmd VisitHavocCmd(HavocCmd node)
{
if (enclosingProc != null)
{
Error(node, "Havoc command not allowed inside an atomic actions");
}
return base.VisitHavocCmd(node);
}
void LabelOrCmd(out Cmd c, out IToken label) {
IToken/*!*/ x; Expr/*!*/ e;
List<IToken>/*!*/ xs;
List<IdentifierExpr> ids;
c = dummyCmd; label = null;
Cmd/*!*/ cn;
QKeyValue kv = null;
switch (la.kind) {
case 1: {
LabelOrAssign(out c, out label);
break;
}
case 47: {
Get();
x = t;
while (la.kind == 28) {
Attribute(ref kv);
}
Proposition(out e);
c = new AssertCmd(x, e, kv);
Expect(9);
break;
}
case 48: {
Get();
x = t;
while (la.kind == 28) {
Attribute(ref kv);
}
Proposition(out e);
c = new AssumeCmd(x, e, kv);
Expect(9);
break;
}
case 49: {
Get();
x = t;
Idents(out xs);
Expect(9);
ids = new List<IdentifierExpr>();
foreach(IToken/*!*/ y in xs){
Contract.Assert(y != null);
ids.Add(new IdentifierExpr(y, y.val));
}
c = new HavocCmd(x,ids);
break;
}
case 36: case 52: case 53: {
CallCmd(out cn);
Expect(9);
c = cn;
break;
}
case 54: {
ParCallCmd(out cn);
c = cn;
break;
}
case 50: {
Get();
x = t;
Expect(9);
c = new YieldCmd(x);
break;
}
default: SynErr(106); break;
}
}
public override Cmd VisitHavocCmd(HavocCmd node)
{
node.tok = Token.NoToken;
TokenCount++;
return base.VisitHavocCmd(node);
}
public override Cmd VisitHavocCmd(HavocCmd havocCmd) {
//Contract.Requires(havocCmd != null);
Contract.Ensures(Contract.Result<Cmd>() != null);
Cmd ret = base.VisitHavocCmd(havocCmd);
foreach (IdentifierExpr/*!*/ expr in havocCmd.Vars) {
Contract.Assert(expr != null);
ProcessVariable(expr.Decl);
}
return ret;
}
protected override Cmd ComputeDesugaring()
{
Contract.Ensures(Contract.Result<Cmd>() != null);
List<Cmd> newBlockBody = new List<Cmd>();
Dictionary<Variable, Expr> substMap = new Dictionary<Variable, Expr>();
Dictionary<Variable, Expr> substMapOld = new Dictionary<Variable, Expr>();
Dictionary<Variable, Expr> substMapBound = new Dictionary<Variable, Expr>();
List<Variable>/*!*/ tempVars = new List<Variable>();
// proc P(ins) returns (outs)
// requires Pre
// //modifies frame
// ensures Post
//
// call aouts := P(ains)
// ins : formal in parameters of procedure
// frame : a list of global variables from the modifies clause
// outs : formal out parameters of procedure
// ains : actual in arguments passed to call
// aouts : actual variables assigned to from call
// cins : new variables created just for this call, one per ains
// cframe : new variables created just for this call, to keep track of OLD values
// couts : new variables created just for this call, one per aouts
// WildcardVars : new variables created just for this call, one per null in ains
#region Create cins; each one is an incarnation of the corresponding in parameter
List<Variable>/*!*/ cins = new List<Variable>();
List<Variable> wildcardVars = new List<Variable>();
Contract.Assume(this.Proc != null);
for (int i = 0; i < this.Proc.InParams.Count; ++i) {
Variable/*!*/ param = cce.NonNull(this.Proc.InParams[i]);
bool isWildcard = this.Ins[i] == null;
Type/*!*/ actualType;
if (isWildcard)
actualType = param.TypedIdent.Type.Substitute(TypeParamSubstitution());
else
// during type checking, we have ensured that the type of the actual
// parameter Ins[i] is correct, so we can use it here
actualType = cce.NonNull(cce.NonNull(Ins[i]).Type);
Variable cin = CreateTemporaryVariable(tempVars, param, actualType,
TempVarKind.Formal);
cins.Add(cin);
IdentifierExpr ie = new IdentifierExpr(cin.tok, cin);
substMap.Add(param, ie);
if (isWildcard) {
cin = CreateTemporaryVariable(tempVars, param,
actualType, TempVarKind.Bound);
wildcardVars.Add(cin);
ie = new IdentifierExpr(cin.tok, cin);
}
substMapBound.Add(param, ie);
}
#endregion
#region call aouts := P(ains) becomes: (open outlining one level to see)
#region cins := ains (or havoc cin when ain is null)
for (int i = 0, n = this.Ins.Count; i < n; i++) {
IdentifierExpr/*!*/ cin_exp = new IdentifierExpr(cce.NonNull(cins[i]).tok, cce.NonNull(cins[i]));
Contract.Assert(cin_exp != null);
if (this.Ins[i] != null) {
AssignCmd assign = Cmd.SimpleAssign(Token.NoToken, cin_exp, cce.NonNull(this.Ins[i]));
newBlockBody.Add(assign);
} else {
List<IdentifierExpr>/*!*/ ies = new List<IdentifierExpr>();
ies.Add(cin_exp);
HavocCmd havoc = new HavocCmd(Token.NoToken, ies);
newBlockBody.Add(havoc);
}
}
#endregion
#region assert (exists wildcardVars :: Pre[ins := cins])
Substitution s = Substituter.SubstitutionFromHashtable(substMapBound);
bool hasWildcard = (wildcardVars.Count != 0);
Expr preConjunction = null;
for (int i = 0; i < this.Proc.Requires.Count; i++) {
Requires/*!*/ req = cce.NonNull(this.Proc.Requires[i]);
if (!req.Free && !IsFree) {
if (hasWildcard) {
Expr pre = Substituter.Apply(s, req.Condition);
if (preConjunction == null) {
preConjunction = pre;
} else {
preConjunction = Expr.And(preConjunction, pre);
}
} else {
Requires/*!*/ reqCopy = (Requires/*!*/)cce.NonNull(req.Clone());
reqCopy.Condition = Substituter.Apply(s, req.Condition);
AssertCmd/*!*/ a = new AssertRequiresCmd(this, reqCopy);
Contract.Assert(a != null);
a.ErrorDataEnhanced = reqCopy.ErrorDataEnhanced;
newBlockBody.Add(a);
}
}
else if (CommandLineOptions.Clo.StratifiedInlining > 0)
{
// inject free requires as assume statements at the call site
AssumeCmd/*!*/ a = new AssumeCmd(req.tok, Substituter.Apply(s, req.Condition));
Contract.Assert(a != null);
newBlockBody.Add(a);
}
}
if (hasWildcard) {
if (preConjunction == null) {
preConjunction = Expr.True;
}
Expr/*!*/ expr = new ExistsExpr(tok, wildcardVars, preConjunction);
Contract.Assert(expr != null);
AssertCmd/*!*/ a = new AssertCmd(tok, expr);
Contract.Assert(a != null);
a.ErrorDataEnhanced = AssertCmd.GenerateBoundVarMiningStrategy(expr);
newBlockBody.Add(a);
}
#endregion
#region assume Pre[ins := cins] with formal paramters
if (hasWildcard) {
s = Substituter.SubstitutionFromHashtable(substMap);
for (int i = 0; i < this.Proc.Requires.Count; i++) {
Requires/*!*/ req = cce.NonNull(this.Proc.Requires[i]);
if (!req.Free) {
Requires/*!*/ reqCopy = (Requires/*!*/)cce.NonNull(req.Clone());
reqCopy.Condition = Substituter.Apply(s, req.Condition);
AssumeCmd/*!*/ a = new AssumeCmd(tok, reqCopy.Condition);
Contract.Assert(a != null);
newBlockBody.Add(a);
}
}
}
#endregion
#region cframe := frame (to hold onto frame values in case they are referred to in the postcondition)
List<IdentifierExpr> havocVarExprs = new List<IdentifierExpr>();
foreach (IdentifierExpr/*!*/ f in this.Proc.Modifies) {
Contract.Assert(f != null);
Contract.Assume(f.Decl != null);
Contract.Assert(f.Type != null);
Variable v = CreateTemporaryVariable(tempVars, f.Decl, f.Type, TempVarKind.Old);
IdentifierExpr v_exp = new IdentifierExpr(v.tok, v);
substMapOld.Add(f.Decl, v_exp); // this assumes no duplicates in this.Proc.Modifies
AssignCmd assign = Cmd.SimpleAssign(f.tok, v_exp, f);
newBlockBody.Add(assign);
// fra
if (!havocVarExprs.Contains(f))
havocVarExprs.Add(f);
}
#endregion
#region Create couts
List<Variable>/*!*/ couts = new List<Variable>();
for (int i = 0; i < this.Proc.OutParams.Count; ++i) {
Variable/*!*/ param = cce.NonNull(this.Proc.OutParams[i]);
bool isWildcard = this.Outs[i] == null;
Type/*!*/ actualType;
if (isWildcard)
actualType = param.TypedIdent.Type.Substitute(TypeParamSubstitution());
else
// during type checking, we have ensured that the type of the actual
// out parameter Outs[i] is correct, so we can use it here
actualType = cce.NonNull(cce.NonNull(Outs[i]).Type);
Variable cout = CreateTemporaryVariable(tempVars, param, actualType,
TempVarKind.Formal);
couts.Add(cout);
IdentifierExpr ie = new IdentifierExpr(cout.tok, cout);
substMap.Add(param, ie);
if (!havocVarExprs.Contains(ie))
havocVarExprs.Add(ie);
}
// add the where clauses, now that we have the entire substitution map
foreach (Variable/*!*/ param in this.Proc.OutParams) {
Contract.Assert(param != null);
Expr w = param.TypedIdent.WhereExpr;
if (w != null) {
IdentifierExpr ie = (IdentifierExpr/*!*/)cce.NonNull(substMap[param]);
Contract.Assert(ie.Decl != null);
ie.Decl.TypedIdent.WhereExpr = Substituter.Apply(Substituter.SubstitutionFromHashtable(substMap), w);
}
}
#endregion
#region havoc frame, couts
// pass on this's token
HavocCmd hc = new HavocCmd(this.tok, havocVarExprs);
newBlockBody.Add(hc);
#endregion
#region assume Post[ins, outs, old(frame) := cins, couts, cframe]
Substitution s2 = Substituter.SubstitutionFromHashtable(substMap);
Substitution s2old = Substituter.SubstitutionFromHashtable(substMapOld);
foreach (Ensures/*!*/ e in this.Proc.Ensures) {
Contract.Assert(e != null);
Expr copy = Substituter.ApplyReplacingOldExprs(s2, s2old, e.Condition);
AssumeCmd assume = new AssumeCmd(this.tok, copy);
#region stratified inlining support
if (QKeyValue.FindBoolAttribute(e.Attributes, "si_fcall"))
{
assume.Attributes = Attributes;
}
if (QKeyValue.FindBoolAttribute(e.Attributes, "candidate"))
{
assume.Attributes = new QKeyValue(Token.NoToken, "candidate", new List<object>(), assume.Attributes);
assume.Attributes.Params.Add(this.callee);
}
#endregion
newBlockBody.Add(assume);
}
#endregion
#region aouts := couts
for (int i = 0, n = this.Outs.Count; i < n; i++) {
if (this.Outs[i] != null) {
Variable/*!*/ param_i = cce.NonNull(this.Proc.OutParams[i]);
Expr/*!*/ cout_exp = new IdentifierExpr(cce.NonNull(couts[i]).tok, cce.NonNull(couts[i]));
Contract.Assert(cout_exp != null);
AssignCmd assign = Cmd.SimpleAssign(param_i.tok, cce.NonNull(this.Outs[i]), cout_exp);
newBlockBody.Add(assign);
}
}
#endregion
#endregion
return new StateCmd(this.tok, tempVars, newBlockBody);
}
private void m_AddHavocCmdToFront(Block b, HavocCmd hcmd)
{
List<Cmd> cs = new List<Cmd>();
cs.Add(hcmd); cs.AddRange(b.Cmds);
b.Cmds = cs;
}
private void Search(Block b, bool inFirst)
{
int pathSizeAtEntry = cmdStack.Count;
foreach (Cmd cmd in b.Cmds)
{
cmdStack.Push(cmd);
}
if (b.TransferCmd is ReturnCmd)
{
if (first == null || inFirst)
{
AddPath();
}
else
{
List<IdentifierExpr> havocVars = new List<IdentifierExpr>();
first.thatOutParams.ForEach(v => havocVars.Add(Expr.Ident(v)));
first.thatAction.LocVars.ForEach(v => havocVars.Add(Expr.Ident(v)));
if (havocVars.Count > 0)
{
HavocCmd havocCmd = new HavocCmd(Token.NoToken, havocVars);
cmdStack.Push(havocCmd);
}
Search(first.thatAction.Blocks[0], true);
}
}
else
{
GotoCmd gotoCmd = b.TransferCmd as GotoCmd;
foreach (Block target in gotoCmd.labelTargets)
{
Search(target, inFirst);
}
}
Debug.Assert(cmdStack.Count >= pathSizeAtEntry);
while (cmdStack.Count > pathSizeAtEntry)
{
cmdStack.Pop();
}
}
private void TransitionRelationComputationHelper(Program program, AtomicActionInfo first, AtomicActionInfo second)
{
this.program = program;
this.first = first;
this.second = second;
this.cmdStack = new Stack<Cmd>();
this.paths = new List<PathInfo>();
List<IdentifierExpr> havocVars = new List<IdentifierExpr>();
this.second.thisOutParams.ForEach(v => havocVars.Add(Expr.Ident(v)));
this.second.thisAction.LocVars.ForEach(v => havocVars.Add(Expr.Ident(v)));
if (havocVars.Count > 0)
{
HavocCmd havocCmd = new HavocCmd(Token.NoToken, havocVars);
cmdStack.Push(havocCmd);
}
Search(this.second.thisAction.Blocks[0], false);
}
public void addNavigationUriHavocer(Sink sink) {
Sink.ProcedureInfo procInfo = sink.FindOrCreateProcedure(getUriHavocerMethod(sink).ResolvedMethod);
procInfo.Decl.AddAttribute("inline", new Bpl.LiteralExpr(Bpl.Token.NoToken, Microsoft.Basetypes.BigNum.ONE));
Bpl.StmtListBuilder builder= new Bpl.StmtListBuilder();
Bpl.HavocCmd havoc=
new Bpl.HavocCmd(Bpl.Token.NoToken,
new List<Bpl.IdentifierExpr>(new List<Bpl.IdentifierExpr>(new Bpl.IdentifierExpr[] {
new Bpl.IdentifierExpr(Bpl.Token.NoToken, sink.FindOrCreateFieldVariable(PhoneCodeHelper.CurrentURIFieldDefinition))})));
builder.Add(havoc);
Bpl.Implementation impl = new Bpl.Implementation(Bpl.Token.NoToken, procInfo.Decl.Name, new List<Bpl.TypeVariable>(),
new List<Bpl.Variable>(), new List<Bpl.Variable>(), new List<Bpl.Variable>(),
builder.Collect(Bpl.Token.NoToken));
sink.TranslatedProgram.AddTopLevelDeclaration(impl);
}
