[project @ 2003-08-01 14:58:47 by panne]

[ghc-hetmet.git] / ghc / utils / prof / cgprof / cgprof.c

diff --git a/ghc/utils/prof/cgprof/cgprof.c b/ghc/utils/prof/cgprof/cgprof.c
index 98c8ed0..414476e 100644 (file)
--- a/ghc/utils/prof/cgprof/cgprof.c
+++ b/ghc/utils/prof/cgprof/cgprof.c
@@ -1,5 +1,5 @@
 /* ------------------------------------------------------------------------
- * $Id: cgprof.c,v 1.3 2003/08/01 14:50:48 panne Exp $
+ * $Id: cgprof.c,v 1.4 2003/08/01 14:58:47 panne Exp $
  *                                                                     
  *     Copyright (C) 1995-2000 University of Oxford
  *                                                                     
@@ -64,7 +64,6 @@ void enlargeRawProfile() {
  * -------------------------------------------------------------------------- */
 
 void add_costs(object_cost *left, object_cost right) {
-  int i;
 
   left->syncs         += right.syncs;
   left->comp_max      += right.comp_max;
@@ -634,7 +633,6 @@ void FormStack2(ccs_matrix *m, cc_matrix *n, int i, char s[])
 
 void PrintStack(ccs_matrix *m, cc_matrix *n, int i)
 {
-  char    stack[MAX_PROFILE_LINE_LENGTH];
   int j = i;
   if ((*m)[j].cc != 0)
   {
@@ -775,9 +773,7 @@ void produce_HEAP_PROFILE(FILE *HEAP_PROFILE, TheHeap *th, heap_object_matrix *h
 /* void readRawProfile(FILE *fptr,int *nonodes) { */
 
 void readRawProfile(FILE *fp,int *nonodes, int MaxNoNodes) {
-  char    line[MAX_PROFILE_LINE_LENGTH];
   char    stack[MAX_PROFILE_LINE_LENGTH];
-  char    rest[MAX_PROFILE_LINE_LENGTH];
   int     i,nolines,sstepline,syncs;
   char   *ptr,*drag;
 
@@ -791,16 +787,12 @@ void readRawProfile(FILE *fp,int *nonodes, int MaxNoNodes) {
 
   /* set to zero for now. Might use these later for heap costs. */
 
-  int     *result; /* Something to do with daVinci? */
-
   /* GHC specific variables */
 
-  int a,b,c,d,x,y,z,count, next, throw;
+  int a,b,c,d,x,z,count, next;
   int newloop;
-  char *ignore;
   char e[MAX_STRING_SIZE];
   char f[MAX_STRING_SIZE];
-  char g[MAX_STRING_SIZE];
   char lline[MAX_PROFILE_LINE_LENGTH];
 
   /* identifiers generated by the XML handler */
@@ -813,7 +805,6 @@ void readRawProfile(FILE *fp,int *nonodes, int MaxNoNodes) {
   char *typeconstr=">>type_constr";
   char *ending=">>";
 
-  char *blank="blank";
   /* FILE *fp; */
 
   cc_matrix *cc_m;