* sfmt optimism fix

2001-06-01  Frank Ch. Eigler  <fche@redhat.com>

	* rtl.scm (hw): Encode hw access mode into <operand> name, since this
	is required for multi-mode hw types (memory).

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index c792e3c..8217c65 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-01  Frank Ch. Eigler  <fche@redhat.com>
+
+       * rtl.scm (hw): Encode hw access mode into <operand> name, since this
+       is required for multi-mode hw types (memory).
+
 2001-05-11  Ben Elliston  <bje@redhat.com>
 
        * gas-test.scm (cgen-build.sh, gentest): Escape $ with a backslash

diff --git a/cgen/rtl.scm b/cgen/rtl.scm
index 6159c2e..d7d0025 100644 (file)
--- a/cgen/rtl.scm
+++ b/cgen/rtl.scm
@@ -1996,8 +1996,9 @@
     (if (not hw)
        (parse-error "hw" "invalid hardware element" hw-name))
 
-    (let ((mode (if (eq? mode-name 'DFLT) (hw-mode hw) (mode:lookup mode-name)))
-         (result (new <operand>))) ; ??? lookup-for-new?
+    (let* ((mode (if (eq? mode-name 'DFLT) (hw-mode hw) (mode:lookup mode-name)))
+          (hw-name-with-mode (symbol-append hw-name '- (obj:name mode)))
+          (result (new <operand>))) ; ??? lookup-for-new?
 
       (if (not mode)
          (parse-error "hw" "invalid mode" mode-name))
@@ -2035,7 +2036,7 @@
 
       ; The name of the operand must include the index so that multiple copies
       ; of a hardware object (e.g. h-gr[0], h-gr[14]) can be distinguished.
-      (let ((name (-rtx-hw-name hw hw-name index-arg)))
+      (let ((name (-rtx-hw-name hw hw-name-with-mode index-arg)))
        (send result 'set-name! name)
        (op:set-sem-name! result name))