From bdfd00f4130e44c10f41442b05af465b1b0fa8d8 Mon Sep 17 00:00:00 2001
From: Walter Bright <walter@walterbright.com>
Date: Fri, 31 Oct 2014 15:37:31 -0700
Subject: [PATCH] fix Issue 13095 - Someteims  destructor is called if
 constructor throws

---
 src/e2ir.c            | 71 ++++++++++++++++++++++++++++++++++++++++---
 test/runnable/sdtor.d | 22 ++++++++++++++
 2 files changed, 88 insertions(+), 5 deletions(-)

diff --git a/src/e2ir.c b/src/e2ir.c
index 830d43aaec08..3d7c38a52885 100644
--- a/src/e2ir.c
+++ b/src/e2ir.c
@@ -3379,11 +3379,13 @@ elem *toElem(Expression *e, IRState *irs)
             int directcall = 0;
             elem *ec;
             FuncDeclaration *fd = NULL;
+            bool dctor = false;
             if (ce->e1->op == TOKdotvar && t1->ty != Tdelegate)
             {
                 DotVarExp *dve = (DotVarExp *)ce->e1;
 
                 fd = dve->var->isFuncDeclaration();
+
                 Expression *ex = dve->e1;
                 while (1)
                 {
@@ -3413,7 +3415,46 @@ elem *toElem(Expression *e, IRState *irs)
                 ec = toElem(dve->e1, irs);
                 ectype = dve->e1->type->toBasetype();
 
-                if (ce->arguments && ce->arguments->dim && ec->Eoper != OPvar)
+                /* Recognize:
+                 *   [1]  ((S __ctmp = initializer),__ctmp).ctor(args)
+                 * where the left of the . was turned into:
+                 *   [2]  (dctor info ((__ctmp = initializer),__ctmp), __ctmp)
+                 * The trouble (Bugzilla 13095) is if ctor(args) throws, then __ctmp is destructed even though __ctmp
+                 * is not a fully constructed object yet. The solution is to move the ctor(args) itno the dctor tree.
+                 * But first, detect [1], then [2], then split up [2] into:
+                 *   eeq: (dctor info ((__ctmp = initializer),__ctmp))
+                 *   ec:  __ctmp
+                 */
+                if (fd && fd->isCtorDeclaration())
+                {
+                    //printf("test30 %s\n", dve->e1->toChars());
+                    if (dve->e1->op == TOKcomma)
+                    {
+                        //printf("test30a\n");
+                        if (((CommaExp *)dve->e1)->e1->op == TOKdeclaration && ((CommaExp *)dve->e1)->e2->op == TOKvar)
+                        {
+                            //printf("test30b\n");
+                            if (ec->Eoper == OPcomma &&
+                                ec->E1->Eoper == OPinfo &&
+                                ec->E1->E1->Eoper == OPdctor &&
+                                ec->E1->E2->Eoper == OPcomma)
+                            {
+                                //printf("test30c\n");
+                                dctor = true;                   // remember we detected it
+
+                                // Split ec into eeq and ec per comment above
+                                eeq = ec->E1;
+                                ec->E1 = NULL;
+                                ec = el_selecte2(ec);
+                            }
+                        }
+                    }
+                }
+
+
+                if (dctor)
+                { }
+                else if (ce->arguments && ce->arguments->dim && ec->Eoper != OPvar)
                 {
                     if (ec->Eoper == OPind && el_sideeffect(ec->E1))
                     {
@@ -3501,11 +3542,31 @@ elem *toElem(Expression *e, IRState *irs)
                     }
                 }
             }
-            ec = callfunc(ce->loc, irs, directcall, ce->type, ec, ectype, fd, t1, ehidden, ce->arguments);
-            el_setLoc(ec, ce->loc);
+            elem *ecall = callfunc(ce->loc, irs, directcall, ce->type, ec, ectype, fd, t1, ehidden, ce->arguments);
+
+            if (dctor && ecall->Eoper == OPind)
+            {
+                /* Continuation of fix outlined above for moving constructor call into dctor tree.
+                 * Given:
+                 *   eeq:   (dctor info ((__ctmp = initializer),__ctmp))
+                 *   ecall: * call(ce, args)
+                 * Rewrite ecall as:
+                 *    * (dctor info ((__ctmp = initializer),call(ce, args)))
+                 */
+                assert(eeq->E2->Eoper == OPcomma);
+                elem *ea = ecall->E1;           // ea: call(ce,args)
+                ecall->E1 = eeq;
+                eeq->Ety = ea->Ety;
+                el_free(eeq->E2->E2);
+                eeq->E2->E2 = ea;               // replace ,__ctmp with ,call(ce,args)
+                eeq->E2->Ety = ea->Ety;
+                eeq = NULL;
+            }
+
+            el_setLoc(ecall, ce->loc);
             if (eeq)
-                ec = el_combine(eeq, ec);
-            result = ec;
+                ecall = el_combine(eeq, ecall);
+            result = ecall;
         }
 
         void visit(AddrExp *ae)
diff --git a/test/runnable/sdtor.d b/test/runnable/sdtor.d
index 1defe87edc93..a8739e8ff705 100644
--- a/test/runnable/sdtor.d
+++ b/test/runnable/sdtor.d
@@ -3435,6 +3435,27 @@ void test13586()
 
 /**********************************/
 
+__gshared bool b13095 = false;
+
+void bar13095() { throw new Exception(""); }
+
+struct S13095
+{
+    this(int) { printf("ctor %p\n", &this); bar13095(); }
+
+    ~this() { b13095 = true; printf("dtor %p\n", &this); }
+}
+
+void test13095()
+{
+    try {
+        S13095(0);
+    } catch(Exception) { printf("catch\n"); }
+    assert(!b13095);
+}
+
+/**********************************/
+
 int main()
 {
     test1();
@@ -3539,6 +3560,7 @@ int main()
     test11763();
     test13303();
     test13586();
+    test13095();
 
     printf("Success\n");
     return 0;