From: simonmar <unknown>
Date: Wed, 28 Nov 2001 15:42:26 +0000 (+0000)
Subject: [project @ 2001-11-28 15:42:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~492
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a4e17de6a38eb37cabff165e8f280a236ffa8af6;p=ghc-hetmet.git

[project @ 2001-11-28 15:42:26 by simonmar]
Don't need the .prof file when LDV-profiling.
---

diff --git a/ghc/rts/Profiling.c b/ghc/rts/Profiling.c
index 0050856..e8db830 100644
--- a/ghc/rts/Profiling.c
+++ b/ghc/rts/Profiling.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Profiling.c,v 1.27 2001/11/26 16:54:21 simonmar Exp $
+ * $Id: Profiling.c,v 1.28 2001/11/28 15:42:26 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -241,12 +241,9 @@ initProfilingLogFile(void)
     if ((prof_file = fopen(prof_filename, "w")) == NULL) {
 	fprintf(stderr, "Can't open profiling report file %s\n", prof_filename);
 	RtsFlags.CcFlags.doCostCentres = 0;
-        // @retainer profiling
-        // @LDV profiling
         // The following line was added by Sung; retainer/LDV profiling may need
         // two output files, i.e., <program>.prof/hp.
-        if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_RETAINER ||
-            RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV)
+        if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_RETAINER)
             RtsFlags.ProfFlags.doHeapProfile = 0;
 	return;
     }