(operand): Do not as_bad() if RELAX_PAREN_GROUPING is

defined.  Fix error message and double increment of
input_line_pointer for `[' grouping.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index d463a9aef2d851079cd5f21c2684f59c19ffbd96..cd13e01753c4335af6580bd954c14efb85c6ea39 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,9 @@
+2000-06-23  matthew green  <mrg@redhat.com>
+
+       * expr.c (operand): Do not as_bad() if RELAX_PAREN_GROUPING is
+        defined.  Fix error message and double increment of
+       input_line_pointer for `[' grouping.
+
 2000-06-22  Kazu Hirata  <kazu@hxi.com>
 
        * config/tc-h8300.c: Fix formatting and comment typos.

diff --git a/gas/expr.c b/gas/expr.c
index e12c4b04b915fbe2536b5ed917d4442a3ff268e7..d082469610b179f4869e8b40e4d9e5a214fce13d 100644 (file)
--- a/gas/expr.c
+++ b/gas/expr.c
@@ -1004,12 +1004,16 @@ operand (expressionP)
       /* didn't begin with digit & not a name */
       segment = expression (expressionP);
       /* Expression() will pass trailing whitespace */
-      if ((c == '(' && *input_line_pointer++ != ')')
-         || (c == '[' && *input_line_pointer++ != ']'))
+      if ((c == '(' && *input_line_pointer != ')')
+         || (c == '[' && *input_line_pointer != ']'))
        {
-         as_bad (_("Missing ')' assumed"));
-         input_line_pointer--;
+#ifdef RELAX_PAREN_GROUPING
+         if (c != '(')
+#endif
+           as_bad (_("Missing '%c' assumed"), c == '(' ? ')' : ']');
        }
+      else
+        input_line_pointer++;
       SKIP_WHITESPACE ();
       /* here with input_line_pointer->char after "(...)" */
       return segment;