diff options
| author | Martin Schwidefsky <schwidefsky@de.ibm.com> | 2009-06-19 10:58:27 +0000 |
|---|---|---|
| committer | Martin Schwidefsky <schwidefsky@de.ibm.com> | 2009-06-19 10:58:27 +0000 |
| commit | 5e7c27a6076edbd535b3988449c0f24b40ac2371 (patch) | |
| tree | 240dbfbd3b0d297356484021bdf93dc213315dc2 /gas | |
| parent | ce21feb4baa0e93d4ce510f755cd5b92ec1580d0 (diff) | |
| download | gdb-5e7c27a6076edbd535b3988449c0f24b40ac2371.zip gdb-5e7c27a6076edbd535b3988449c0f24b40ac2371.tar.gz gdb-5e7c27a6076edbd535b3988449c0f24b40ac2371.tar.bz2 | |
* config/tc-s390.c (md_gather_operands): Accept an instruction
without operands if all operands are tagged as optional.
Diffstat (limited to 'gas')
| -rw-r--r-- | gas/ChangeLog | 5 | ||||
| -rw-r--r-- | gas/config/tc-s390.c | 19 |
2 files changed, 23 insertions, 1 deletions
diff --git a/gas/ChangeLog b/gas/ChangeLog index 2f19a40..075d6f0 100644 --- a/gas/ChangeLog +++ b/gas/ChangeLog @@ -1,3 +1,8 @@ +2009-06-19 Martin Schwidefsky <schwidefsky@de.ibm.com> + + * config/tc-s390.c (md_gather_operands): Accept an instruction + without operands if all operands are tagged as optional. + 2009-06-18 Nick Clifton <nickc@redhat.com> PR 10169 diff --git a/gas/config/tc-s390.c b/gas/config/tc-s390.c index da7d4c5..f5c2a2e 100644 --- a/gas/config/tc-s390.c +++ b/gas/config/tc-s390.c @@ -1188,7 +1188,24 @@ md_gather_operands (char *str, if (ex.X_op == O_illegal) as_bad (_("illegal operand")); else if (ex.X_op == O_absent) - as_bad (_("missing operand")); + { + /* No operands, check if all operands can be skipped. */ + while (*opindex_ptr != 0 && operand->flags & S390_OPERAND_OPTIONAL) + { + if (operand->flags & S390_OPERAND_DISP) + { + /* An optional displacement makes the whole D(X,B) + D(L,B) or D(B) block optional. */ + do { + operand = s390_operands + *(++opindex_ptr); + } while (!(operand->flags & S390_OPERAND_BASE)); + } + operand = s390_operands + *(++opindex_ptr); + } + if (opindex_ptr[0] == '\0') + break; + as_bad (_("missing operand")); + } else if (ex.X_op == O_register || ex.X_op == O_constant) { s390_lit_suffix (&str, &ex, ELF_SUFFIX_NONE); |