Branch and link instructions modify r13

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 0259ce52260ae5765e7d820fbfa8e17b9e239a41..610b0d2d0c6889abb8bc87b36fa06a4b694e0e42 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,4 +1,9 @@
 start-sanitize-d10v
+Mon Nov 18 15:22:28 1996  Michael Meissner  <meissner@tiktok.cygnus.com>
+
+       * config/tc-d10v.c (parallel_ok): Branch and link instructions
+       modify r13.
+
 Thu Nov 14 11:17:49 1996  Martin M. Hunt  <hunt@pizza.cygnus.com>
 
        * config/tc-d10v.c (write_2_short): Fix bug that wouldn't

diff --git a/gas/config/tc-d10v.c b/gas/config/tc-d10v.c
index 4a466fda4095ab191b2cd1abb62c06e2659a741a..0de08e9faea63c0262e955d6041d432fabd63779 100644 (file)
--- a/gas/config/tc-d10v.c
+++ b/gas/config/tc-d10v.c
@@ -859,6 +859,9 @@ parallel_ok (op1, insn1, op2, insn2)
          ins = insn2;
        }
       mod[j] = used[j] = 0;
+      if (op->exec_type & BRANCH_LINK)
+       mod[j] |= 1 << 13;
+
       for (i = 0; op->operands[i]; i++)
        {
          flags = d10v_operands[op->operands[i]].flags;