summaryrefslogtreecommitdiff
path: root/rts/RtsStartup.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2009-12-01 12:28:01 +0000
committerSimon Marlow <marlowsd@gmail.com>2009-12-01 12:28:01 +0000
commit063b822bb68f84dd9729327bb1765637c25aceb4 (patch)
tree3f8fb5fab976de2f4e6527091ec68554e080e531 /rts/RtsStartup.c
parentcf036e5bd578769729fbbcbf67cb2277da9ba0bc (diff)
downloadhaskell-063b822bb68f84dd9729327bb1765637c25aceb4.tar.gz
Free full_prog_argv at exit, closing a memory leak
Diffstat (limited to 'rts/RtsStartup.c')
-rw-r--r--rts/RtsStartup.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index edb8088b0a..afa38aaf2c 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -338,6 +338,9 @@ hs_exit_(rtsBool wait_foreign)
OnExitHook();
+ // Free the full argv storage
+ freeFullProgArgv();
+
#if defined(THREADED_RTS)
ioManagerDie();
#endif