[project @ 2004-08-31 11:38:53 by simonmar]

[ghc-hetmet.git] / ghc / rts / HeapStackCheck.cmm

diff --git a/ghc/rts/HeapStackCheck.cmm b/ghc/rts/HeapStackCheck.cmm
index 88d1806..6e8eba5 100644 (file)
--- 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));