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

	* opc-itab.scm (compute-syntax): Emit a parse error if an operand
	given in a syntax string is undefined.

diff --git a/ChangeLog b/ChangeLog
index b4289b58a357605aa7e64f438fff66de7bc096d0..df24d3ceb187cc2590f6187ff55afb1cba794f1a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2001-03-21  Ben Elliston  <bje@redhat.com>
 
+       * opc-itab.scm (compute-syntax): Emit a parse error if an operand
+       given in a syntax string is undefined.
+
        * 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/opc-itab.scm b/opc-itab.scm
index 03d347a551911d513704dc272190b24e78c99881..16f821b4af4da5e158c4ed8e8c4ba03690f36bc7 100644 (file)
--- a/opc-itab.scm
+++ b/opc-itab.scm
@@ -164,6 +164,9 @@
                 (let ((n (id-len (string-drop1 syn))))
                   (if (= n 0)
                       (parse-error context "empty or invalid operand name" syntax))
+                  (let ((operand (string->symbol (substring syn 1 (1+ n)))))
+                    (if (not (current-op-lookup operand))
+                        (parse-error context "undefined operand " operand syntax)))
                   (loop (string-drop (1+ n) syn)
                         (string-append result op-macro " ("
                                        (string-upcase