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/] [ia64/] [postinc-1.c] - Rev 319

Compare with Previous | Blame | View Log

/* { 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;
  }
}
 

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.