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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse-21.c] - Blame information for rev 338

Details | Compare with Previous | View Log


/* Test that we don't generate a fisttp instruction when -mno-sse3.  */
/* { dg-do compile } */
/* { dg-options "-O -mfpmath=387 -march=nocona -mno-sse3" } */
/* { dg-final { scan-assembler-not "fisttp" } } */
struct foo
{
 long a;
 long b;
};
 
extern double c;
 
extern unsigned long long baz (void);
 
int
walrus (const struct foo *input)
{
    unsigned long long d;
 
    d = baz ()
      + (unsigned long long) (((double) input->a * 1000000000
                              + (double) input->b) * c);
    return (d ? 1 : 0);
}

Line No.	Rev	Author	Line
1	318	jeremybenn	`/* Test that we don't generate a fisttp instruction when -mno-sse3. */`
2			`/* { dg-do compile } */`
3			`/* { dg-options "-O -mfpmath=387 -march=nocona -mno-sse3" } */`
4			`/* { dg-final { scan-assembler-not "fisttp" } } */`
5			`struct foo`
6			`{`
7			`long a;`
8			`long b;`
9			`};`
10
11			`extern double c;`
12
13			`extern unsigned long long baz (void);`
14
15			`int`
16			`walrus (const struct foo *input)`
17			`{`
18			`unsigned long long d;`
19
20			`d = baz ()`
21			`+ (unsigned long long) (((double) input->a * 1000000000`
22			`+ (double) input->b) * c);`
23			`return (d ? 1 : 0);`
24			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse-21.c] - Blame information for rev 338