darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
old-cross-binutils/gdb/testsuite/gdb.base/callfuncs.c

673 lines
19 KiB
C
Raw Normal View History

2004-01-14 Michael Chastain <mec.gnu@mindspring.com> * gdb.base/callfuncs.c: Add copyright notice.
2004-01-14 14:11:40 +00:00
/* This testcase is part of GDB, the GNU debugger.
Update Copyright year range in all files maintained by GDB.
2014-01-01 03:54:24 +00:00
Copyright 1993-2014 Free Software Foundation, Inc.
2004-01-14 Michael Chastain <mec.gnu@mindspring.com> * gdb.base/callfuncs.c: Add copyright notice.
2004-01-14 14:11:40 +00:00
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
Switch the license of all .c files to GPLv3. Switch the license of all .h files to GPLv3. Switch the license of all .cc files to GPLv3.
2007-08-23 18:08:50 +00:00
the Free Software Foundation; either version 3 of the License, or
2004-01-14 Michael Chastain <mec.gnu@mindspring.com> * gdb.base/callfuncs.c: Add copyright notice.
2004-01-14 14:11:40 +00:00
(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.
Switch the license of all .c files to GPLv3. Switch the license of all .h files to GPLv3. Switch the license of all .cc files to GPLv3.
2007-08-23 18:08:50 +00:00
2004-01-14 Michael Chastain <mec.gnu@mindspring.com> * gdb.base/callfuncs.c: Add copyright notice.
2004-01-14 14:11:40 +00:00
You should have received a copy of the GNU General Public License
Fix for PR gdb/1543. * gdb.base/sep.exp: `sep-proc.c' absolute line numbers replaced with $LOCATION. (location): New variable. * config/cfdbug.exp, config/d10v.exp, config/dve.exp, config/i960.exp, config/m32r.exp, config/mn10300-eval.exp, config/proelf.exp, config/rom68k.exp, config/sh.exp, config/unix.exp, config/vr4300.exp, config/vr5000.exp, config/vxworks.exp, gdb.arch/altivec-regs.exp, gdb.arch/e500-abi.exp, gdb.arch/e500-regs.exp, gdb.asm/asm-source.exp, gdb.base/a2-run.exp, gdb.base/advance.exp, gdb.base/all-bin.exp, gdb.base/args.exp, gdb.base/arithmet.exp, gdb.base/assign.exp, gdb.base/async.exp, gdb.base/auxv.exp, gdb.base/bigcore.c, gdb.base/bigcore.exp, gdb.base/bitfields.exp, gdb.base/bitops.exp, gdb.base/break.c, gdb.base/break.exp, gdb.base/break1.c, gdb.base/call-ar-st.exp, gdb.base/call-rt-st.exp, gdb.base/call-strs.exp, gdb.base/callfuncs.c, gdb.base/callfuncs.exp, gdb.base/checkpoint.exp, gdb.base/chng-syms.exp, gdb.base/code-expr.exp, gdb.base/commands.exp, gdb.base/completion.exp, gdb.base/complex.exp, gdb.base/cond-expr.exp, gdb.base/condbreak.exp, gdb.base/consecutive.exp, gdb.base/corefile.exp, gdb.base/cvexpr.c, gdb.base/cvexpr.exp, gdb.base/dbx.exp, gdb.base/default.exp, gdb.base/define.exp, gdb.base/del.c, gdb.base/detach.exp, gdb.base/display.exp, gdb.base/dump.exp, gdb.base/echo.exp, gdb.base/environ.exp, gdb.base/eval-skip.exp, gdb.base/exprs.exp, gdb.base/fileio.exp, gdb.base/find.exp, gdb.base/finish.exp, gdb.base/funcargs.exp, gdb.base/gcore-buffer-overflow.exp, gdb.base/gcore.exp, gdb.base/gdb1555.exp, gdb.base/gdbvars.exp, gdb.base/help.exp, gdb.base/huge.exp, gdb.base/info-proc.exp, gdb.base/interrupt.exp, gdb.base/jump.exp, gdb.base/langs.exp, gdb.base/lineinc.exp, gdb.base/list.exp, gdb.base/macscp.exp, gdb.base/maint.exp, gdb.base/mips_pro.exp, gdb.base/miscexprs.exp, gdb.base/nodebug.exp, gdb.base/nofield.c, gdb.base/opaque.exp, gdb.base/overlays.exp, gdb.base/page.exp, gdb.base/pc-fp.exp, gdb.base/pending.c, gdb.base/pendshr.c, gdb.base/pointers.exp, gdb.base/psymtab.exp, gdb.base/ptype.exp, gdb.base/randomize.c, gdb.base/readline.exp, gdb.base/recurse.exp, gdb.base/regs.exp, gdb.base/relational.exp, gdb.base/relocate.exp, gdb.base/remote.exp, gdb.base/reread.exp, gdb.base/return.exp, gdb.base/return2.exp, gdb.base/scope.exp, gdb.base/sect-cmd.exp, gdb.base/sep-proc.c, gdb.base/sep.c, gdb.base/sep.exp, gdb.base/sepdebug.c, gdb.base/sepdebug.exp, gdb.base/setshow.exp, gdb.base/shlib-call.exp, gdb.base/sigaltstack.c, gdb.base/so-indr-cl.exp, gdb.base/solib.exp, gdb.base/source.exp, gdb.base/start.c, gdb.base/step-bt.c, gdb.base/step-line.exp, gdb.base/structs.c, gdb.base/structs.exp, gdb.base/structs2.exp, gdb.base/term.exp, gdb.base/twice.exp, gdb.base/type-opaque.exp, gdb.base/until.exp, gdb.base/value-double-free.c, gdb.base/varargs.exp, gdb.base/watchpoint.exp, gdb.base/whatis-exp.exp, gdb.disasm/am33.exp, gdb.disasm/h8300s.exp, gdb.disasm/hppa.exp, gdb.disasm/mn10300.exp, gdb.disasm/sh3.exp, gdb.disasm/t01_mov.exp, gdb.disasm/t02_mova.exp, gdb.disasm/t03_add.exp, gdb.disasm/t04_sub.exp, gdb.disasm/t05_cmp.exp, gdb.disasm/t06_ari2.exp, gdb.disasm/t07_ari3.exp, gdb.disasm/t08_or.exp, gdb.disasm/t09_xor.exp, gdb.disasm/t10_and.exp, gdb.disasm/t11_logs.exp, gdb.disasm/t12_bit.exp, gdb.disasm/t13_otr.exp, gdb.fortran/exprs.exp, gdb.fortran/types.exp, gdb.hp/gdb.aCC/exception.exp, gdb.hp/gdb.aCC/optimize.exp, gdb.hp/gdb.aCC/watch-cmd.exp, gdb.hp/gdb.base-hp/callfwmall.exp, gdb.hp/gdb.base-hp/dollar.exp, gdb.hp/gdb.base-hp/hwwatchbus.exp, gdb.hp/gdb.base-hp/pxdb.exp, gdb.hp/gdb.base-hp/reg-pa64.exp, gdb.hp/gdb.base-hp/reg.exp, gdb.hp/gdb.base-hp/sized-enum.exp, gdb.hp/gdb.base-hp/so-thresh.exp, gdb.hp/gdb.compat/xdb1.exp, gdb.hp/gdb.compat/xdb2.exp, gdb.hp/gdb.compat/xdb3.exp, gdb.java/jmisc.exp, gdb.java/jv-exp.exp, gdb.java/jv-print.exp, gdb.mi/gdb669.exp, gdb.mi/gdb680.exp, gdb.mi/gdb701.exp, gdb.mi/gdb792.exp, gdb.mi/mi-basics.exp, gdb.mi/mi-console.exp, gdb.mi/mi-hack-cli.exp, gdb.mi/mi-pending.c, gdb.mi/mi-pendshr.c, gdb.mi/mi-pthreads.exp, gdb.mi/mi-read-memory.exp, gdb.mi/mi-regs.exp, gdb.mi/mi-syn-frame.exp, gdb.mi/mi-until.exp, gdb.mi/mi2-basics.exp, gdb.mi/mi2-console.exp, gdb.mi/mi2-hack-cli.exp, gdb.mi/mi2-pthreads.exp, gdb.mi/mi2-read-memory.exp, gdb.mi/mi2-regs.exp, gdb.mi/mi2-syn-frame.exp, gdb.mi/mi2-until.exp, gdb.pascal/types.exp, gdb.stabs/weird.exp, gdb.threads/gcore-thread.exp, gdb.threads/manythreads.exp, gdb.threads/print-threads.exp, gdb.threads/pthreads.exp, gdb.threads/schedlock.exp, gdb.threads/step.exp, gdb.threads/step2.exp, gdb.threads/switch-threads.exp, gdb.threads/thread-specific.exp, gdb.threads/thread_check.exp, gdb.threads/thread_events.exp, gdb.threads/tls-nodebug.exp, gdb.threads/tls-shared.exp, gdb.threads/tls.exp, gdb.trace/actions.exp, gdb.trace/backtrace.exp, gdb.trace/circ.exp, gdb.trace/collection.exp, gdb.trace/deltrace.exp, gdb.trace/infotrace.exp, gdb.trace/limits.exp, gdb.trace/packetlen.exp, gdb.trace/passc-dyn.exp, gdb.trace/passcount.exp, gdb.trace/report.exp, gdb.trace/save-trace.exp, gdb.trace/tfind.exp, gdb.trace/tracecmd.exp, gdb.trace/while-dyn.exp, gdb.trace/while-stepping.exp, lib/mi-support.exp, lib/trace-support.exp: Remove reference to bug-gdb@prep.ai.mit.edu .
2008-08-06 12:52:08 +00:00
along with this program. If not, see <http://www.gnu.org/licenses/>. */
2004-01-14 Michael Chastain <mec.gnu@mindspring.com> * gdb.base/callfuncs.c: Add copyright notice.
2004-01-14 14:11:40 +00:00
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
/* Support program for testing gdb's ability to call functions
in the inferior, pass appropriate arguments to those functions,
and get the returned result. */
#ifdef NO_PROTOTYPES
#define PARAMS(paramlist) ()
#else
#define PARAMS(paramlist) paramlist
#endif
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
# include <stdlib.h>
# include <string.h>
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
char char_val1 = 'a';
char char_val2 = 'b';
short short_val1 = 10;
short short_val2 = -23;
int int_val1 = 87;
int int_val2 = -26;
long long_val1 = 789;
long long_val2 = -321;
float float_val1 = 3.14159;
float float_val2 = -2.3765;
* gdb.base/callfuncs.c (t_float_many_args): New function. (t_double_many_args): New function. * gdb.base/callfuncs.exp: Add tests for exceeding float and double parameters passed through the stack.
2008-02-06 03:54:12 +00:00
float float_val3 = 0.25;
float float_val4 = 1.25;
float float_val5 = 2.25;
float float_val6 = 3.25;
float float_val7 = 4.25;
float float_val8 = 5.25;
float float_val9 = 6.25;
float float_val10 = 7.25;
float float_val11 = 8.25;
float float_val12 = 9.25;
float float_val13 = 10.25;
float float_val14 = 11.25;
float float_val15 = 12.25;
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
double double_val1 = 45.654;
double double_val2 = -67.66;
* gdb.base/callfuncs.c (t_float_many_args): New function. (t_double_many_args): New function. * gdb.base/callfuncs.exp: Add tests for exceeding float and double parameters passed through the stack.
2008-02-06 03:54:12 +00:00
double double_val3 = 0.25;
double double_val4 = 1.25;
double double_val5 = 2.25;
double double_val6 = 3.25;
double double_val7 = 4.25;
double double_val8 = 5.25;
double double_val9 = 6.25;
double double_val10 = 7.25;
double double_val11 = 8.25;
double double_val12 = 9.25;
double double_val13 = 10.25;
double double_val14 = 11.25;
double double_val15 = 12.25;
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
2011-05-30 Yao Qi <yao@codesourcery.com> * gdb.base/callfuncs.c (t_structs_fc): New. (t_structs_dc, t_structs_ldc): New. (t_double_many_args): (DEF_FUNC_MANY_ARGS_1, DEF_FUNC_MANY_ARGS_2): Define. (DEF_FUNC_MANY_ARGS_3, DEF_FUNC_VALUES_1): Define. (DEF_FUNC_VALUES_2, DEF_FUNC_VALUES_3): Define. * gdb.base/callfuncs.exp: Call new functions.
2011-05-30 02:51:58 +00:00
#ifdef TEST_COMPLEX
extern float crealf (float _Complex);
extern float cimagf (float _Complex);
extern double creal (double _Complex);
extern double cimag (double _Complex);
extern long double creall (long double _Complex);
extern long double cimagl (long double _Complex);
float _Complex fc1 = 1.0F + 1.0iF;
float _Complex fc2 = 2.0F + 2.0iF;
float _Complex fc3 = 3.0F + 3.0iF;
float _Complex fc4 = 4.0F + 4.0iF;
double _Complex dc1 = 1.0 + 1.0i;
double _Complex dc2 = 2.0 + 2.0i;
double _Complex dc3 = 3.0 + 3.0i;
double _Complex dc4 = 4.0 + 4.0i;
long double _Complex ldc1 = 1.0L + 1.0Li;
long double _Complex ldc2 = 2.0L + 2.0Li;
long double _Complex ldc3 = 3.0L + 3.0Li;
long double _Complex ldc4 = 4.0L + 4.0Li;
#endif /* TEST_COMPLEX */
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
#define DELTA (0.001)
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
char *string_val1 = (char *)"string 1";
char *string_val2 = (char *)"string 2";
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
char char_array_val1[] = "carray 1";
char char_array_val2[] = "carray 2";
struct struct1 {
char c;
short s;
int i;
long l;
float f;
double d;
char a[4];
2011-05-30 Yao Qi <yao@codesourcery.com> * gdb.base/callfuncs.c (t_structs_fc): New. (t_structs_dc, t_structs_ldc): New. (t_double_many_args): (DEF_FUNC_MANY_ARGS_1, DEF_FUNC_MANY_ARGS_2): Define. (DEF_FUNC_MANY_ARGS_3, DEF_FUNC_VALUES_1): Define. (DEF_FUNC_VALUES_2, DEF_FUNC_VALUES_3): Define. * gdb.base/callfuncs.exp: Call new functions.
2011-05-30 02:51:58 +00:00
#ifdef TEST_COMPLEX
float _Complex fc;
double _Complex dc;
long double _Complex ldc;
} struct_val1 ={ 'x', 87, 76, 51, 2.1234, 9.876, "foo", 3.0F + 3.0Fi,
4.0L + 4.0Li, 5.0L + 5.0Li};
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
} struct_val1 = { 'x', 87, 76, 51, 2.1234, 9.876, "foo" };
2011-05-30 Yao Qi <yao@codesourcery.com> * gdb.base/callfuncs.c (t_structs_fc): New. (t_structs_dc, t_structs_ldc): New. (t_double_many_args): (DEF_FUNC_MANY_ARGS_1, DEF_FUNC_MANY_ARGS_2): Define. (DEF_FUNC_MANY_ARGS_3, DEF_FUNC_VALUES_1): Define. (DEF_FUNC_VALUES_2, DEF_FUNC_VALUES_3): Define. * gdb.base/callfuncs.exp: Call new functions.
2011-05-30 02:51:58 +00:00
#endif /* TEST_COMPLEX */
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
/* Some functions that can be passed as arguments to other test
functions, or called directly. */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int add (int a, int b)
#else
int add (a, b) int a, b;
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return (a + b);
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int doubleit (int a)
#else
int doubleit (a) int a;
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return (a + a);
}
int (*func_val1) PARAMS((int,int)) = add;
int (*func_val2) PARAMS((int)) = doubleit;
/* An enumeration and functions that test for specific values. */
enum enumtype { enumval1, enumval2, enumval3 };
enum enumtype enum_val1 = enumval1;
enum enumtype enum_val2 = enumval2;
enum enumtype enum_val3 = enumval3;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_enum_value1 (enum enumtype enum_arg)
#else
int t_enum_value1 (enum_arg) enum enumtype enum_arg;
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return (enum_arg == enum_val1);
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_enum_value2 (enum enumtype enum_arg)
#else
int t_enum_value2 (enum_arg) enum enumtype enum_arg;
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return (enum_arg == enum_val2);
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_enum_value3 (enum enumtype enum_arg)
#else
int t_enum_value3 (enum_arg) enum enumtype enum_arg;
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return (enum_arg == enum_val3);
}
/* A function that takes a vector of integers (along with an explicit
count) and returns their sum. */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int sum_args (int argc, int argv[])
#else
int sum_args (argc, argv) int argc; int argv[];
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
int sumval = 0;
int idx;
for (idx = 0; idx < argc; idx++)
{
sumval += argv[idx];
}
return (sumval);
}
/* Test that we can call functions that take structs and return
members from that struct */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
char t_structs_c (struct struct1 tstruct) { return (tstruct.c); }
short t_structs_s (struct struct1 tstruct) { return (tstruct.s); }
int t_structs_i (struct struct1 tstruct) { return (tstruct.i); }
long t_structs_l (struct struct1 tstruct) { return (tstruct.l); }
float t_structs_f (struct struct1 tstruct) { return (tstruct.f); }
double t_structs_d (struct struct1 tstruct) { return (tstruct.d); }
2001-11-26 Fernando Nasser <fnasser@redhat.com> From 2001-11-12 Jackie Smith Cashion <jsmith@redhat.com>: * gdb.base/callfuncs.c (t_structs_a): Do not return a pointer to a local (non-static) variable. Copy tstruct.a to a static buffer and return a pointer to that buffer. * gdb.base/callfwmall.c (t_structs_a): Ditto.
2001-11-26 21:29:31 +00:00
char *t_structs_a (struct struct1 tstruct)
{
static char buf[8];
strcpy (buf, tstruct.a);
return buf;
}
2011-05-30 Yao Qi <yao@codesourcery.com> * gdb.base/callfuncs.c (t_structs_fc): New. (t_structs_dc, t_structs_ldc): New. (t_double_many_args): (DEF_FUNC_MANY_ARGS_1, DEF_FUNC_MANY_ARGS_2): Define. (DEF_FUNC_MANY_ARGS_3, DEF_FUNC_VALUES_1): Define. (DEF_FUNC_VALUES_2, DEF_FUNC_VALUES_3): Define. * gdb.base/callfuncs.exp: Call new functions.
2011-05-30 02:51:58 +00:00
#ifdef TEST_COMPLEX
float _Complex t_structs_fc (struct struct1 tstruct) { return tstruct.fc;}
double _Complex t_structs_dc (struct struct1 tstruct) { return tstruct.dc;}
long double _Complex t_structs_fc (struct struct1 tstruct) { return tstruct.ldc;}
#endif
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
char t_structs_c (tstruct) struct struct1 tstruct; { return (tstruct.c); }
short t_structs_s (tstruct) struct struct1 tstruct; { return (tstruct.s); }
int t_structs_i (tstruct) struct struct1 tstruct; { return (tstruct.i); }
long t_structs_l (tstruct) struct struct1 tstruct; { return (tstruct.l); }
float t_structs_f (tstruct) struct struct1 tstruct; { return (tstruct.f); }
double t_structs_d (tstruct) struct struct1 tstruct; { return (tstruct.d); }
2001-11-26 Fernando Nasser <fnasser@redhat.com> From 2001-11-12 Jackie Smith Cashion <jsmith@redhat.com>: * gdb.base/callfuncs.c (t_structs_a): Do not return a pointer to a local (non-static) variable. Copy tstruct.a to a static buffer and return a pointer to that buffer. * gdb.base/callfwmall.c (t_structs_a): Ditto.
2001-11-26 21:29:31 +00:00
char *t_structs_a (tstruct) struct struct1 tstruct;
{
static char buf[8];
strcpy (buf, tstruct.a);
return buf;
}
2011-05-30 Yao Qi <yao@codesourcery.com> * gdb.base/callfuncs.c (t_structs_fc): New. (t_structs_dc, t_structs_ldc): New. (t_double_many_args): (DEF_FUNC_MANY_ARGS_1, DEF_FUNC_MANY_ARGS_2): Define. (DEF_FUNC_MANY_ARGS_3, DEF_FUNC_VALUES_1): Define. (DEF_FUNC_VALUES_2, DEF_FUNC_VALUES_3): Define. * gdb.base/callfuncs.exp: Call new functions.
2011-05-30 02:51:58 +00:00
#ifdef TEST_COMPLEX
float _Complex t_structs_fc (tstruct) struct struct1 tstruct; { return tstruct.fc;}
double _Complex t_structs_dc (tstruct) struct struct1 tstruct; { return tstruct.dc;}
long double _Complex t_structs_ldc (tstruct) struct struct1 tstruct; { return tstruct.ldc;}
#endif
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
/* Test that calling functions works if there are a lot of arguments. */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int
sum10 (int i0, int i1, int i2, int i3, int i4, int i5, int i6, int i7, int i8, int i9)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int
sum10 (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9)
int i0, i1, i2, i3, i4, i5, i6, i7, i8, i9;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return i0 + i1 + i2 + i3 + i4 + i5 + i6 + i7 + i8 + i9;
}
/* Test that args are passed in the right order. */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int
cmp10 (int i0, int i1, int i2, int i3, int i4, int i5, int i6, int i7, int i8, int i9)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int
cmp10 (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9)
int i0, i1, i2, i3, i4, i5, i6, i7, i8, i9;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return
(i0 == 0) && (i1 == 1) && (i2 == 2) && (i3 == 3) && (i4 == 4) &&
(i5 == 5) && (i6 == 6) && (i7 == 7) && (i8 == 8) && (i9 == 9);
}
/* Functions that expect specific values to be passed and return
either 0 or 1, depending upon whether the values were
passed incorrectly or correctly, respectively. */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_char_values (char char_arg1, char char_arg2)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_char_values (char_arg1, char_arg2)
char char_arg1, char_arg2;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return ((char_arg1 == char_val1) && (char_arg2 == char_val2));
}
int
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
t_small_values (char arg1, short arg2, int arg3, char arg4, short arg5,
char arg6, short arg7, int arg8, short arg9, short arg10)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
t_small_values (arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10)
char arg1;
short arg2;
int arg3;
char arg4;
short arg5;
char arg6;
short arg7;
int arg8;
short arg9;
short arg10;
#endif
{
return arg1 + arg2 + arg3 + arg4 + arg5 + arg6 + arg7 + arg8 + arg9 + arg10;
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_short_values (short short_arg1, short short_arg2)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_short_values (short_arg1, short_arg2)
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
short short_arg1, short_arg2;
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return ((short_arg1 == short_val1) && (short_arg2 == short_val2));
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_int_values (int int_arg1, int int_arg2)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_int_values (int_arg1, int_arg2)
int int_arg1, int_arg2;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return ((int_arg1 == int_val1) && (int_arg2 == int_val2));
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_long_values (long long_arg1, long long_arg2)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_long_values (long_arg1, long_arg2)
long long_arg1, long_arg2;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return ((long_arg1 == long_val1) && (long_arg2 == long_val2));
}
2001-11-07 Michael Snyder <msnyder@redhat.com> * gdb.base/callfuncs.c (t_float_values): This function must _not_ be prototyped, and the following function (t_float_values2) must be prototyped (if the compiler supports it), so that GDB can be tested against both cases. Usually one case involves promotion of float to double, while the other does not. * gdb.base/callfwmall.c: Ditto.
2001-11-08 19:08:34 +00:00
/* NOTE: THIS FUNCTION MUST NOT BE PROTOTYPED!!!!!
There must be one version of "t_float_values" (this one)
that is not prototyped, and one (if supported) that is (following).
That way GDB can be tested against both cases. */
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_float_values (float_arg1, float_arg2)
float float_arg1, float_arg2;
{
return ((float_arg1 - float_val1) < DELTA
&& (float_arg1 - float_val1) > -DELTA
&& (float_arg2 - float_val2) < DELTA
&& (float_arg2 - float_val2) > -DELTA);
}
int
2001-11-07 Michael Snyder <msnyder@redhat.com> * gdb.base/callfuncs.c (t_float_values): This function must _not_ be prototyped, and the following function (t_float_values2) must be prototyped (if the compiler supports it), so that GDB can be tested against both cases. Usually one case involves promotion of float to double, while the other does not. * gdb.base/callfwmall.c: Ditto.
2001-11-08 19:08:34 +00:00
#ifdef NO_PROTOTYPES
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
/* In this case we are just duplicating t_float_values, but that is the
easiest way to deal with either ANSI or non-ANSI. */
t_float_values2 (float_arg1, float_arg2)
float float_arg1, float_arg2;
2001-11-07 Michael Snyder <msnyder@redhat.com> * gdb.base/callfuncs.c (t_float_values): This function must _not_ be prototyped, and the following function (t_float_values2) must be prototyped (if the compiler supports it), so that GDB can be tested against both cases. Usually one case involves promotion of float to double, while the other does not. * gdb.base/callfwmall.c: Ditto.
2001-11-08 19:08:34 +00:00
#else
t_float_values2 (float float_arg1, float float_arg2)
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
#endif
{
return ((float_arg1 - float_val1) < DELTA
&& (float_arg1 - float_val1) > -DELTA
&& (float_arg2 - float_val2) < DELTA
&& (float_arg2 - float_val2) > -DELTA);
}
* gdb.base/callfuncs.c (t_float_many_args): New function. (t_double_many_args): New function. * gdb.base/callfuncs.exp: Add tests for exceeding float and double parameters passed through the stack.
2008-02-06 03:54:12 +00:00
/* This function has many arguments to force some of them to be passed via
the stack instead of registers, to test that GDB can construct correctly
the parameter save area. Note that Linux/ppc32 has 8 float registers to use
for float parameter passing and Linux/ppc64 has 13, so the number of
arguments has to be at least 14 to contemplate these platforms. */
float
#ifdef NO_PROTOTYPES
t_float_many_args (f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13,
f14, f15)
float f1, float f2, float f3, float f4, float f5, float f6, float f7,
float f8, float f9, float f10, float f11, float f12, float f13, float f14,
float f15;
#else
t_float_many_args (float f1, float f2, float f3, float f4, float f5, float f6,
float f7, float f8, float f9, float f10, float f11,
float f12, float f13, float f14, float f15)
#endif
{
float sum_args;
float sum_values;
sum_args = f1 + f2 + f3 + f4 + f5 + f6 + f7 + f8 + f9 + f10 + f11 + f12
+ f13 + f14 + f15;
sum_values = float_val1 + float_val2 + float_val3 + float_val4 + float_val5
+ float_val6 + float_val7 + float_val8 + float_val9
+ float_val10 + float_val11 + float_val12 + float_val13
+ float_val14 + float_val15;
return ((sum_args - sum_values) < DELTA
&& (sum_args - sum_values) > -DELTA);
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_double_values (double double_arg1, double double_arg2)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_double_values (double_arg1, double_arg2)
double double_arg1, double_arg2;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return ((double_arg1 - double_val1) < DELTA
&& (double_arg1 - double_val1) > -DELTA
&& (double_arg2 - double_val2) < DELTA
&& (double_arg2 - double_val2) > -DELTA);
}
* gdb.base/callfuncs.c (t_float_many_args): New function. (t_double_many_args): New function. * gdb.base/callfuncs.exp: Add tests for exceeding float and double parameters passed through the stack.
2008-02-06 03:54:12 +00:00
/* This function has many arguments to force some of them to be passed via
the stack instead of registers, to test that GDB can construct correctly
the parameter save area. Note that Linux/ppc32 has 8 float registers to use
for float parameter passing and Linux/ppc64 has 13, so the number of
arguments has to be at least 14 to contemplate these platforms. */
double
#ifdef NO_PROTOTYPES
t_double_many_args (f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13,
f14, f15)
double f1, double f2, double f3, double f4, double f5, double f6,
double f7, double f8, double f9, double f10, double f11, double f12,
double f13, double f14, double f15;
#else
t_double_many_args (double f1, double f2, double f3, double f4, double f5,
double f6, double f7, double f8, double f9, double f10,
double f11, double f12, double f13, double f14, double f15)
#endif
{
double sum_args;
double sum_values;
sum_args = f1 + f2 + f3 + f4 + f5 + f6 + f7 + f8 + f9 + f10 + f11 + f12
+ f13 + f14 + f15;
sum_values = double_val1 + double_val2 + double_val3 + double_val4
+ double_val5 + double_val6 + double_val7 + double_val8
+ double_val9 + double_val10 + double_val11 + double_val12
+ double_val13 + double_val14 + double_val15;
return ((sum_args - sum_values) < DELTA
&& (sum_args - sum_values) > -DELTA);
}
2011-05-30 Yao Qi <yao@codesourcery.com> * gdb.base/callfuncs.c (t_structs_fc): New. (t_structs_dc, t_structs_ldc): New. (t_double_many_args): (DEF_FUNC_MANY_ARGS_1, DEF_FUNC_MANY_ARGS_2): Define. (DEF_FUNC_MANY_ARGS_3, DEF_FUNC_VALUES_1): Define. (DEF_FUNC_VALUES_2, DEF_FUNC_VALUES_3): Define. * gdb.base/callfuncs.exp: Call new functions.
2011-05-30 02:51:58 +00:00
/* Various functions for _Complex types. */
#ifdef TEST_COMPLEX
#define COMPARE_WITHIN_RANGE(ARG1, ARG2, DEL, FUNC) \
((FUNC(ARG1) - FUNC(ARG2)) < DEL) && ((FUNC(ARG1) - FUNC(ARG2) > -DEL))
#define DEF_FUNC_MANY_ARGS_1(TYPE, NAME) \
t_##NAME##_complex_many_args (f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, \
f12, f13, f14, f15, f16) \
TYPE _Complex f1, TYPE _Complex f2, TYPE _Complex f3, \
TYPE _Complex f4, TYPE _Complex f5, TYPE _Complex f6, \
TYPE _Complex f7, TYPE _Complex f8, TYPE _Complex f9, \
TYPE _Complex f10, TYPE _Complex f11, TYPE _Complex f12, \
TYPE _Complex f13, TYPE _Complex f14, TYPE _Complex f15, \
TYPE _Complex f16;
#define DEF_FUNC_MANY_ARGS_2(TYPE, NAME) \
t_##NAME##_complex_many_args (TYPE _Complex f1, TYPE _Complex f2, \
TYPE _Complex f3, TYPE _Complex f4, \
TYPE _Complex f5, TYPE _Complex f6, \
TYPE _Complex f7, TYPE _Complex f8, \
TYPE _Complex f9, TYPE _Complex f10, \
TYPE _Complex f11, TYPE _Complex f12, \
TYPE _Complex f13, TYPE _Complex f14, \
TYPE _Complex f15, TYPE _Complex f16)
#define DEF_FUNC_MANY_ARGS_3(TYPE, CREAL, CIMAG) \
{ \
TYPE _Complex expected = fc1 + fc2 + fc3 + fc4 + fc1 + fc2 + fc3 + fc4 \
+ fc1 + fc2 + fc3 + fc4 + fc1 + fc2 + fc3 + fc4; \
TYPE _Complex actual = f1 + f2 + f3 + f4 + f5 + f6 + f7 + f8 + f9 + f10 \
+ f11 + f12 + f13 + f14 + f15 + f16; \
return (COMPARE_WITHIN_RANGE(expected, actual, DELTA, creal) \
&& COMPARE_WITHIN_RANGE(expected, actual, DELTA, creal) \
&& COMPARE_WITHIN_RANGE(expected, actual, DELTA, cimag) \
&& COMPARE_WITHIN_RANGE(expected, actual, DELTA, cimag)); \
}
int
#ifdef NO_PROTOTYPES
DEF_FUNC_MANY_ARGS_1(float, float)
#else
DEF_FUNC_MANY_ARGS_2(float, float)
#endif
DEF_FUNC_MANY_ARGS_3(float, crealf, cimagf)
int
#ifdef NO_PROTOTYPES
DEF_FUNC_MANY_ARGS_1(double, double)
#else
DEF_FUNC_MANY_ARGS_2(double, double)
#endif
DEF_FUNC_MANY_ARGS_3(double, creal, cimag)
int
#ifdef NO_PROTOTYPES
DEF_FUNC_MANY_ARGS_1(long double, long_double)
#else
DEF_FUNC_MANY_ARGS_2(long double, long_double)
#endif
DEF_FUNC_MANY_ARGS_3(long double, creall, cimagl)
#define DEF_FUNC_VALUES_1(TYPE, NAME) \
t_##NAME##_complex_values (f1, f2) TYPE _Complex f1, TYPE _Complex f2;
#define DEF_FUNC_VALUES_2(TYPE, NAME) \
t_##NAME##_complex_values (TYPE _Complex f1, TYPE _Complex f2)
#define DEF_FUNC_VALUES_3(FORMAL_PARM, TYPE, CREAL, CIMAG) \
{ \
return (COMPARE_WITHIN_RANGE(f1, FORMAL_PARM##1, DELTA, CREAL) \
&& COMPARE_WITHIN_RANGE(f2, FORMAL_PARM##2, DELTA, CREAL) \
&& COMPARE_WITHIN_RANGE(f1, FORMAL_PARM##1, DELTA, CIMAG) \
&& COMPARE_WITHIN_RANGE(f2, FORMAL_PARM##2, DELTA, CIMAG)); \
}
int
#ifdef NO_PROTOTYPES
DEF_FUNC_VALUES_1(float, float)
#else
DEF_FUNC_VALUES_2(float, float)
#endif
DEF_FUNC_VALUES_3(fc, float, crealf, cimagf)
int
#ifdef NO_PROTOTYPES
DEF_FUNC_VALUES_1(double, double)
#else
DEF_FUNC_VALUES_2(double, double)
#endif
DEF_FUNC_VALUES_3(fc, double, creal, cimag)
int
#ifdef NO_PROTOTYPES
DEF_FUNC_VALUES_1(long double, long_double)
#else
DEF_FUNC_VALUES_2(long double, long_double)
#endif
DEF_FUNC_VALUES_3(fc, long double, creall, cimagl)
#endif /* TEST_COMPLEX */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_string_values (char *string_arg1, char *string_arg2)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_string_values (string_arg1, string_arg2)
char *string_arg1, *string_arg2;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return (!strcmp (string_arg1, string_val1) &&
!strcmp (string_arg2, string_val2));
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_char_array_values (char char_array_arg1[], char char_array_arg2[])
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_char_array_values (char_array_arg1, char_array_arg2)
char char_array_arg1[], char_array_arg2[];
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return (!strcmp (char_array_arg1, char_array_val1) &&
!strcmp (char_array_arg2, char_array_val2));
}
gdb/testsuite/ * gdb.base/callfuncs.exp (do_function_calls): Use t_double_int and t_int_double. * gdb.base/callfuncs.c (t_double_int, t_int_double): New. gdb/ * mips-tdep.c (mips_n32n64_fp_arg_chunk_p): New. (mips_n32n64_push_dummy_call): Always increment float_argreg along with argreg. Use mips_n32n64_fp_arg_chunk_p.
2007-08-22 15:13:04 +00:00
#ifdef PROTOTYPES
int t_double_int (double double_arg1, int int_arg2)
#else
int t_double_int (double_arg1, int_arg2)
double double_arg1;
int int_arg2;
#endif
{
return ((double_arg1 - int_arg2) < DELTA
&& (double_arg1 - int_arg2) > -DELTA);
}
#ifdef PROTOTYPES
int t_int_double (int int_arg1, double double_arg2)
#else
int t_int_double (int_arg1, double_arg2)
int int_arg1;
double double_arg2;
#endif
{
return ((int_arg1 - double_arg2) < DELTA
&& (int_arg1 - double_arg2) > -DELTA);
}
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
/* This used to simply compare the function pointer arguments with
known values for func_val1 and func_val2. Doing so is valid ANSI
code, but on some machines (RS6000, HPPA, others?) it may fail when
called directly by GDB.
In a nutshell, it's not possible for GDB to determine when the address
of a function or the address of the function's stub/trampoline should
be passed.
So, to avoid GDB lossage in the common case, we perform calls through the
various function pointers and compare the return values. For the HPPA
at least, this allows the common case to work.
If one wants to try something more complicated, pass the address of
a function accepting a "double" as one of its first 4 arguments. Call
that function indirectly through the function pointer. This would fail
on the HPPA. */
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_func_values (int (*func_arg1)(int, int), int (*func_arg2)(int))
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_func_values (func_arg1, func_arg2)
int (*func_arg1) PARAMS ((int, int));
int (*func_arg2) PARAMS ((int));
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return ((*func_arg1) (5,5) == (*func_val1) (5,5)
&& (*func_arg2) (6) == (*func_val2) (6));
}
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#ifdef PROTOTYPES
int t_call_add (int (*func_arg1)(int, int), int a, int b)
#else
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
int t_call_add (func_arg1, a, b)
int (*func_arg1) PARAMS ((int, int));
int a, b;
import gdb-1999-06-28 snapshot
1999-06-28 16:06:02 +00:00
#endif
Initial creation of sourceware repository
1999-04-16 01:35:26 +00:00
{
return ((*func_arg1)(a, b));
}
* gdb.base/callfuncs.c (main): Moved to end of file, call t_double_values to initialize the FPU before inferior calls are made. * gdb.base/callfuncs.exp: Test for register preservation after calling inferior functions. Add tests for continuining, finishing and returning from a stop in a call dummy.
2000-11-06 20:38:02 +00:00
gdb: PR gdb/1158: * valops.c (value_struct_elt): Treat function-valued field as a static method. gdb/testsuite: * gdb.base/callfuncs.c (struct struct_with_fnptr): New struct. (function_struct, function_struct_ptr): New globals. * gdb.base/callfuncs.exp (do_function_calls): Test calling via a function pointer in a struct.
2008-07-27 02:00:04 +00:00
struct struct_with_fnptr
{
int (*func) PARAMS((int));
};
struct struct_with_fnptr function_struct = { doubleit };
struct struct_with_fnptr *function_struct_ptr = &function_struct;
* gdb.base/callfuncs.c (main): Moved to end of file, call t_double_values to initialize the FPU before inferior calls are made. * gdb.base/callfuncs.exp: Test for register preservation after calling inferior functions. Add tests for continuining, finishing and returning from a stop in a call dummy.
2000-11-06 20:38:02 +00:00
* c-exp.y (check_parameter_typelist): New function. (parameter_typelist): Call it. * eval.c (make_params): Handle '(void)' case. * gdbtypes.c (lookup_function_type_with_arguments): Handle '(void)' case. testsuite * gdb.base/whatis.exp: Add error checks for improper 'void' uses. * gdb.base/callfuncs.exp: Add cast-based test. * gdb.base/callfuncs.c (voidfunc): New function.
2012-07-09 14:20:52 +00:00
int *
voidfunc (void)
{
static int twentythree = 23;
return &twentythree;
}
* gdb.base/callfuncs.c (main): Moved to end of file, call t_double_values to initialize the FPU before inferior calls are made. * gdb.base/callfuncs.exp: Test for register preservation after calling inferior functions. Add tests for continuining, finishing and returning from a stop in a call dummy.
2000-11-06 20:38:02 +00:00
/* Gotta have a main to be able to generate a linked, runnable
executable, and also provide a useful place to set a breakpoint. */
2004-01-14 Michael Chastain <mec.gnu@mindspring.com> * gdb.base/callfuncs.c: Remove explicit declaration of malloc.
2004-01-14 14:32:54 +00:00
* gdb.base/callfuncs.c (main): Moved to end of file, call t_double_values to initialize the FPU before inferior calls are made. * gdb.base/callfuncs.exp: Test for register preservation after calling inferior functions. Add tests for continuining, finishing and returning from a stop in a call dummy.
2000-11-06 20:38:02 +00:00
int main ()
{
* gdb.base/callfuncs.c (main): Assign malloc's return value and free it afterwards. * gdb.base/charset-malloc.c (malloc_stub): Likewise. * gdb.base/printcmds.c (main): Likewise. * gdb.base/randomize.c (main): Free "p" and change breakpoint marker position. * gdb.base/setvar.c (dummy): Assign malloc's return value and free it afterwards.
2013-11-27 12:39:26 +00:00
void *p = malloc (1);
* gdb.base/callfuncs.c (main): Moved to end of file, call t_double_values to initialize the FPU before inferior calls are made. * gdb.base/callfuncs.exp: Test for register preservation after calling inferior functions. Add tests for continuining, finishing and returning from a stop in a call dummy.
2000-11-06 20:38:02 +00:00
t_double_values(double_val1, double_val2);
t_structs_c(struct_val1);
* gdb.base/callfuncs.c (main): Assign malloc's return value and free it afterwards. * gdb.base/charset-malloc.c (malloc_stub): Likewise. * gdb.base/printcmds.c (main): Likewise. * gdb.base/randomize.c (main): Free "p" and change breakpoint marker position. * gdb.base/setvar.c (dummy): Assign malloc's return value and free it afterwards.
2013-11-27 12:39:26 +00:00
free (p);
* gdb.base/callfuncs.c (main): Moved to end of file, call t_double_values to initialize the FPU before inferior calls are made. * gdb.base/callfuncs.exp: Test for register preservation after calling inferior functions. Add tests for continuining, finishing and returning from a stop in a call dummy.
2000-11-06 20:38:02 +00:00
return 0 ;
}
gdb/ * elfread.c (elf_symtab_read): Do not ignore .L symbols if they are BSF_SYNTHETIC. gdb/testsuite/ * gdb.base/callfuncs.c (Lcallfunc, callfunc): New functions. * gdb.base/callfuncs.exp (print callfunc (Lcallfunc, 5)): New test.
2011-04-17 18:09:02 +00:00
static int
Lcallfunc (int arg)
{
return arg + 1;
}
int
callfunc (int (*func) (int value), int value)
{
return Lcallfunc (0) * 0 + func (value) * 2;
}
Reference in a new issue Copy permalink