diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-03-15 15:07:59 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-03-15 15:57:13 +0000 |
| commit | 69f98b8fe3f70fa053494abaf01242038c4335c0 (patch) | |
| tree | b2cc6db1a2e5cf72d4477b41d4188d1facd529bb /rts/HeapStackCheck.cmm | |
| parent | 97c24cddca60e80ec150483482c2a5dc1e506a76 (diff) | |
| download | haskell-69f98b8fe3f70fa053494abaf01242038c4335c0.tar.gz | |
Fix stg_block_async on unreg compilers
This is only defined on Windows, so hadn't come up in our Linux
unreg builds.
Diffstat (limited to 'rts/HeapStackCheck.cmm')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index 74545af149..7ba44d3bcd 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -679,10 +679,16 @@ INFO_TABLE_RET( stg_block_async, RET_SMALL, W_ unused ) len = StgAsyncIOResult_len(ares); errC = StgAsyncIOResult_errCode(ares); foreign "C" free(ares "ptr"); +#ifdef GhcUnregisterised + Sp(1) = errC; + Sp(0) = len; + jump %ENTRY_CODE(Sp(2)); +#else R1 = len; Sp_adj(1); Sp(0) = errC; jump %ENTRY_CODE(Sp(1)); +#endif } stg_block_async |