From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 21 Dec 2010 10:21:01 +0000 (+0000)
Subject: Fix Windows build
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2ddefb59504d81ba534b747260d32617b3bcc192

Fix Windows build
---

diff --git a/rts/win32/AsyncIO.c b/rts/win32/AsyncIO.c
index ff2e1a2..979df0c 100644
--- a/rts/win32/AsyncIO.c
+++ b/rts/win32/AsyncIO.c
@@ -304,7 +304,7 @@ start:
                         // stg_block_async_info stack frame, because
                         // the block_info field will be overwritten by
                         // pushOnRunQueue().
-                        tso->sp[1] = (W_)tso->block_info.async_result;
+                        tso->stackobj->sp[1] = (W_)tso->block_info.async_result;
 			pushOnRunQueue(&MainCapability, tso);
 			break;
 		    }