OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [nodebug.c] - Rev 840

Compare with Previous | Blame | View Log

#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
{
#ifdef usestubs
  set_debug_traps();
  breakpoint();
#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;
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.