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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [signext.c] - Blame information for rev 816

Details | Compare with Previous | View Log


void longprint (x)
     long long x;
{
  printf (" %d, %d\n", (unsigned) ((unsigned long long) x >> 32),
          (unsigned) x);
}
 
void
k_min (p, qa, d)
     int d;
{
  int s = 1;
  long long x;
 
  if (s >= d)
    s -= d;
 
  x = ((long long)((8 * s) % 3) + qa) % d;
  longprint (x);
}
 
int
main ()
{
  k_min (100003, -600017, 3);
  return 0;
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`void longprint (x)`
2			`long long x;`
3			`{`
4			`printf (" %d, %d\n", (unsigned) ((unsigned long long) x >> 32),`
5			`(unsigned) x);`
6			`}`
7
8			`void`
9			`k_min (p, qa, d)`
10			`int d;`
11			`{`
12			`int s = 1;`
13			`long long x;`
14
15			`if (s >= d)`
16			`s -= d;`
17
18			`x = ((long long)((8 * s) % 3) + qa) % d;`
19			`longprint (x);`
20			`}`
21
22			`int`
23			`main ()`
24			`{`
25			`k_min (100003, -600017, 3);`
26			`return 0;`
27			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [signext.c] - Blame information for rev 816