int
main()
{
int i;
for (i = 0; i < BITS; ++i)
{
long long y = variable_shift (zext[0], i);
if (y != zext[i])
exitl4(y, zext[i], i, 0); //abort ();
}
#if 0
for (i = 0; i < BITS; ++i)
{
long long y = variable_shift (sext[0], i);
if (y != sext[i])
exit(i+1); //abort ();
}
for (i = 0; i < BITS; ++i)
{
long long y = constant_shift (zext[0], i);
if (y != zext[i])
exit(i+1); //abort ();
}
for (i = 0; i < BITS; ++i)
{
long long y = constant_shift (sext[0], i);
if (y != sext[i])
exit(i+1); abort ();
}
#endif
exit (0);
}
int ast_shift_execute( struct ast_shift *s, time_t stoptime )
{
ftsh_integer_t value;
if(s->expr) {
if(!expr_to_integer(s->expr,&value,stoptime)) {
return 0;
}
} else {
value = 1;
}
return variable_shift(value,s->line);
}
int main()
{
int i;
for (i = 0; i < BITS; ++i)
{
unsigned long long y = variable_shift (data[0], i);
if (y != data[i])
abort ();
}
for (i = 0; i < BITS; ++i)
{
unsigned long long y = constant_shift (data[0], i);
if (y != data[i])
abort ();
}
exit (0);
}
