[commit: ghc] master: rts: Fix potential memory leak in ProfHeap.c (95da409)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/95da409719bab6f92229dc1a632c471e248d2fdd/ghc

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

commit 95da409719bab6f92229dc1a632c471e248d2fdd
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>


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

95da409719bab6f92229dc1a632c471e248d2fdd
 rts/ProfHeap.c |    1 +
 1 file changed, 1 insertion(+)

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index d21b14a..9079c2b 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;
     }
   }