From: Martin Schwidefsky Date: Thu, 29 Nov 2007 09:34:14 +0000 (+0000) Subject: 2007-11-29 Martin Schwidefsky X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e6181b6abd09e4be7838fac3c57cc64977878e73;p=binutils-gdb.git 2007-11-29 Martin Schwidefsky * config/tc-s390.c (md_begin): If the -mesa option is specified add zarch opcodes to the hash table only if there is no variant that is available for the esa mode as well. 2007-11-29 Martin Schwidefsky * gas/s390/esa-z9-109.d: Add check for old version of sske. * gas/s390/esa-z9-109.s: Likewise. --- diff --git a/gas/ChangeLog b/gas/ChangeLog index 4dbbd020572..9d32ba220ba 100644 --- a/gas/ChangeLog +++ b/gas/ChangeLog @@ -1,3 +1,9 @@ +2007-11-29 Martin Schwidefsky + + * config/tc-s390.c (md_begin): If the -mesa option is specified + add zarch opcodes to the hash table only if there is no variant + that is available for the esa mode as well. + 2007-11-26 Thomas Ogrisegg * config/tc-alpha.c (assemble_insn): Don't segv on NULL reloc_operand. diff --git a/gas/config/tc-s390.c b/gas/config/tc-s390.c index ac93faf6c5d..19fd4747713 100644 --- a/gas/config/tc-s390.c +++ b/gas/config/tc-s390.c @@ -512,17 +512,22 @@ md_begin () op_end = s390_opcodes + s390_num_opcodes; for (op = s390_opcodes; op < op_end; op++) - if (op->min_cpu <= current_cpu) - { - retval = hash_insert (s390_opcode_hash, op->name, (PTR) op); - if (retval != (const char *) NULL) - { - as_bad (_("Internal assembler error for instruction %s"), - op->name); - dup_insn = TRUE; - } - while (op < op_end - 1 && strcmp (op->name, op[1].name) == 0) + { + while (op < op_end - 1 && strcmp(op->name, op[1].name) == 0) + { + if (op->min_cpu <= current_cpu && (op->modes & current_mode_mask)) + break; op++; + } + retval = hash_insert (s390_opcode_hash, op->name, (PTR) op); + if (retval != (const char *) NULL) + { + as_bad (_("Internal assembler error for instruction %s"), + op->name); + dup_insn = TRUE; + } + while (op < op_end - 1 && strcmp (op->name, op[1].name) == 0) + op++; } if (dup_insn) diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index b1039e53547..47dba463aaa 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-11-29 Martin Schwidefsky + + * gas/s390/esa-z9-109.d: Add check for old version of sske. + * gas/s390/esa-z9-109.s: Likewise. + 2007-11-27 Andreas Krebbel * gas/s390/zarch-z9-ec.d: ("tcet", "tcdt", "tcxt", "tget", diff --git a/gas/testsuite/gas/s390/esa-z9-109.d b/gas/testsuite/gas/s390/esa-z9-109.d index d2935f31830..d03790909d5 100644 --- a/gas/testsuite/gas/s390/esa-z9-109.d +++ b/gas/testsuite/gas/s390/esa-z9-109.d @@ -10,3 +10,4 @@ Disassembly of section .text: .*: b9 92 f0 69 [ ]*trot %r6,%r9,15 .*: b9 91 f0 69 [ ]*trto %r6,%r9,15 .*: b9 90 f0 69 [ ]*trtt %r6,%r9,15 +.*: b2 2b 00 69 [ ]*sske %r6,%r9 diff --git a/gas/testsuite/gas/s390/esa-z9-109.s b/gas/testsuite/gas/s390/esa-z9-109.s index 6f4b32eba27..49ffaf6ecd0 100644 --- a/gas/testsuite/gas/s390/esa-z9-109.s +++ b/gas/testsuite/gas/s390/esa-z9-109.s @@ -4,3 +4,6 @@ foo: trot %r6,%r9,15 trto %r6,%r9,15 trtt %r6,%r9,15 +# z9-109 z/Architecture mode extended sske with an additional parameter +# make sure the old version still works for esa + sske %r6,%r9