OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [980816-1.c] - Blame information for rev 298

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 jeremybenn
/* { dg-do compile } */
2
 
3
int
4
div_and_round_double (lden_orig, hden_orig)
5
     int lden_orig, hden_orig;
6
{
7
  int quo[4];
8
  register int i;
9
  unsigned int  work;
10
  register unsigned int  carry = 0;
11
  int  lden = lden_orig;
12
  int  hden = hden_orig;
13
  neg_double (&lden, &hden);
14
  for (i = 4 - 1; i >= 0; i--)
15
    {
16
      quo[i] = work / (unsigned int ) lden;
17
      carry = work % (unsigned int ) lden;
18
    }
19
  return 0;
20
}

powered by: WebSVN 2.1.0

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