Fix Windows build
authorSimon Marlow <marlowsd@gmail.com>
Tue, 21 Dec 2010 10:21:01 +0000 (10:21 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 21 Dec 2010 10:21:01 +0000 (10:21 +0000)
rts/win32/AsyncIO.c

index ff2e1a2..979df0c 100644 (file)
@@ -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;
                    }