X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRtsStartup.c;fp=rts%2FRtsStartup.c;h=952e80634549fee2de6e0128ba503c7c92ba1cf9;hp=236d07a9e06a11d79f3f454c5998a7d313aab2b5;hb=a6e8418a71b14ef85ee7134be654689b17765f03;hpb=f61d53d322cdf81a1cfa09cf4a4af4198611bcd5

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index 236d07a..952e806 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -297,9 +297,6 @@ hs_exit_(rtsBool wait_foreign)
     checkFPUStack();
 #endif
 
-    // Free the full argv storage
-    freeFullProgArgv();
-
 #if defined(THREADED_RTS)
     ioManagerDie();
 #endif
@@ -402,6 +399,8 @@ hs_exit_(rtsBool wait_foreign)
     // heap memory (e.g. by being passed a ByteArray#).
     freeStorage(wait_foreign);
 
+    // Free the various argvs
+    freeRtsArgs();
 }
 
 // The real hs_exit():