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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [tree-ssa/] [pr24670.c] - Blame information for rev 867

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

Line No. Rev Author Line
1 149 jeremybenn
/* { dg-do compile } */
2
/* { dg-options "-O2" } */
3
 
4
__inline__ void
5
shift128Right (int count, long long int *z1Ptr)
6
{
7
  long long int z1;
8
  if (count == 0);
9
  else if (count < 64);
10
  else
11
    z1 = (count < 64) ? count : 0;
12
  *z1Ptr = z1;
13
}
14
 
15
float128_rem ()
16
{
17
  signed int expDiff;
18
  long long int aSig1;
19
  long long int sigMean1;
20
  if (-64 < expDiff)
21
    shift128Right (-expDiff, &aSig1);
22
  add128 (&sigMean1);
23
}

powered by: WebSVN 2.1.0

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