X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fposix%2FSignals.c;h=2380eacfbdd3bf29161644792155ffa45a6626ff;hp=a5044cd6de08c34af2d904128e91b65a5e983d4f;hb=refs%2Ftags%2F2006-12-16;hpb=1f801e3abd16559f2120b7f482b19deb0c43a0c7

diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c
index a5044cd..2380eac 100644
--- a/rts/posix/Signals.c
+++ b/rts/posix/Signals.c
@@ -545,4 +545,11 @@ initDefaultHandlers()
 #endif
 }
 
+void
+freeSignalHandlers(void) {
+    if (signal_handlers != NULL) {
+        stgFree(signal_handlers);
+    }
+}
+
 #endif /* RTS_USER_SIGNALS */