URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
/* Copyright (C) 2002 Free Software Foundation
|
/* Copyright (C) 2002 Free Software Foundation
|
|
|
Check that constant folding of shift operations is working.
|
Check that constant folding of shift operations is working.
|
|
|
Roger Sayle, 10th October 2002. */
|
Roger Sayle, 10th October 2002. */
|
|
|
extern void abort (void);
|
extern void abort (void);
|
extern void link_error (void);
|
extern void link_error (void);
|
|
|
void
|
void
|
utest (unsigned int x)
|
utest (unsigned int x)
|
{
|
{
|
if (x >> 0 != x)
|
if (x >> 0 != x)
|
link_error ();
|
link_error ();
|
|
|
if (x << 0 != x)
|
if (x << 0 != x)
|
link_error ();
|
link_error ();
|
|
|
if (0 << x != 0)
|
if (0 << x != 0)
|
link_error ();
|
link_error ();
|
|
|
if (0 >> x != 0)
|
if (0 >> x != 0)
|
link_error ();
|
link_error ();
|
|
|
if (-1 >> x != -1)
|
if (-1 >> x != -1)
|
link_error ();
|
link_error ();
|
|
|
if (~0 >> x != ~0)
|
if (~0 >> x != ~0)
|
link_error ();
|
link_error ();
|
}
|
}
|
|
|
void
|
void
|
stest (int x)
|
stest (int x)
|
{
|
{
|
if (x >> 0 != x)
|
if (x >> 0 != x)
|
link_error ();
|
link_error ();
|
|
|
if (x << 0 != x)
|
if (x << 0 != x)
|
link_error ();
|
link_error ();
|
|
|
if (0 << x != 0)
|
if (0 << x != 0)
|
link_error ();
|
link_error ();
|
|
|
if (0 >> x != 0)
|
if (0 >> x != 0)
|
link_error ();
|
link_error ();
|
|
|
if (-1 >> x != -1)
|
if (-1 >> x != -1)
|
link_error ();
|
link_error ();
|
|
|
if (~0 >> x != ~0)
|
if (~0 >> x != ~0)
|
link_error ();
|
link_error ();
|
}
|
}
|
|
|
int
|
int
|
main ()
|
main ()
|
{
|
{
|
utest(9);
|
utest(9);
|
utest(0);
|
utest(0);
|
|
|
stest(9);
|
stest(9);
|
stest(0);
|
stest(0);
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
#ifndef __OPTIMIZE__
|
#ifndef __OPTIMIZE__
|
void
|
void
|
link_error ()
|
link_error ()
|
{
|
{
|
abort ();
|
abort ();
|
}
|
}
|
#endif
|
#endif
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.