2001-03-21 Ben Elliston <bje@redhat.com>

	* opc-itab.scm (compute-syntax): Emit a parse error if an operand
	name is empty or invalid -- eg. "$(rs)" instead of "($rs)".

diff --git a/ChangeLog b/ChangeLog
index 23a43ce7f1e7a2f799d65611a1dc21511bc5a3e9..b4289b58a357605aa7e64f438fff66de7bc096d0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-21  Ben Elliston  <bje@redhat.com>
+
+       * opc-itab.scm (compute-syntax): Emit a parse error if an operand
+       name is empty or invalid -- eg. "$(rs)" instead of "($rs)".
+
 2001-03-20  Patrick Macdonald  <patrickm@redhat.com>
 
         * desc-cpu.scm (@arch@_cgen_cpu_open): Correct machine calculation for

diff --git a/opc-itab.scm b/opc-itab.scm
index ca55b2a5ed3ec788ca53be6b9eab93fb040e261a..03d347a551911d513704dc272190b24e78c99881 100644 (file)
--- a/opc-itab.scm
+++ b/opc-itab.scm
@@ -162,6 +162,8 @@
                                                  (substring syn 2 n)))
                                                "), ")))))
                 (let ((n (id-len (string-drop1 syn))))
+                  (if (= n 0)
+                      (parse-error context "empty or invalid operand name" syntax))
                   (loop (string-drop (1+ n) syn)
                         (string-append result op-macro " ("
                                        (string-upcase