Reorganisation of the source tree

[ghc-hetmet.git] / rts / hooks / OnExit.c

diff --git a/rts/hooks/OnExit.c b/rts/hooks/OnExit.c
new file mode 100644 (file)
index 0000000..dd4c3b4
--- /dev/null
+++ b/rts/hooks/OnExit.c
@@ -0,0 +1,19 @@
+/* -----------------------------------------------------------------------------
+ *
+ * User-overridable RTS hooks.
+ *
+ * ---------------------------------------------------------------------------*/
+
+#include "Rts.h"
+
+/* Note: by the time this hook has been called, Haskell land
+ * will have been shut down completely.
+ *
+ * ToDo: feed the hook info on whether we're shutting down as a result
+ * of termination or run-time error ?
+ */
+ 
+void
+OnExitHook ()
+{
+}