30 lines
349 B
Text
30 lines
349 B
Text
# frv parallel testcase for call $label24
|
|
# mach: fr500 fr550 frv
|
|
|
|
.include "testutils.inc"
|
|
|
|
start
|
|
|
|
.global call
|
|
call:
|
|
set_spr_immed 0,lr
|
|
call ok1
|
|
bad1:
|
|
fail
|
|
ok1:
|
|
test_spr_addr bad1,lr
|
|
|
|
set_spr_immed 0,lr
|
|
setlos.p 0,gr5
|
|
call.p ok2
|
|
bra bad3
|
|
bad2:
|
|
setlos 5,gr5
|
|
fail
|
|
bad3:
|
|
fail
|
|
ok2:
|
|
test_spr_addr bad2,lr
|
|
test_gr_immed 0,gr5
|
|
|
|
pass
|