From: simonmar <unknown>
Date: Tue, 31 Aug 2004 11:38:53 +0000 (+0000)
Subject: [project @ 2004-08-31 11:38:53 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1662
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=3b125592e71d32ac31662fea476cffb77a431111;p=ghc-hetmet.git

[project @ 2004-08-31 11:38:53 by simonmar]
Warning fix on Win32.
---

diff --git a/ghc/rts/HeapStackCheck.cmm b/ghc/rts/HeapStackCheck.cmm
index 88d1806..6e8eba5 100644
--- a/ghc/rts/HeapStackCheck.cmm
+++ b/ghc/rts/HeapStackCheck.cmm
@@ -864,7 +864,7 @@ INFO_TABLE_RET( stg_block_async, 0/*framesize*/, 0/*bitmap*/, RET_SMALL )
     len = StgAsyncIOResult_len(ares);
     errC = StgAsyncIOResult_errCode(ares);
     StgTSO_block_info(CurrentTSO) = NULL;
-    foreign "C" free(ares);
+    foreign "C" free(ares "ptr");
     R1 = len;
     Sp(0) = errC;
     jump %ENTRY_CODE(Sp(1));