Subversion Repositories openrisc_me

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;

}