diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-03-20 15:00:08 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-03-20 15:01:29 +0000 |
| commit | 8986122779d3e96d839aadc7a4094b67c1422205 (patch) | |
| tree | 8e666c682e97c6f60ab669bfb90e97c23240d447 /rts/HeapStackCheck.cmm | |
| parent | 27402ecad9fcb6c696b8f495354954fd1f1861e9 (diff) | |
| download | haskell-8986122779d3e96d839aadc7a4094b67c1422205.tar.gz | |
Code tidy-up: Use RET_NN in stg_block_async
Diffstat (limited to 'rts/HeapStackCheck.cmm')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index 469cecdb3a..90691fa091 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -679,23 +679,8 @@ INFO_TABLE_RET( stg_block_async, RET_SMALL, W_ unused ) len = TO_W_(StgAsyncIOResult_len(ares)); errC = TO_W_(StgAsyncIOResult_errCode(ares)); foreign "C" free(ares "ptr"); -#if defined(GhcUnregisterised) - Sp(1) = errC; - Sp(0) = len; - jump %ENTRY_CODE(Sp(2)); -#elif defined(i386_HOST_ARCH) - R1 = len; - Sp_adj(1); - Sp(0) = errC; - jump %ENTRY_CODE(Sp(1)); -#elif defined(x86_64_HOST_ARCH) - R1 = len; - R2 = errC; Sp_adj(2); - jump %ENTRY_CODE(Sp(0)); -#else -#error Unexpected arch -#endif + RET_NN(len, errC); } stg_block_async |