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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh/] [macl.s] - Blame information for rev 816

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

Line No. Rev Author Line
1 227 jeremybenn
# sh testcase for mac.l
2
# mach: all
3
# as(sh):       -defsym sim_cpu=0
4
# as(shdsp):    -defsym sim_cpu=1 -dsp
5
 
6
        .include "testutils.inc"
7
 
8
        start
9
        # force S-bit clear
10
        clrs
11
 
12
init:
13
        # Prime {MACL, MACH} to #1.
14
        mov #1, r0
15
        dmulu.l r0, r0
16
 
17
        # Set up addresses.
18
        mov.l   pfour00, r0     ! 85
19
        mov.l   pfour12, r1     ! 17
20
 
21
test:
22
        mac.l @r0+, @r1+
23
 
24
check:
25
        # Check result.
26
        assert_sreg     0, mach
27
        assert_sreg     85*17+1, macl
28
 
29
        # Ensure post-increment occurred.
30
        assertreg0      four00+4
31
        assertreg       four12+4, r1
32
 
33
doubleinc:
34
        mov.l   pfour00, r0
35
        mac.l   @r0+, @r0+
36
        assertreg0 four00+8
37
 
38
 
39
        pass
40
        exit 0
41
 
42
        .align 1
43
four00:
44
        .long   85
45
        .long   2
46
four12:
47
        .long   17
48
        .long   3
49
 
50
        .align 2
51
pfour00:
52
        .long four00
53
pfour12:
54
        .long four12

powered by: WebSVN 2.1.0

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