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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [sim/] [testsuite/] [sim/] [cr16/] [tbitb.cgs] - Blame information for rev 330

Details | Compare with Previous | View Log


# cr16 testcase for tbitb
# mach:  cr16
 
        .include "testutils.inc"
 
        start
 
        .global tbitb
tbitb:
        movw $0, r1
        lpr     r1, psr
        movw $_y, r1
        tbitb   $0, 0(r1)
        spr  psr, r1
        cmpb    $0x20, r1
        beq ok1
not_ok:
        fail
 
ok1:
        movw $0, r1
        lpr     r1, psr
        movd   $_y, (r1,r0)
        tbitb   $1,0(r1,r0)
        spr  psr, r1
        cmpb    $0x20, r1
        beq ok2
        br not_ok
ok2:
 
        pass
 
_y:     .word   0xf7

Line No.	Rev	Author	Line
1	330	jeremybenn	`# cr16 testcase for tbitb`
2			`# mach: cr16`
3
4			`.include "testutils.inc"`
5
6			`start`
7
8			`.global tbitb`
9			`tbitb:`
10			`movw $0, r1`
11			`lpr r1, psr`
12			`movw $_y, r1`
13			`tbitb $0, 0(r1)`
14			`spr psr, r1`
15			`cmpb $0x20, r1`
16			`beq ok1`
17			`not_ok:`
18			`fail`
19
20			`ok1:`
21			`movw $0, r1`
22			`lpr r1, psr`
23			`movd $_y, (r1,r0)`
24			`tbitb $1,0(r1,r0)`
25			`spr psr, r1`
26			`cmpb $0x20, r1`
27			`beq ok2`
28			`br not_ok`
29			`ok2:`
30
31			`pass`
32
33			`_y: .word 0xf7`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [sim/] [testsuite/] [sim/] [cr16/] [tbitb.cgs] - Blame information for rev 330