* haifa-sched.c (print_value): Fix last change.

From-SVN: r15181

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 94b0ca074260004f9c440a5bc546a9c5ff4937ce..725e1494a2c121df39e40a53a47c6a0360a0c251 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Tue Sep  9 09:12:17 1997  Jeffrey A Law  (law@cygnus.com)
+
+       * haifa-sched.c (print_value): Fix last change.
+
 Mon Sep  8 15:15:11 1997  Nick Clifton  <nickc@cygnus.com>
 
        * v850.h (ASM_SPEC): Pass on target processor.

diff --git a/gcc/haifa-sched.c b/gcc/haifa-sched.c
index f5a5f4e84d7cef9809d40a07c6bd5c28ffe6f683..4b0be8879a8467534103fd090a6b537823bb84bb 100644 (file)
--- a/gcc/haifa-sched.c
+++ b/gcc/haifa-sched.c
@@ -6089,11 +6089,11 @@ print_value (buf, x, verbose)
        strcpy (t, "fr");
       else
        strcpy (t, "r");
-      sprintf (buf, "%s%d", t, !! XEXP (x, 0));
+      sprintf (buf, "%s%d", t, REGNO (x));
       break;
     case SUBREG:
       print_value (t, XEXP (x, 0), verbose);
-      sprintf (buf, "%s#%d", t, !! XEXP (x, 1));
+      sprintf (buf, "%s#%d", t, SUBREG_WORD (x));
       break;
     case SCRATCH:
       sprintf (buf, "scratch");