diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-04-29 09:05:38 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-04-29 14:08:30 -0500 |
| commit | e597f5feb065c075c86715e24bf0ebd341fa8b9e (patch) | |
| tree | 60182ab9349341aa1f1b78fbd2c98f5209f0a4f7 /rts | |
| parent | 275ea0ff391297b184e5c9cf2f87b26906f0e7e9 (diff) | |
| download | haskell-e597f5feb065c075c86715e24bf0ebd341fa8b9e.tar.gz | |
rts: Fix leak of file archive handle
Issue discovered by Coverity Scan, CID 43171.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Linker.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 1b0d48facf..146e2d52b0 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -2718,6 +2718,7 @@ loadArchive( pathchar *path ) if (0 == loadOc(oc)) { stgFree(fileName); + fclose(f); return 0; } } |