From: simonmar <unknown>
Date: Thu, 19 Aug 2004 14:00:50 +0000 (+0000)
Subject: [project @ 2004-08-19 14:00:48 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1710
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c6903c16003d9a48f116c45ecb6eb785975375f9;p=ghc-hetmet.git

[project @ 2004-08-19 14:00:48 by simonmar]
Windows fixes.
---

diff --git a/ghc/rts/Makefile b/ghc/rts/Makefile
index c31a486..718e00f 100644
--- a/ghc/rts/Makefile
+++ b/ghc/rts/Makefile
@@ -302,6 +302,10 @@ SRC_HC_OPTS += \
   -\#include Profiling.h \
   -\#include Apply.h
 
+ifeq "$(Windows)" "YES"
+PrimOps_HC_OPTS += -\#include '<windows.h>' -\#include win32/AsyncIO.h
+endif
+
 # Cmm must be compiled via-C for now, because the NCG can't handle loops
 SRC_HC_OPTS += -fvia-C
 
diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm
index 59a613d..4d51394 100644
--- a/ghc/rts/PrimOps.cmm
+++ b/ghc/rts/PrimOps.cmm
@@ -1438,7 +1438,7 @@ asyncReadzh_fast
     /* could probably allocate this on the heap instead */
     "ptr" ares = foreign "C" stgMallocBytes(SIZEOF_StgAsyncIOResult,
 					    stg_asyncReadzh_malloc_str);
-    reqID = foreign "C" addIORequest(R1,FALSE,R2,R3,R4);
+    reqID = foreign "C" addIORequest(R1, 0/*FALSE*/,R2,R3,R4 "ptr");
     StgAsyncIOResult_reqID(ares)   = reqID;
     StgAsyncIOResult_len(ares)     = 0;
     StgAsyncIOResult_errCode(ares) = 0;
@@ -1447,7 +1447,7 @@ asyncReadzh_fast
     jump stg_block_async;
 }
 
-STRING(asyncWritezh_malloc_str, "asyncWritezh_fast")
+STRING(stg_asyncWritezh_malloc_str, "asyncWritezh_fast")
 asyncWritezh_fast
 {
     W_ ares;
@@ -1458,8 +1458,8 @@ asyncWritezh_fast
     StgTSO_why_blocked(CurrentTSO) = BlockedOnWrite::I16;
 
     "ptr" ares = foreign "C" stgMallocBytes(SIZEOF_StgAsyncIOResult,
-					    asyncWritezh_malloc_str);
-    reqID = foreign "C" addIORequest(R1,TRUE,R2,R3,R4);
+					    stg_asyncWritezh_malloc_str);
+    reqID = foreign "C" addIORequest(R1, 1/*TRUE*/,R2,R3,R4 "ptr");
 
     StgAsyncIOResult_reqID(ares)   = reqID;
     StgAsyncIOResult_len(ares)     = 0;
@@ -1469,7 +1469,7 @@ asyncWritezh_fast
     jump stg_block_async;
 }
 
-STRING(asyncDoProczh_malloc_str, "asyncDoProczh_fast")
+STRING(stg_asyncDoProczh_malloc_str, "asyncDoProczh_fast")
 asyncDoProczh_fast
 {
     W_ ares;
@@ -1481,8 +1481,8 @@ asyncDoProczh_fast
 
     /* could probably allocate this on the heap instead */
     "ptr" ares = foreign "C" stgMallocBytes(SIZEOF_StgAsyncIOResult,
-					    asyncDoProczh_malloc_str);
-    reqID = foreign "C" addDoProcRequest(R1,R2);
+					    stg_asyncDoProczh_malloc_str);
+    reqID = foreign "C" addDoProcRequest(R1 "ptr",R2 "ptr");
     StgAsyncIOResult_reqID(ares)   = reqID;
     StgAsyncIOResult_len(ares)     = 0;
     StgAsyncIOResult_errCode(ares) = 0;
diff --git a/ghc/rts/win32/ConsoleHandler.c b/ghc/rts/win32/ConsoleHandler.c
index 6dc9ce4..ad52976 100644
--- a/ghc/rts/win32/ConsoleHandler.c
+++ b/ghc/rts/win32/ConsoleHandler.c
@@ -9,7 +9,6 @@
 #include "Schedule.h"
 #include "RtsUtils.h"
 #include "RtsFlags.h"
-#include "StablePriv.h"
 
 extern int stg_InstallConsoleEvent(int action, StgStablePtr *handler);