diff options
| author | Richard Henderson | 2014-05-14 23:14:51 +0200 |
|---|---|---|
| committer | Richard Henderson | 2014-05-15 18:22:32 +0200 |
| commit | a10c64e0df3acbefdee1b2b837f76f05b0231aae (patch) | |
| tree | 70457e5526c7d69abcd52ff6873d1c47bf666df8 /tcg/s390/tcg-target.c | |
| parent | tcg-s390: Don't force -march=z990 (diff) | |
| download | qemu-a10c64e0df3acbefdee1b2b837f76f05b0231aae.tar.gz qemu-a10c64e0df3acbefdee1b2b837f76f05b0231aae.tar.xz qemu-a10c64e0df3acbefdee1b2b837f76f05b0231aae.zip | |
tcg-s390: Implement direct chaining of TBs
Signed-off-by: Richard Henderson <rth@twiddle.net>
Diffstat (limited to 'tcg/s390/tcg-target.c')
| -rw-r--r-- | tcg/s390/tcg-target.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tcg/s390/tcg-target.c b/tcg/s390/tcg-target.c index e235130a43..07164e544d 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]); |