binutils-gdb/gdb/testsuite/gdb.reverse/finish-reverse.c
Joel Brobecker 4c38e0a4fc Update copyright year in most headers.
Automatic update by copyright.sh.
2010-01-01 07:32:07 +00:00

129 lines
3.6 KiB
C

/* This testcase is part of GDB, the GNU debugger.
Copyright 2008, 2009, 2010 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 <http://www.gnu.org/licenses/>. */
/* Test gdb's "return" command in reverse. */
int void_test = 0;
int main_test = 0;
char char_returnval = '1';
short short_returnval = 1;
int int_returnval = 1;
long long_returnval = 1;
long long long_long_returnval = 1;
float float_returnval = 1;
double double_returnval = 1;
union {
char char_testval;
short short_testval;
int int_testval;
long long_testval;
long long long_long_testval;
float float_testval;
double double_testval;
char ffff[80];
} testval;
void void_func ()
{
void_test = 1; /* VOID FUNC */
}
char char_func ()
{
return char_returnval; /* CHAR FUNC */
}
short short_func ()
{
return short_returnval; /* SHORT FUNC */
}
int int_func ()
{
return int_returnval; /* INT FUNC */
}
long long_func ()
{
return long_returnval; /* LONG FUNC */
}
long long long_long_func ()
{
return long_long_returnval; /* LONG LONG FUNC */
}
float float_func ()
{
return float_returnval; /* FLOAT FUNC */
}
double double_func ()
{
return double_returnval; /* DOUBLE FUNC */
}
int main (int argc, char **argv)
{
char char_resultval;
short short_resultval;
int int_resultval;
long long_resultval;
long long long_long_resultval;
float float_resultval;
double double_resultval;
int i;
/* A "test load" that will insure that the function really returns
a ${type} (as opposed to just a truncated or part of a ${type}). */
for (i = 0; i < sizeof (testval.ffff); i++)
testval.ffff[i] = 0xff;
void_func (); /* call to void_func */
char_resultval = char_func (); /* void_checkpoint */
short_resultval = short_func (); /* char_checkpoint */
int_resultval = int_func (); /* short_checkpoint */
long_resultval = long_func (); /* int_checkpoint */
long_long_resultval = long_long_func (); /* long_checkpoint */
/* On machines using IEEE floating point, the test pattern of all
1-bits established above turns out to be a floating-point NaN
("Not a Number"). According to the IEEE rules, NaN's aren't even
equal to themselves. This can lead to stupid conversations with
GDB like:
(gdb) p testval.float_testval == testval.float_testval
$7 = 0
(gdb)
This is the correct answer, but it's not the sort of thing
return2.exp wants to see. So to make things work the way they
ought, we'll set aside the `union' cleverness and initialize the
test values explicitly here. These values have interesting bits
throughout the value, so we'll still detect truncated values. */
testval.float_testval = 2.7182818284590452354;/* long_long_checkpoint */
float_resultval = float_func ();
testval.double_testval = 3.14159265358979323846; /* float_checkpoint */
double_resultval = double_func ();
main_test = 1; /* double_checkpoint */
return 0;
} /* end of main */