From: gkm <gkm>
Date: Sat, 2 Dec 2000 00:18:57 +0000 (+0000)
Subject: 	* desc.scm ((<keyword>,gen-defn): Prepend prefix to keyword index names.
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=0cfa53ea1756ff6fe53d6357abc842709eeef47b;p=pf3gnuchains%2Fpf3gnuchains3x.git

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

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 068b84040c..2b15372664 100644
--- 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 d5ba7529b2..3d7dd1b641 100644
--- 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