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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [combine-hang.c] - Rev 247

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

typedef union
{
  double value;
  struct
  {
    unsigned long msw;
    unsigned long lsw;
  } parts;
} ieee_double_shape_type;
 
double f (int iy)
{
  double z, t;
  ieee_double_shape_type u, v;
 
  if (iy == 1)
    return 0;
 
  u.parts.msw = iy;
  u.parts.lsw = 0;
  z = u.value;
  v.parts.msw = iy;
  v.parts.lsw = 0;
  t = v.value;
  return 1.0+z+t+t;
}
 

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

powered by: WebSVN 2.1.0

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