URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [frv/] [sthfi.cgs] - Rev 840
Compare with Previous | Blame | View Log
# frv testcase for sthfi $FRk,@($GRi,$GRj)
# mach: all
.include "testutils.inc"
start
.global sthfi
sthfi:
set_mem_limmed 0xdead,0xbeef,sp
set_gr_gr sp,gr20
inc_gr_immed -4,sp
set_mem_limmed 0xbeef,0xdead,sp
set_gr_gr sp,gr21
set_fr_iimmed 0xffff,0xffff,fr8
sthfi fr8,@(sp,0)
test_mem_limmed 0xffff,0xdead,gr21
test_mem_limmed 0xdead,0xbeef,gr20
inc_gr_immed 0x802,sp ; 2050
sthfi fr8,@(sp,-2048)
test_mem_limmed 0xffff,0xffff,gr21
test_mem_limmed 0xdead,0xbeef,gr20
inc_gr_immed -4092,sp
sthfi fr8,@(sp,0x7fe)
test_mem_limmed 0xffff,0xffff,gr21
test_mem_limmed 0xffff,0xbeef,gr20
pass