URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [fr30/] [ret.cgs] - Blame information for rev 26

Details | Compare with Previous | View Log


# fr30 testcase for ret
# mach(): fr30
 
        .include "testutils.inc"
 
        START
 
        .text
        .global ret
 
        ; Test ret
        mvi_h_gr        0xdeadbeef,r9
        mvi_h_gr        #func1,r0
        set_cc          0x0f            ; condition codes shouldn't change
call1:
        call            @r0
        testr_h_gr      2,r0
        test_h_gr       0xbeefdead,r9
        pass
 
func1:
        test_cc         1 1 1 1
        mvi_h_gr        #call1,r7
        inci_h_gr       2,r7
        testr_h_dr      r7,rp
        save_rp
 
        mvi_h_gr        #func2,r0
        set_cc          0x0f            ; condition codes shouldn't change
call2:
        call:d          @r0
        ldi:8           1,r0            ; Must assume this works
        testr_h_gr      2,r0
        restore_rp
        ret
func2:
        test_cc         1 1 1 1
        mvi_h_gr        #call2,r7
        inci_h_gr       4,r7
        testr_h_dr      r7,rp
        testr_h_gr      1,r0
        save_rp
 
        set_cc          0x0f            ; condition codes shouldn't change
call3:
        call            func3
        testr_h_gr      2,r0
        restore_rp
        ret
func3:
        test_cc         1 1 1 1
        mvi_h_gr        #call3,r7
        inci_h_gr       2,r7
        testr_h_dr      r7,rp
        save_rp
 
        set_cc          0x0f            ; condition codes shouldn't change
call4:
        call:d          func4
        ldi:8           1,r0            ; Must assume this works
        testr_h_gr      3,r0
        restore_rp
        ret:d
        ldi:8           2,r0            ; Must assume this works
func4:
        test_cc         1 1 1 1
        mvi_h_gr        #call4,r7
        inci_h_gr       4,r7
        testr_h_dr      r7,rp
        testr_h_gr      1,r0
        mvi_h_gr        0xbeefdead,r9
        ret:d
        ldi:8           3,r0            ; Must assume this works
 
        fail

Line No.	Rev	Author	Line
1	26	jlechner	`# fr30 testcase for ret`
2			`# mach(): fr30`
3
4			`.include "testutils.inc"`
5
6			`START`
7
8			`.text`
9			`.global ret`
10
11			`; Test ret`
12			`mvi_h_gr 0xdeadbeef,r9`
13			`mvi_h_gr #func1,r0`
14			`set_cc 0x0f ; condition codes shouldn't change`
15			`call1:`
16			`call @r0`
17			`testr_h_gr 2,r0`
18			`test_h_gr 0xbeefdead,r9`
19			`pass`
20
21			`func1:`
22			`test_cc 1 1 1 1`
23			`mvi_h_gr #call1,r7`
24			`inci_h_gr 2,r7`
25			`testr_h_dr r7,rp`
26			`save_rp`
27
28			`mvi_h_gr #func2,r0`
29			`set_cc 0x0f ; condition codes shouldn't change`
30			`call2:`
31			`call:d @r0`
32			`ldi:8 1,r0 ; Must assume this works`
33			`testr_h_gr 2,r0`
34			`restore_rp`
35			`ret`
36			`func2:`
37			`test_cc 1 1 1 1`
38			`mvi_h_gr #call2,r7`
39			`inci_h_gr 4,r7`
40			`testr_h_dr r7,rp`
41			`testr_h_gr 1,r0`
42			`save_rp`
43
44			`set_cc 0x0f ; condition codes shouldn't change`
45			`call3:`
46			`call func3`
47			`testr_h_gr 2,r0`
48			`restore_rp`
49			`ret`
50			`func3:`
51			`test_cc 1 1 1 1`
52			`mvi_h_gr #call3,r7`
53			`inci_h_gr 2,r7`
54			`testr_h_dr r7,rp`
55			`save_rp`
56
57			`set_cc 0x0f ; condition codes shouldn't change`
58			`call4:`
59			`call:d func4`
60			`ldi:8 1,r0 ; Must assume this works`
61			`testr_h_gr 3,r0`
62			`restore_rp`
63			`ret:d`
64			`ldi:8 2,r0 ; Must assume this works`
65			`func4:`
66			`test_cc 1 1 1 1`
67			`mvi_h_gr #call4,r7`
68			`inci_h_gr 4,r7`
69			`testr_h_dr r7,rp`
70			`testr_h_gr 1,r0`
71			`mvi_h_gr 0xbeefdead,r9`
72			`ret:d`
73			`ldi:8 3,r0 ; Must assume this works`
74
75			`fail`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [fr30/] [ret.cgs] - Blame information for rev 26