Subversion Repositories openrisc

/* { dg-do compile } */

/* { dg-options "-O2" } */

/* { dg-options "-O2 -mlp64" { target ia64-*-hpux* } } */

void copy_loop_ldouble (void *xdest,

                        const void *xsrc,

                        long roff,

                        long soff,

                        long len,

                        long shift)

{ __float128 *dest = xdest;

  const long double *src;

  long i;

  roff /= sizeof (__float128);

  soff /= sizeof (__float128);

  src = xsrc;

  src += shift * soff;

  for (i = 0; i < len - shift; ++i) {

        *dest = *src;

        dest += roff;

        src += soff;

  }

}