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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [mulsl.cgs] - Blame information for rev 840

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn 
# sh testcase for muls.l $rm, $rn, $rd -*- Asm -*-
2 
# mach: all
3 
# as: -isa=shmedia
4 
# ld: -m shelf64
5 
 
6 
        .include "media/testutils.inc"
7 
 
8 
        start
9 
 
10 
        .global mulsl
11 
init:
12 
        pta wrong, tr0
13 
 
14 
mulsl1:
15 
        movi 0, r0
16 
        muls.l r0, r0, r1
17 
        bnei r1, 0, tr0
18 
 
19 
mulsl2:
20 
        movi 0, r0
21 
        movi 1, r1
22 
        muls.l r0, r1, r2
23 
        bnei r2, 0, tr0
24 
 
25 
mulsl3:
26 
        movi 1, r0
27 
        movi 0, r1
28 
        muls.l r0, r1, r2
29 
        bnei r2, 0, tr0
30 
 
31 
mulsl4:
32 
        movi 1, r0
33 
        movi 1, r1
34 
        muls.l r0, r1, r2
35 
        bnei r2, 1, tr0
36 
 
37 
mulsl5:
38 
        movi 2, r0
39 
        movi 9, r1
40 
        muls.l r0, r1, r2
41 
        bnei r2, 18, tr0
42 
 
43 
mulsl6:
44 
        movi 2, r0
45 
        movi -9, r1
46 
        muls.l r0, r1, r2
47 
        bnei r2, -18, tr0
48 
 
49 
okay:
50 
        pass
51 
 
52 
wrong:
53 
        fail
54 
 

powered by: WebSVN 2.1.0

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