URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gdb-7.2/] [gdb-7.2-or32-1.0rc1/] [sim/] [testsuite/] [sim/] [cr16/] [jal.cgs] - Rev 341
Compare with Previous | Blame | View Log
# cr16 testcase for jal $sr
# mach(): cr16
.include "testutils.inc"
start
.global jal
jal:
movd $ok1, (r5, r4)
lshd $-1, (r5,r4)
jal (ra), (r5,r4)
not_ok:
fail
ok1:
movd $not_ok, (r7, r6)
lshd $-1, (r7,r6)
cmpd (r7,r6), (ra)
beq ok2
br not_ok
ok2:
movd $ok3, (r5, r4)
lshd $-1, (r5,r4)
jal (r1,r0), (r5,r4)
not_ok1:
br not_ok
ok3:
movd $not_ok1, (r7, r6)
lshd $-1, (r7,r6)
cmpd (r7,r6), (r1,r0)
beq ok4
br not_ok
ok4:
pass