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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20001205-1.c] - Blame information for rev 774

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


/* { dg-do assemble } */
 
static inline unsigned long rdfpcr(void)
{
        unsigned long tmp, ret;
        __asm__ ("" : "=r"(tmp), "=r"(ret));
        return ret;
}
 
static inline unsigned long
swcr_update_status(unsigned long swcr, unsigned long fpcr)
{
        swcr &= ~0x7e0000ul;
        swcr |= (fpcr >> 3) & 0x7e0000ul;
        return swcr;
}
 
unsigned long osf_getsysinfo(unsigned long flags)
{
        unsigned long w;
        w = swcr_update_status(flags, rdfpcr());
        return w;
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`/* { dg-do assemble } */`
2
3			`static inline unsigned long rdfpcr(void)`
4			`{`
5			`unsigned long tmp, ret;`
6			`__asm__ ("" : "=r"(tmp), "=r"(ret));`
7			`return ret;`
8			`}`
9
10			`static inline unsigned long`
11			`swcr_update_status(unsigned long swcr, unsigned long fpcr)`
12			`{`
13			`swcr &= ~0x7e0000ul;`
14			`swcr \|= (fpcr >> 3) & 0x7e0000ul;`
15			`return swcr;`
16			`}`
17
18			`unsigned long osf_getsysinfo(unsigned long flags)`
19			`{`
20			`unsigned long w;`
21			`w = swcr_update_status(flags, rdfpcr());`
22			`return w;`
23			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20001205-1.c] - Blame information for rev 774