diff options
author | Austin Seipp <aseipp@pobox.com> | 2013-05-12 22:07:11 -0500 |
---|---|---|
committer | Austin Seipp <aseipp@pobox.com> | 2013-05-12 22:07:11 -0500 |
commit | 089cb621441bd0753731b5e4cf906a204a6d2d79 (patch) | |
tree | 19c0572591d7c0f563ba8db4cc6e438122967943 /rts/RtsStartup.c | |
parent | 9d18aeab53a621d9c620dc6242c271fbbcdc645c (diff) | |
download | haskell-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.c | 38 |
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); |