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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [fsts.cgs] - Blame information for rev 373

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

Line No. Rev Author Line
1 330 jeremybenn
# sh testcase for fst.s $rm, $disp10x4, $frf -*- Asm -*-
2
# mach: all
3
# as: -isa=shmedia
4
# ld: -m shelf64
5
 
6
        .include "media/testutils.inc"
7
 
8
        start
9
 
10
        .global fsts
11
fsts:
12
        movi 0x1020, r0
13
        shlli r0, 8, r0
14
        ori r0, 0x30, r0
15
        shlli r0, 8, r0
16
        ori r0, 0x40, r0
17
        shlli r0, 8, r0
18
        ori r0, 0x50, r0
19
        shlli r0, 8, r0
20
        ori r0, 0x60, r0
21
        shlli r0, 8, r0
22
        ori r0, 0x70, r0
23
        shlli r0, 8, r0
24
        ori r0, 0x80, r0
25
        # Set target address.
26
        movi 0x2800, r1
27
        fmov.ls r0, fr0
28
 
29
        fst.s r1, 0, fr0
30
        fst.s r1, 4, fr0
31
        fst.s r1, -4, fr0
32
 
33
okay:
34
        pass

powered by: WebSVN 2.1.0

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