[commit: ghc] ghc-7.8: rts: Fix potential memory leak in ProfHeap.c (8640d7b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/8640d7b2a636702079878cd9cfb9b9349457c1e0/ghc

>---------------------------------------------------------------

commit 8640d7b2a636702079878cd9cfb9b9349457c1e0
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Apr 23 02:14:15 2014 -0500

    rts: Fix potential memory leak in ProfHeap.c
    
    Discovered by Coverity. CID 43166.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>
    (cherry picked from commit 95da409719bab6f92229dc1a632c471e248d2fdd)


>---------------------------------------------------------------

8640d7b2a636702079878cd9cfb9b9349457c1e0
 rts/ProfHeap.c |    1 +
 1 file changed, 1 insertion(+)

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 6d78886..350f73b 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -337,6 +337,7 @@ void initProfiling2 (void)
       debugBelch("Can't open profiling report file %s\n",
 	      hp_filename);
       RtsFlags.ProfFlags.doHeapProfile = 0;
+      stgFree(prog);
       return;
     }
   }