summaryrefslogtreecommitdiff
path: root/rts/StgStartup.cmm
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2010-09-24 15:02:02 +0000
committerSimon Marlow <marlowsd@gmail.com>2010-09-24 15:02:02 +0000
commit41bfdf710742595e6043d9b851e8dab30ffe6d2f (patch)
tree75099938ff137a58625874981f446ea3e8078e60 /rts/StgStartup.cmm
parent92a5f4abbd32c0a28b75207b368d86e59515683d (diff)
downloadhaskell-41bfdf710742595e6043d9b851e8dab30ffe6d2f.tar.gz
remove unnecessary stg_noForceIO (#3508)
Diffstat (limited to 'rts/StgStartup.cmm')
-rw-r--r--rts/StgStartup.cmm16
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.
-------------------------------------------------------------------------- */