123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165 |
- # Hitachi H8 testcase 'bra'
- # mach(): all
- # as(h8300): --defsym sim_cpu=0
- # as(h8300h): --defsym sim_cpu=1
- # as(h8300s): --defsym sim_cpu=2
- # as(h8sx): --defsym sim_cpu=3
- # ld(h8300h): -m h8300helf
- # ld(h8300s): -m h8300self
- # ld(h8sx): -m h8300sxelf
- .include "testutils.inc"
- start
- .if (sim_cpu == h8sx)
- .data
- .align 4
- disp8: .long tgt_reg8
- disp16: .long tgt_reg16
- disp32: .long tgt_reg32
- dslot: .byte 0
- .text
- .endif
- bra_8:
- set_grs_a5a5 ; Fill all general regs with a fixed pattern
- set_ccr_zero
- ;; bra dd:8 ; 8-bit displacement
- bra tgt_8:8
- ;;; .word 0x40xx ; where "xx" is tgt_8 - '.'.
- fail
- tgt_8:
- test_cc_clear
- test_gr_a5a5 0 ; Make sure other general regs not disturbed
- test_gr_a5a5 1
- test_gr_a5a5 2
- test_gr_a5a5 3
- test_gr_a5a5 4
- test_gr_a5a5 5
- test_gr_a5a5 6
- test_gr_a5a5 7
- .if (sim_cpu) ; not available in h8/300 mode
- bra_16:
- set_grs_a5a5 ; Fill all general regs with a fixed pattern
- set_ccr_zero
- ;; bra dd:16 ; 16-bit displacement
- bra tgt_24:16 ; NOTE: hard-coded to avoid relaxing.
- ;;; .word 0x5800
- ;;; .word tgt_24 - .
- fail
- tgt_24:
- test_cc_clear
- test_gr_a5a5 0 ; Make sure other general regs not disturbed
- test_gr_a5a5 1
- test_gr_a5a5 2
- test_gr_a5a5 3
- test_gr_a5a5 4
- test_gr_a5a5 5
- test_gr_a5a5 6
- test_gr_a5a5 7
- .endif
- .if (sim_cpu == h8sx)
- bra_reg8:
- set_grs_a5a5 ; Fill all general regs with a fixed pattern
- set_ccr_zero
- ;; bra rn.b ; 8-bit register indirect
- sub.l #src8, @disp8
- mov.l @disp8, er5
- bra r5l.b
- ;;; .word 0x5955
- src8: fail
-
- tgt_reg8:
- test_cc_clear
- test_gr_a5a5 0 ; Make sure other general regs not disturbed
- test_gr_a5a5 1
- test_gr_a5a5 2
- test_gr_a5a5 3
- test_gr_a5a5 4
- ;;; test_h_gr32 tgt_reg8 er5
- test_gr_a5a5 6
- test_gr_a5a5 7
- bra_reg16:
- set_grs_a5a5 ; Fill all general regs with a fixed pattern
- set_ccr_zero
- ;; bra rn.w ; 16-bit register indirect
- sub.l #src16, @disp16
- mov.l @disp16, er5
- bra r5.w
- ;;; .word 0x5956
- src16: fail
-
- tgt_reg16:
- test_cc_clear
- test_gr_a5a5 0 ; Make sure other general regs not disturbed
- test_gr_a5a5 1
- test_gr_a5a5 2
- test_gr_a5a5 3
- test_gr_a5a5 4
- ;;; test_h_gr32 tgt_reg16 er5
- test_gr_a5a5 6
- test_gr_a5a5 7
- bra_reg32:
- set_grs_a5a5 ; Fill all general regs with a fixed pattern
- set_ccr_zero
- ;; bra ern ; 32-bit register indirect
- sub.l #src32, @disp32
- mov.l @disp32, er5
- bra er5.l
- ;;; .word 0x5957
- src32: fail
- tgt_reg32:
- test_cc_clear
- test_gr_a5a5 0 ; Make sure other general regs not disturbed
- test_gr_a5a5 1
- test_gr_a5a5 2
- test_gr_a5a5 3
- test_gr_a5a5 4
- ;;; test_gr_a5a5 5
- test_gr_a5a5 6
- test_gr_a5a5 7
- bra_s: set_grs_a5a5
- set_ccr_zero
- bra/s tgt_post_delay
- ;;; .word 0x4017
- ;; The following instruction is in the delay slot, and should execute.
- mov.b #1, @dslot
- ;; After this, the next instructions should not execute.
- fail
-
- tgt_post_delay:
- test_cc_clear
- cmp.b #0, @dslot ; Should be non-zero if delay slot executed.
- bne dslot_ok
- fail
- dslot_ok:
- test_gr_a5a5 0 ; Make sure all general regs not disturbed
- test_gr_a5a5 1
- test_gr_a5a5 2
- test_gr_a5a5 3
- test_gr_a5a5 4
- test_gr_a5a5 5
- test_gr_a5a5 6
- test_gr_a5a5 7
-
- .endif
- pass
- exit 0
-
|