From 1eaddb772eb52722e705be6f414de2e398ba4b82 Mon Sep 17 00:00:00 2001
From: Marijn Haverbeke <marijnh@gmail.com>
Date: Tue, 20 Sep 2011 17:19:20 +0200
Subject: [PATCH] Properly handle 'put;' in trans

Closes #947
---
 src/comp/middle/trans.rs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/comp/middle/trans.rs b/src/comp/middle/trans.rs
index d4df2cb5fbe6..b9656eb2400d 100644
--- a/src/comp/middle/trans.rs
+++ b/src/comp/middle/trans.rs
@@ -4470,7 +4470,9 @@ fn trans_put(in_cx: @block_ctxt, e: option::t<@ast::expr>) -> result {
     let dummy_retslot = alloca(bcx, T_nil());
     let llargs: [ValueRef] = [dummy_retslot, cx.fcx.lltaskptr, llenv];
     alt e {
-      none. { }
+      none. {
+        llargs += [C_null(T_ptr(T_nil()))];
+      }
       some(x) {
         let e_ty = ty::expr_ty(bcx_tcx(cx), x);
         let arg = {mode: ast::by_ref, ty: e_ty};