warn if "source" fails to open the file when from_tty == 0

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / nodebug.c

#include <stdlib.h>
/* Test that things still (sort of) work when compiled without -g.  */

int dataglobal = 3;			/* Should go in global data */
static int datalocal = 4;		/* Should go in local data */
int bssglobal;				/* Should go in global bss */
static int bsslocal;			/* Should go in local bss */

#ifdef PROTOTYPES
int
inner (int x)
#else
int
inner (x)
     int x;
#endif
{
  return x + dataglobal + datalocal + bssglobal + bsslocal;
}

#ifdef PROTOTYPES
static short
middle (int x)
#else
static short
middle (x)
     int x;
#endif
{
  return 2 * inner (x);
}

#ifdef PROTOTYPES
short
top (int x)
#else
short
top (x)
     int x;
#endif
{
  return 2 * middle (x);
}

#ifdef PROTOTYPES
int
main (int argc, char **argv)
#else
int 
main (argc, argv)
     int argc;
     char **argv;
#endif
{
  return top (argc);
}

int *x;

#ifdef PROTOTYPES
int array_index (char *arr, int i)
#else
int
array_index (arr, i)
     char *arr;
     int i;
#endif
{
  /* The basic concept is just "return arr[i];".  But call malloc so that gdb
     will be able to call functions.  */
  char retval;
  x = (int *) malloc (sizeof (int));
  *x = i;
  retval = arr[*x];
  free (x);
  return retval;
}