* rtl.scm (rtx-pretty-name): Fix thinko, don't assume (car rtx) is simple.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 2b96e63..f0643f3 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-03  Doug Evans  <dje@sebabeach.org>
+
+       * rtl.scm (rtx-pretty-name): Fix thinko, don't assume (car rtx)
+       is simple.
+
 2009-09-01  DJ Delorie  <dj@redhat.com>
 
        * cpu/mep.opc (parse_signed16_range): Mark as potentially unused.

diff --git a/cgen/rtl.scm b/cgen/rtl.scm
index 7ec57ca..bca99e3 100644 (file)
--- a/cgen/rtl.scm
+++ b/cgen/rtl.scm
@@ -753,9 +753,9 @@
        ((xop) (symbol->string (obj:name (rtx-xop-obj rtx))))
        (else
         (if (null? (cdr rtx))
-            (car rtx)
+            (rtx-pretty-name (car rtx))
             (apply stringsym-append
-                   (cons (car rtx)
+                   (cons (rtx-pretty-name (car rtx))
                          (map (lambda (elm)
                                 (string-append "-" (rtx-pretty-name elm)))
                               (cdr rtx)))))))