Fix non-anulled calls so that return address is correct

[binutils-gdb.git] / sim / tic80 / insns

diff --git a/sim/tic80/insns b/sim/tic80/insns
index 437b6c95b6ffbdcad1ec361a3372e84e606be5fc..7c16213a775d473c1449d8cd57d89051a77a11c1 100644 (file)
--- a/sim/tic80/insns
+++ b/sim/tic80/insns
@@ -230,7 +230,7 @@ instruction_address::function::do_bsr:instruction_address nia, signed32 *rLink,
            nia.ip = -1;
          }
        else
-         *rLink = cia.dp + sizeof (instruction_word);
+         *rLink = nia.ip + sizeof (instruction_word);
        nia.dp = cia.ip + 4 * offset;
        TRACE_UCOND_BR (MY_INDEX, nia.dp);
        return nia;
@@ -614,7 +614,7 @@ instruction_address::function::do_jsr:instruction_address nia, signed32 *rLink,
            nia.ip = -1;
          }
        else
-         *rLink = cia.dp + sizeof (instruction_word);
+         *rLink = nia.ip + sizeof (instruction_word);
        nia.dp = offset + base;
        if (nia.dp & 0x3)
          engine_error (SD, CPU, cia,