X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fprims%2FPrimMisc.lc;h=021e0aa73688ad5a9fafff513fc2d9168582f504;hp=953ed15b1243ba71973cec88d1470ecba643803a;hb=2494407a750053daa61718fac371487d04818e57;hpb=1fb1ab5d53a09607e7f6d2450806760688396387

diff --git a/ghc/runtime/prims/PrimMisc.lc b/ghc/runtime/prims/PrimMisc.lc
index 953ed15..021e0aa 100644
--- a/ghc/runtime/prims/PrimMisc.lc
+++ b/ghc/runtime/prims/PrimMisc.lc
@@ -43,6 +43,8 @@ stg_exit (n) /* can't call regular "exit" from Haskell
 		because it has no return value */
   I_ n;
 {
+    /* Storage manager shutdown */
+    shutdownHaskell();
     EXIT(n);
     return(0); /* GCC warning food */
 }