Add freshly-allocated object as argument to ctors.

1 files changed, 1 insertions, 0 deletions

diff --git a/BCT/BytecodeTranslator/ExpressionTraverser.cs b/BCT/BytecodeTranslator/ExpressionTraverser.cs
index 91b24c3f..2e2df9fc 100644
--- a/BCT/BytecodeTranslator/ExpressionTraverser.cs
+++ b/BCT/BytecodeTranslator/ExpressionTraverser.cs
@@ -452,6 +452,7 @@ namespace BytecodeTranslator {
       // Second, generate the call to the appropriate ctor

       Bpl.ExprSeq inexpr = new Bpl.ExprSeq();

       Dictionary<IParameterDefinition, Bpl.Expr> p2eMap = new Dictionary<IParameterDefinition, Bpl.Expr>();

+      inexpr.Add(Bpl.Expr.Ident(a));

       IEnumerator<IParameterDefinition> penum = createObjectInstance.MethodToCall.ResolvedMethod.Parameters.GetEnumerator();

       penum.MoveNext();

       foreach (IExpression exp in createObjectInstance.Arguments) {