Fixes for duality under corral

1 files changed, 4 insertions, 1 deletions

diff --git a/Source/VCExpr/Boogie2VCExpr.cs b/Source/VCExpr/Boogie2VCExpr.cs
index d08a4d4b..2ff93c54 100644
--- a/Source/VCExpr/Boogie2VCExpr.cs
+++ b/Source/VCExpr/Boogie2VCExpr.cs
@@ -272,7 +272,10 @@ namespace Microsoft.Boogie.VCExprAST {
       // global variables, local variables, incarnations, etc. are

       // bound the first time they occur

       if (!UnboundVariables.TryGetValue(boogieVar, out res)) {

-        res = new VCExprVar(boogieVar.Name, boogieVar.TypedIdent.Type);

+        if (boogieVar is Constant)

+          res = new VCExprConstant(boogieVar.Name, boogieVar.TypedIdent.Type);

+        else 

+          res = new VCExprVar(boogieVar.Name, boogieVar.TypedIdent.Type);

         UnboundVariables.Bind(boogieVar, res);

       }

       return cce.NonNull(res);