/* This testcase is part of GDB, the GNU debugger.
Copyright 2012-2021 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see . */
#include
double sinfrob (double d);
double sinfrob16 (double d);
double sinblah (double d);
double sinblah16 (double d);
extern double (*sinfunc) (double);
extern double (*sinfunc16) (double);
extern long i;
double
sinmips16 (double d)
{
i++;
d = sin (d);
d = sinfrob16 (d);
d = sinfrob (d);
d = sinfunc16 (d);
d = sinfunc (d);
i++;
return d;
}
long
lsinmips16 (double d)
{
union
{
double d;
long l[2];
}
u;
i++;
d = sin (d);
d = sinblah (d);
d = sinblah16 (d);
d = sinfunc (d);
u.d = sinfunc16 (d);
i++;
return u.l[0] == 0 && u.l[1] == 0;
}