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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.target/] [mips/] [fpr-moves-8.c] - Blame information for rev 321

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 321 jeremybenn
/* { dg-options "(-mips16) -mabi=64 -O2 -EB" } */
2
 
3
extern long double g[16];
4
extern unsigned char gstuff[0x10000];
5
 
6
NOMIPS16 long double
7
foo (long double i1, long double i2, long double i3, long double i4,
8
     long double *x, unsigned char *lstuff)
9
{
10
  g[0] = i1;
11
  g[1] = i2;
12
  g[2] = i3;
13
  g[3] = i4;
14
  x[0] = x[4];
15
  x[1] = 0;
16
  x[2] = 1.0;
17
  x[3] = g[4];
18
  x[4] = *(long double *) (lstuff + 0x7fff);
19
  return *(long double *) (gstuff + 0x7fff);
20
}
21
 
22
MIPS16 long double
23
bar (long double i1, long double i2, long double i3, long double i4,
24
     long double *x, unsigned char *lstuff)
25
{
26
  g[0] = i1;
27
  g[1] = i2;
28
  g[2] = i3;
29
  g[3] = i4;
30
  x[0] = x[4];
31
  x[1] = 0;
32
  x[2] = 1.0;
33
  x[3] = g[4];
34
  x[4] = *(long double *) (lstuff + 0x7fff);
35
  return *(long double *) (gstuff + 0x7fff);
36
}

powered by: WebSVN 2.1.0

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