[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / eu-strip-infcall.c

/* Copyright 2011-2022 Free Software Foundation, Inc.

   This file is part of GDB.

   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/>.  */

int
func (void)
{
  return 1;
}

int
callfunc (int (*funcp) (void))
{
  return funcp () * 2;
}

int
main (void)
{
  return callfunc (func);
}
Commit	Line	Data
88b9d363	1	/* Copyright 2011-2022 Free Software Foundation, Inc.
63524580 JK	2
	3	This file is part of GDB.
	4
	5	This program is free software; you can redistribute it and/or modify
	6	it under the terms of the GNU General Public License as published by
	7	the Free Software Foundation; either version 3 of the License, or
	8	(at your option) any later version.
	9
	10	This program is distributed in the hope that it will be useful,
	11	but WITHOUT ANY WARRANTY; without even the implied warranty of
	12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	GNU General Public License for more details.
	14
	15	You should have received a copy of the GNU General Public License
	16	along with this program. If not, see <http://www.gnu.org/licenses/>. */
	17
	18	int
	19	func (void)
	20	{
	21	return 1;
	22	}
	23
	24	int
	25	callfunc (int (*funcp) (void))
	26	{
	27	return funcp () * 2;
	28	}
	29
	30	int
	31	main (void)
	32	{
	33	return callfunc (func);
	34	}