diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-03-15 16:54:34 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-03-15 17:04:58 +0000 |
| commit | b0b76b2e926d08582538e2d31b18a1d80b83398d (patch) | |
| tree | 64d165cc4b581ee9b2aa475e7f817338c8ff8231 /rts/HeapStackCheck.cmm | |
| parent | dad672f3c37011f084938ce9e0afddeaa4692d89 (diff) | |
| download | haskell-b0b76b2e926d08582538e2d31b18a1d80b83398d.tar.gz | |
Some Win64 fixes
Convert some sizes, as CLong is a different size to pointers
Diffstat (limited to 'rts/HeapStackCheck.cmm')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index 7ba44d3bcd..199f0cd378 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -676,8 +676,8 @@ INFO_TABLE_RET( stg_block_async, RET_SMALL, W_ unused ) W_ len, errC; ares = Sp(1); - len = StgAsyncIOResult_len(ares); - errC = StgAsyncIOResult_errCode(ares); + len = TO_W_(StgAsyncIOResult_len(ares)); + errC = TO_W_(StgAsyncIOResult_errCode(ares)); foreign "C" free(ares "ptr"); #ifdef GhcUnregisterised Sp(1) = errC; |