diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-12-01 12:28:01 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-01 12:28:01 +0000 |
commit | 063b822bb68f84dd9729327bb1765637c25aceb4 (patch) | |
tree | 3f8fb5fab976de2f4e6527091ec68554e080e531 /rts/RtsStartup.c | |
parent | cf036e5bd578769729fbbcbf67cb2277da9ba0bc (diff) | |
download | haskell-063b822bb68f84dd9729327bb1765637c25aceb4.tar.gz |
Free full_prog_argv at exit, closing a memory leak
Diffstat (limited to 'rts/RtsStartup.c')
-rw-r--r-- | rts/RtsStartup.c | 3 |
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 |