OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [frv/] [fr550/] [udiv.cgs] - Blame information for rev 816

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
# frv testcase for udiv $GRi,$GRj,$GRk
2
# mach: all
3
 
4
        .include "../testutils.inc"
5
 
6
        start
7
 
8
        .global udiv
9
udiv:
10
        ; simple division 12 / 3
11
        set_gr_immed    0x00000003,gr2
12
        set_gr_immed    0x0000000c,gr3
13
        udiv            gr3,gr2,gr3
14
        test_gr_immed   0x00000003,gr2
15
        test_gr_immed   0x00000004,gr3
16
 
17
        ; example 1 from udiv in the fr30 manual
18
        set_gr_limmed   0x0123,0x4567,gr2
19
        set_gr_limmed   0xfedc,0xba98,gr3
20
        udiv            gr3,gr2,gr3
21
        test_gr_limmed  0x0123,0x4567,gr2
22
        test_gr_immed   0x000000e0,gr3
23
 
24
        ; set up exception handler
25
        set_psr_et      1
26
        and_spr_immed   -4081,tbr       ; clear tbr.tt
27
        set_gr_spr      tbr,gr17
28
        inc_gr_immed    0x170,gr17      ; address of exception handler
29
        set_bctrlr_0_0  gr17
30
        set_spr_immed   128,lcr
31
        set_gr_immed    0,gr15
32
 
33
        ; divide by zero
34
        set_spr_addr    ok1,lr
35
        set_gr_addr     e1,gr17
36
e1:     udiv            gr1,gr0,gr2     ; divide by zero
37
        test_gr_immed   1,gr15
38
 
39
        pass
40
 
41
ok1:    ; exception handler for divide by zero
42
        test_spr_bits   0x18,3,0x3,isr          ; isr.dtt is set
43
        test_spr_gr     epcr0,gr17              ; return address set
44
        test_spr_bits   0x0001,0,0x1,esr0       ; esr0 is valid
45
        test_spr_bits   0x003e,1,0x13,esr0      ; esr0.ec is set
46
        inc_gr_immed    1,gr15
47
        rett            0
48
        fail

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.