X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsStartup.c;h=266c04808d863c82c58c435f77a31702bc0b4cdf;hb=159fdb19228cfb04c3fd871ab3f41f8ef7984b58;hp=bc169ff0eb4ad6fe79bc03d5744909a1b67153c9;hpb=62db6241c578f2b02e266b4dd0b535e0f59950bf;p=ghc-hetmet.git

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index bc169ff..266c048 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -345,6 +345,11 @@ hs_exit_(rtsBool wait_foreign)
     
     OnExitHook();
 
+    // sanity check
+#if defined(DEBUG)
+    checkFPUStack();
+#endif
+
     // Free the full argv storage
     freeFullProgArgv();