From 0578dfbc6a7eefd85ba4e6a4ad23d101060d86c3 Mon Sep 17 00:00:00 2001
From: "andy@galois.com" <unknown>
Date: Mon, 17 Sep 2007 23:02:01 +0000
Subject: [PATCH] removing the functions hs_hpc_read and hs_hpc_write inside
 Hpc.c, they are dead code.

* To be merged to STABLE. *
---
 rts/Hpc.c |   38 --------------------------------------
 1 file changed, 38 deletions(-)

diff --git a/rts/Hpc.c b/rts/Hpc.c
index ebd5af1..bc9ba0e 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -39,9 +39,6 @@ int totalTixes = 0;		// total number of tix boxes.
 
 static char *tixFilename;
 
-void hs_hpc_read(char *filename);
-void hs_hpc_write(char *filename);
-
 static void failure(char *msg) {
   debugTrace(DEBUG_hpc,"hpc failure: %s\n",msg);
   fprintf(stderr,"Hpc failure: %s\n",msg);
@@ -328,41 +325,6 @@ exitHpc(void) {
   writeTix(f);
 }
 
-void hs_hpc_read(char *filename) {
-  HpcModuleInfo *orig_modules = 0, *tmpModule, *tmpOrigModule;
-  int i;
-
-  orig_modules = modules;
-  modules = 0;
-  if (init_open(fopen(filename,"r"))) {
-    readTix();
-    // Now we copy across the arrays. O(n^2), but works
-    for(tmpModule = modules;
-	tmpModule != 0;
-	tmpModule = tmpModule->next) {
-
-      for(tmpOrigModule = orig_modules;
-	  tmpOrigModule != 0;
-	  tmpOrigModule = tmpOrigModule->next) {
-	if (!strcmp(tmpModule->modName,tmpOrigModule->modName)) {    
-	  assert(tmpModule->tixArr != 0);		
-	  assert(tmpOrigModule->tixArr != 0);		
-	  assert(tmpModule->tickCount == tmpOrigModule->tickCount);
-	  for(i=0;i < tmpModule->tickCount;i++) {
-	    tmpOrigModule->tixArr[i] = tmpModule->tixArr[i];
-	  }
-	  tmpModule->tixArr = tmpOrigModule->tixArr;
-	  break;
-	}
-      }
-    }
-  }
-}
-
-void hs_hpc_write(char *filename) {
-  writeTix(fopen(filename,"w"));
-}
-
 //////////////////////////////////////////////////////////////////////////////
 // This is the API into Hpc RTS from Haskell, allowing the tixs boxes
 // to be first class.
-- 
1.7.10.4