X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRtsStartup.c;fp=rts%2FRtsStartup.c;h=266c04808d863c82c58c435f77a31702bc0b4cdf;hp=bc169ff0eb4ad6fe79bc03d5744909a1b67153c9;hb=035b8ebb5405efbcbfd3474821a877add1feca1e;hpb=41147ad2a9ca84ebe66386b3b0043cb7b48ddcd8

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();