X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fprof%2Fcgprof%2Fcgprof.c;h=414476e522d741a188a49b04a72e08eb7ba0c912;hb=e5ad9dcc35c7a0bb9b8ebca29940cbf32c6b150a;hp=98c8ed03b50015fda36a9416eac75c5e3364ec13;hpb=48ed703e41cf421eeb5bf04ab6b7b26f8918def2;p=ghc-hetmet.git

diff --git a/ghc/utils/prof/cgprof/cgprof.c b/ghc/utils/prof/cgprof/cgprof.c
index 98c8ed0..414476e 100644
--- 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;