diff --git a/ghc/rts/HeapStackCheck.cmm b/ghc/rts/HeapStackCheck.cmm index 516d0ade7dfb90aa96669d92b8c82d1257fe6635..88d18063e23986e8b9de32fe28e5fab322100983 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;