From 246fd41f2d73a1ded9b7b1fd5d9c6ea7d5d82a11 Mon Sep 17 00:00:00 2001
From: Jan Hubicka <hubicka@freesoft.cz>
Date: Sun, 21 Nov 1999 12:33:17 +0000
Subject: [PATCH] regclass.c (dump_regclass): New function.

	* regclass.c (dump_regclass): New function.
	(regclass): New parameter DUMP, call DUMP_REGCLASS.
	* toplev.c (rest_of_compilation): Opent lreg dump file before regclass,
	pass rtl_dump_file to regclass.
	* rtl.h (regclass): Update prototype.

From-SVN: r30600
---
 gcc/ChangeLog  |  8 ++++++++
 gcc/regclass.c | 28 +++++++++++++++++++++++++++-
 gcc/rtl.h      |  2 +-
 gcc/toplev.c   |  9 +++++----
 4 files changed, 41 insertions(+), 6 deletions(-)

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 0913a62b8d9..50d158c3202 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,11 @@
+Fro Nov 19 05:48:45 CET 1999  Jan Hubicka  <hubicka@freesoft.cz>
+
+	* regclass.c (dump_regclass): New function.
+	(regclass): New parameter DUMP, call DUMP_REGCLASS.
+	* toplev.c (rest_of_compilation): Opent lreg dump file before regclass,
+	pass rtl_dump_file to regclass.
+	* rtl.h (regclass): Update prototype.
+
 Sun Nov 21 17:11:13 1999  Geoffrey Keating  <geoffk@cygnus.com>
 
 	* varasm.c (output_constructor): Solve problem with long long
diff --git a/gcc/regclass.c b/gcc/regclass.c
index d495fdc5572..f14433caa03 100644
--- a/gcc/regclass.c
+++ b/gcc/regclass.c
@@ -696,6 +696,7 @@ static int loop_depth;
 static int loop_cost;
 
 static rtx scan_one_insn	PROTO((rtx, int));
+static void dump_regclass	PROTO((FILE *));
 static void record_reg_classes	PROTO((int, int, rtx *, enum machine_mode *,
 				       char *, const char **, rtx));
 static int copy_cost		PROTO((rtx, enum machine_mode, 
@@ -744,6 +745,28 @@ regclass_init ()
      before regclass is run.  */
   prefclass = 0;
 }
+
+/* Dump register costs.  */
+void
+dump_regclass (dump)
+     FILE *dump;
+{
+  static const char *const reg_class_names[] = REG_CLASS_NAMES;
+  int i;
+  for (i = FIRST_PSEUDO_REGISTER; i < max_regno; i++)
+    {
+      enum reg_class class;
+      if (REG_N_REFS (i))
+	{
+	  fprintf (dump, ";; Register %i costs:", i);
+	  for (class = 0; class < N_REG_CLASSES; class++)
+	    fprintf (dump, " %s:%i", reg_class_names[(int) class],
+		     costs[i].cost[class]);
+	  fprintf (dump, " MEM:%i\n\n", costs[i].mem_cost);
+	}
+    }
+}
+
 
 /* Subroutine of regclass, processes one insn INSN.  Scan it and record each
    time it would save code to put a certain register in a certain class.
@@ -951,9 +974,10 @@ scan_one_insn (insn, pass)
    This pass comes just before local register allocation.  */
 
 void
-regclass (f, nregs)
+regclass (f, nregs, dump)
      rtx f;
      int nregs;
+     FILE *dump;
 {
   register rtx insn;
   register int i;
@@ -1109,6 +1133,8 @@ regclass (f, nregs)
 	}
     }
 
+  if (dump)
+    dump_regclass (dump);
 #ifdef FORBIDDEN_INC_DEC_CLASSES
   free (in_inc_dec);
 #endif
diff --git a/gcc/rtl.h b/gcc/rtl.h
index dedbe99d650..136cb924825 100644
--- a/gcc/rtl.h
+++ b/gcc/rtl.h
@@ -1571,7 +1571,7 @@ extern void init_regs			PROTO ((void));
 extern void init_reg_sets		PROTO ((void));
 extern void regset_release_memory	PROTO ((void));
 extern void regclass_init		PROTO ((void));
-extern void regclass			PROTO ((rtx, int));
+extern void regclass			PROTO ((rtx, int, FILE *));
 extern void reg_scan			PROTO ((rtx, int, int));
 extern void reg_scan_update		PROTO ((rtx, rtx, int));
 extern void fix_register		PROTO ((const char *, int, int));
diff --git a/gcc/toplev.c b/gcc/toplev.c
index 20ce927dc0d..53a8a792329 100644
--- a/gcc/toplev.c
+++ b/gcc/toplev.c
@@ -4032,7 +4032,7 @@ rest_of_compilation (decl)
     {
       TIMEVAR (flow_time,
 	       {
-		 regclass (insns, max_reg_num ());
+		 regclass (insns, max_reg_num (), NULL);
 		 stupid_life_analysis (insns, max_reg_num (),
 				       rtl_dump_file);
 	       });
@@ -4146,6 +4146,9 @@ rest_of_compilation (decl)
      epilogue thus changing register elimination offsets.  */
   current_function_is_leaf = leaf_function_p ();
 
+  if (local_reg_dump)
+    open_dump_file (".12.lreg", decl_printable_name (decl, 2));
+
   /* Unless we did stupid register allocation,
      allocate pseudo-regs that are used only within 1 basic block. 
 
@@ -4159,7 +4162,7 @@ rest_of_compilation (decl)
 		  of life info during sched.  */
 	       if (! flag_schedule_insns)
 		 recompute_reg_usage (insns, ! optimize_size);
-	       regclass (insns, max_reg_num ());
+	       regclass (insns, max_reg_num (), rtl_dump_file);
 	       rebuild_label_notes_after_reload = local_alloc ();
 	     });
   else
@@ -4169,8 +4172,6 @@ rest_of_compilation (decl)
 
   if (local_reg_dump)
     {
-      open_dump_file (".12.lreg", decl_printable_name (decl, 2));
-
       TIMEVAR (dump_time, dump_flow_info (rtl_dump_file));
       TIMEVAR (dump_time, dump_local_alloc (rtl_dump_file));