From: simonpj <unknown>
Date: Tue, 17 Aug 2004 08:18:41 +0000 (+0000)
Subject: [project @ 2004-08-17 08:18:41 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1723
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c8898df0380dad4705353de00a48ea105d00bcc5;p=ghc-hetmet.git

[project @ 2004-08-17 08:18:41 by simonpj]
Typo in windows-specific code
---

diff --git a/ghc/rts/HeapStackCheck.cmm b/ghc/rts/HeapStackCheck.cmm
index 516d0ad..88d1806 100644
--- a/ghc/rts/HeapStackCheck.cmm
+++ b/ghc/rts/HeapStackCheck.cmm
@@ -862,7 +862,7 @@ INFO_TABLE_RET( stg_block_async, 0/*framesize*/, 0/*bitmap*/, RET_SMALL )
 
     ares = StgTSO_block_info(CurrentTSO);
     len = StgAsyncIOResult_len(ares);
-    errC = StgAsyncIOResult_errC(ares);
+    errC = StgAsyncIOResult_errCode(ares);
     StgTSO_block_info(CurrentTSO) = NULL;
     foreign "C" free(ares);
     R1 = len;