URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20000403-1.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
extern unsigned long aa[], bb[]; int seqgt (unsigned long a, unsigned short win, unsigned long b); int seqgt2 (unsigned long a, unsigned short win, unsigned long b); main() { if (! seqgt (*aa, 0x1000, *bb) || ! seqgt2 (*aa, 0x1000, *bb)) abort (); exit (0); } int seqgt (unsigned long a, unsigned short win, unsigned long b) { return (long) ((a + win) - b) > 0; } int seqgt2 (unsigned long a, unsigned short win, unsigned long b) { long l = ((a + win) - b); return l > 0; } unsigned long aa[] = { (1UL << (sizeof (long) * 8 - 1)) - 0xfff }; unsigned long bb[] = { (1UL << (sizeof (long) * 8 - 1)) - 0xfff };
Go to most recent revision | Compare with Previous | Blame | View Log