From 3b125592e71d32ac31662fea476cffb77a431111 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 31 Aug 2004 11:38:53 +0000
Subject: [PATCH 1/1] [project @ 2004-08-31 11:38:53 by simonmar] Warning fix
 on Win32.

---
 ghc/rts/HeapStackCheck.cmm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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));
-- 
1.7.10.4