From 4c7694f31f5a841a3d2eadc94c8e7f49aabbcc40 Mon Sep 17 00:00:00 2001
From: Ken McMillan <unknown>
Date: Fri, 14 Jun 2013 17:23:44 -0700
Subject: Fixes for duality under corral

---
 Source/VCExpr/Boogie2VCExpr.cs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Source/VCExpr/Boogie2VCExpr.cs')

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);
-- 
cgit v1.2.3