* desc.scm ((<keyword>,gen-defn): Prepend prefix to keyword index names.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 068b840..2b15372 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-01  Greg McGary  <greg@mcgary.org>
+
+       * desc.scm ((<keyword>,gen-defn): Prepend prefix to keyword names.
+
 2000-12-01  Ben Elliston  <bje@redhat.com>
 
        * sim-cpu.scm (cgen-cpu.h): Only emit argbuf, scache and extract

diff --git a/cgen/desc.scm b/cgen/desc.scm
index d5ba752..3d7dd1b 100644 (file)
--- a/cgen/desc.scm
+++ b/cgen/desc.scm
@@ -121,8 +121,9 @@ static const CGEN_ATTR_ENTRY bool_attr[] =
     (string-drop -2 ; Delete trailing ",\n" [don't want the ,]
                 (string-map (lambda (e)
                               (string-append
-                               "  { "
-                               "\"" (car e) "\", " ; operand name
+                               "  { \""
+                               (elm-get self 'prefix) (car e) ; operand name
+                               "\", "
                                (if (string? (cadr e))
                                    (cadr e)
                                    (number->string (cadr e))) ; value