aboutsummaryrefslogtreecommitdiff
path: root/tcg/s390
diff options
context:
space:
mode:
authorRichard Henderson <rth@twiddle.net>2014-05-14 17:14:51 -0400
committerRichard Henderson <rth@twiddle.net>2014-05-15 09:22:32 -0700
commita10c64e0df3acbefdee1b2b837f76f05b0231aae (patch)
tree70457e5526c7d69abcd52ff6873d1c47bf666df8 /tcg/s390
parent061cdd818251307d82dc8d4d7416ff34ddce49bc (diff)
downloadqemu-a10c64e0df3acbefdee1b2b837f76f05b0231aae.zip
qemu-a10c64e0df3acbefdee1b2b837f76f05b0231aae.tar.gz
qemu-a10c64e0df3acbefdee1b2b837f76f05b0231aae.tar.bz2
tcg-s390: Implement direct chaining of TBs
Signed-off-by: Richard Henderson <rth@twiddle.net>
Diffstat (limited to 'tcg/s390')
-rw-r--r--tcg/s390/tcg-target.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/tcg/s390/tcg-target.c b/tcg/s390/tcg-target.c
index e235130..07164e5 100644
--- a/tcg/s390/tcg-target.c
+++ b/tcg/s390/tcg-target.c
@@ -1703,7 +1703,9 @@ static inline void tcg_out_op(TCGContext *s, TCGOpcode opc,
case INDEX_op_goto_tb:
if (s->tb_jmp_offset) {
- tcg_abort();
+ tcg_out16(s, RIL_BRCL | (S390_CC_ALWAYS << 4));
+ s->tb_jmp_offset[args[0]] = tcg_current_code_size(s);
+ s->code_ptr += 2;
} else {
/* load address stored at s->tb_next + args[0] */
tcg_out_ld_abs(s, TCG_TYPE_PTR, TCG_TMP0, s->tb_next + args[0]);