summaryrefslogtreecommitdiff
path: root/rts/RtsStartup.c
diff options
context:
space:
mode:
authorAustin Seipp <aseipp@pobox.com>2013-05-12 22:07:11 -0500
committerAustin Seipp <aseipp@pobox.com>2013-05-12 22:07:11 -0500
commit089cb621441bd0753731b5e4cf906a204a6d2d79 (patch)
tree19c0572591d7c0f563ba8db4cc6e438122967943 /rts/RtsStartup.c
parent9d18aeab53a621d9c620dc6242c271fbbcdc645c (diff)
downloadhaskell-089cb621441bd0753731b5e4cf906a204a6d2d79.tar.gz
Kill dead code.
Signed-off-by: Austin Seipp <aseipp@pobox.com>
Diffstat (limited to 'rts/RtsStartup.c')
-rw-r--r--rts/RtsStartup.c38
1 files changed, 11 insertions, 27 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index 7b7d488e2b..d8c2058526 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -38,10 +38,6 @@
#include "FileLock.h"
void exitLinker( void ); // there is no Linker.h file to include
-#if defined(RTS_GTK_FRONTPANEL)
-#include "FrontPanel.h"
-#endif
-
#if defined(PROFILING)
# include "ProfHeap.h"
# include "RetainerProfile.h"
@@ -237,17 +233,11 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
initDefaultHandlers();
}
#endif
-
+
#if defined(mingw32_HOST_OS) && !defined(THREADED_RTS)
startupAsyncIO();
#endif
-#ifdef RTS_GTK_FRONTPANEL
- if (RtsFlags.GcFlags.frontpanel) {
- initFrontPanel();
- }
-#endif
-
#if X86_INIT_FPU
x86_init_fpu();
#endif
@@ -293,7 +283,7 @@ hs_add_root(void (*init_root)(void) STG_UNUSED)
* False ==> threads doing foreign calls may return in the
* future, but will immediately block on a mutex.
* (capability->lock).
- *
+ *
* If this RTS is a DLL that we're about to unload, then you want
* safe=True, otherwise the thread might return to code that has been
* unloaded. If this is a standalone program that is about to exit,
@@ -317,7 +307,7 @@ hs_exit_(rtsBool wait_foreign)
/* start timing the shutdown */
stat_startExit();
-
+
OnExitHook();
flushStdHandles();
@@ -336,7 +326,7 @@ hs_exit_(rtsBool wait_foreign)
/* run C finalizers for all active weak pointers */
runAllCFinalizers(weak_ptr_list);
-
+
#if defined(RTS_USER_SIGNALS)
if (RtsFlags.MiscFlags.install_signal_handlers) {
freeSignalHandlers();
@@ -348,7 +338,7 @@ hs_exit_(rtsBool wait_foreign)
exitTimer(wait_foreign);
// set the terminal settings back to what they were
-#if !defined(mingw32_HOST_OS)
+#if !defined(mingw32_HOST_OS)
resetTerminalSettings();
#endif
@@ -357,14 +347,14 @@ hs_exit_(rtsBool wait_foreign)
/* stop timing the shutdown, we're about to print stats */
stat_endExit();
-
+
/* shutdown the hpc support (if needed) */
exitHpc();
// clean up things from the storage manager's point of view.
// also outputs the stats (+RTS -s) info.
exitStorage();
-
+
/* free the tasks */
freeScheduler();
@@ -385,13 +375,7 @@ hs_exit_(rtsBool wait_foreign)
freeThreadLabelTable();
#endif
-#ifdef RTS_GTK_FRONTPANEL
- if (RtsFlags.GcFlags.frontpanel) {
- stopFrontPanel();
- }
-#endif
-
-#if defined(PROFILING)
+#if defined(PROFILING)
reportCCSProfiling();
#endif
@@ -479,15 +463,15 @@ shutdownHaskellAndSignal(int sig)
}
#endif
-/*
+/*
* called from STG-land to exit the program
*/
void (*exitFn)(int) = 0;
-void
+void
stg_exit(int n)
-{
+{
if (exitFn)
(*exitFn)(n);
exit(n);