darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix non-anulled calls so that return address is correct

Browse source
This commit is contained in:
Michael Meissner 1997-05-08 18:36:00 +00:00
parent 30a05dbd8d
commit 53dcd669e5
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sim/tic80/ChangeLog
View file

@ -1,5 +1,9 @@
Thu May 8 11:57:47 1997 Michael Meissner <meissner@cygnus.com>
* insns (jsr,bsr): For non-allulled calls, set r31 so that the
return address does not reexecute the instruction in the delay
slot.
* misc.c (tic80_trace_*): Change format slightly to accomidate
real large decimal values.

4
sim/tic80/insns
View file

@ -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,