diff options
author | rustanleino <unknown> | 2009-09-15 19:04:52 +0000 |
---|---|---|
committer | rustanleino <unknown> | 2009-09-15 19:04:52 +0000 |
commit | 9e7c3594b662f1c3102d419104da453d83eddfcd (patch) | |
tree | 35531361bb10ffa6b21751771429a2a04784f202 /Source/Dafny | |
parent | 6fa676b575e1ba70c03b258420f29ad74b821b54 (diff) |
Dafny: Added axioms for division and modulo.
Dafny: Make use of function preconditions in function well-definedness checks.
Chalice: Changed old "install" to current "reorder" keyword in Emacs mode.
Diffstat (limited to 'Source/Dafny')
-rw-r--r-- | Source/Dafny/Translator.ssc | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Source/Dafny/Translator.ssc b/Source/Dafny/Translator.ssc index 1cac78af..64401071 100644 --- a/Source/Dafny/Translator.ssc +++ b/Source/Dafny/Translator.ssc @@ -589,6 +589,7 @@ namespace Microsoft.Dafny { requires f.Body != null;
{
ExpressionTranslator etran = new ExpressionTranslator(this, predef, f.tok);
+ // parameters of the procedure
Bpl.VariableSeq inParams = new Bpl.VariableSeq();
Bpl.Expr wh = Bpl.Expr.And(
Bpl.Expr.Neq(new Bpl.IdentifierExpr(f.tok, "this", predef.RefType), predef.Null),
@@ -601,8 +602,16 @@ namespace Microsoft.Dafny { inParams.Add(new Bpl.Formal(p.tok, new Bpl.TypedIdent(p.tok, p.UniqueName, varType, wh), true));
}
Bpl.TypeVariableSeq typeParams = TrTypeParamDecls(f.TypeArgs);
+ // preconditions of the procedure
+ Bpl.RequiresSeq req = new Bpl.RequiresSeq();
+ string comment = "user-defined preconditions";
+ foreach (Expression p in f.Req) {
+ req.Add(Requires(p.tok, false, etran.TrExpr(p), null, comment));
+ comment = null;
+ }
+ // the procedure itself
Bpl.Procedure proc = new Bpl.Procedure(f.tok, "CheckWellformed$$" + f.FullName, typeParams, inParams, new Bpl.VariableSeq(),
- new Bpl.RequiresSeq(), new Bpl.IdentifierExprSeq(), new Bpl.EnsuresSeq());
+ req, new Bpl.IdentifierExprSeq(), new Bpl.EnsuresSeq());
sink.TopLevelDeclarations.Add(proc);
Bpl.VariableSeq localVariables = new Bpl.VariableSeq();
|