From: simonpj <unknown>
Date: Wed, 26 Oct 2005 08:41:32 +0000 (+0000)
Subject: [project @ 2005-10-26 08:41:32 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~132
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7f59c72a41fbea72eef1f207439918784fbbe08d

[project @ 2005-10-26 08:41:32 by simonpj]
Fix PUSH_ON_RUN_QUEUE bug on Win32
---

diff --git a/ghc/rts/win32/AsyncIO.c b/ghc/rts/win32/AsyncIO.c
index 12893f3..6881275 100644
--- a/ghc/rts/win32/AsyncIO.c
+++ b/ghc/rts/win32/AsyncIO.c
@@ -286,7 +286,7 @@ start:
 			/* Terminates the run queue + this inner for-loop. */
 			tso->link = END_TSO_QUEUE;
 			tso->why_blocked = NotBlocked;
-			PUSH_ON_RUN_QUEUE(tso);
+			pushOnRunQueue(&MainCapability, tso);
 			break;
 		    }
 		    break;