diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-09-24 15:02:02 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-09-24 15:02:02 +0000 |
commit | 41bfdf710742595e6043d9b851e8dab30ffe6d2f (patch) | |
tree | 75099938ff137a58625874981f446ea3e8078e60 /rts/StgStartup.cmm | |
parent | 92a5f4abbd32c0a28b75207b368d86e59515683d (diff) | |
download | haskell-41bfdf710742595e6043d9b851e8dab30ffe6d2f.tar.gz |
remove unnecessary stg_noForceIO (#3508)
Diffstat (limited to 'rts/StgStartup.cmm')
-rw-r--r-- | rts/StgStartup.cmm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm index c3c0bc3dd7..f8940c4196 100644 --- a/rts/StgStartup.cmm +++ b/rts/StgStartup.cmm @@ -151,22 +151,6 @@ INFO_TABLE_RET( stg_forceIO, RET_SMALL) } /* ----------------------------------------------------------------------------- - Non-strict IO application. - - This stack frame works like stg_forceIO_info except that it - doesn't evaluate the return value. We need the layer because the - return convention for an IO action differs depending on whether R1 - is a register or not. - ------------------------------------------------------------------------- */ - -INFO_TABLE_RET( stg_noforceIO, RET_SMALL ) - -{ - Sp_adj(1); - jump %ENTRY_CODE(Sp(0)); -} - -/* ----------------------------------------------------------------------------- Special STG entry points for module registration. -------------------------------------------------------------------------- */ |