# HG changeset patch
# User Christian Kamm <kamm incasoftware de>
# Date 1218886417 -7200
# Node ID 73e41129b7f38e821c6949b348792ea3295b4f2c
# Parent  bc0835cd3440aff11a2257cbce6c5a71aea61302
Fix function literals. They never carry a context.

Fixes:
run/f/foreach_36_A

diff -r bc0835cd3440 -r 73e41129b7f3 gen/toir.cpp
--- a/gen/toir.cpp	Sat Aug 16 12:38:53 2008 +0200
+++ b/gen/toir.cpp	Sat Aug 16 13:33:37 2008 +0200
@@ -2064,22 +2064,31 @@
 
     DtoForceDefineDsymbol(fd);
 
-    const LLType* dgty = DtoType(type);
-    LLValue* lval = DtoAlloca(dgty,"dgstorage");
-
-    LLValue* context = DtoGEPi(lval,0,0);
-    LLValue* cval;
-    IrFunction* irfn = p->func();
-    if (irfn->nestedVar)
-        cval = irfn->nestedVar;
-    else if (irfn->nestArg)
-        cval = irfn->nestArg;
+    LLValue *lval, *fptr;
+    if(fd->tok == TOKdelegate) {
+        const LLType* dgty = DtoType(type);
+        lval = DtoAlloca(dgty,"dgstorage");
+
+        LLValue* context = DtoGEPi(lval,0,0);
+        LLValue* cval;
+        IrFunction* irfn = p->func();
+        if (irfn->nestedVar)
+            cval = irfn->nestedVar;
+        else if (irfn->nestArg)
+            cval = irfn->nestArg;
+        else
+            cval = getNullPtr(getVoidPtrType());
+        cval = DtoBitCast(cval, context->getType()->getContainedType(0));
+        DtoStore(cval, context);
+
+        fptr = DtoGEPi(lval,0,1,"tmp",p->scopebb());
+    } else if(fd->tok == TOKfunction) {
+        const LLType* fnty = DtoType(type);
+        lval = DtoAlloca(fnty,"fnstorage");
+        fptr = lval;
+    }
     else
-        cval = getNullPtr(getVoidPtrType());
-    cval = DtoBitCast(cval, context->getType()->getContainedType(0));
-    DtoStore(cval, context);
-    
-    LLValue* fptr = DtoGEPi(lval,0,1,"tmp",p->scopebb());
+        assert(0 && "fd->tok must be TOKfunction or TOKdelegate");
 
     assert(fd->ir.irFunc->func);
     LLValue* castfptr = DtoBitCast(fd->ir.irFunc->func, fptr->getType()->getContainedType(0));