removing the functions hs_hpc_read and hs_hpc_write inside Hpc.c, they are dead code.

* To be merged to STABLE. *

diff --git a/rts/Hpc.c b/rts/Hpc.c
index ebd5af1..bc9ba0e 100644 (file)
--- 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.