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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [run.c] - Rev 157

Compare with Previous | Blame | View Log

/*
 *	This simple classical example of recursion is useful for
 *	testing stack backtraces and such.
 */
 
#ifdef vxworks
 
#  include <stdio.h>
 
/* VxWorks does not supply atoi.  */
static int
atoi (z)
     char *z;
{
  int i = 0;
 
  while (*z >= '0' && *z <= '9')
    i = i * 10 + (*z++ - '0');
  return i;
}
 
/* I don't know of any way to pass an array to VxWorks.  This function
   can be called directly from gdb.  */
 
vxmain (arg)
char *arg;
{
  char *argv[2];
 
  argv[0] = "";
  argv[1] = arg;
  main (2, argv, (char **) 0);
}
 
#else /* ! vxworks */
#  include <stdio.h>
#  include <stdlib.h>
#endif /* ! vxworks */
 
#ifdef PROTOTYPES
int factorial (int);
 
int
main (int argc, char **argv, char **envp)
#else
int
main (argc, argv, envp)
int argc;
char *argv[], **envp;
#endif
{
#ifdef usestubs
    set_debug_traps();
    breakpoint();
#endif
#ifdef FAKEARGV
    printf ("%d\n", factorial (1));
#else    
    if (argc != 2) {
	printf ("usage:  factorial <number>\n");
	return 1;
    } else {
	printf ("%d\n", factorial (atoi (argv[1])));
    }
#endif
    return 0;
}
 
#ifdef PROTOTYPES
int factorial (int value)
#else
int factorial (value) int value;
#endif
{
    int  local_var;
 
    if (value > 1) {
	value *= factorial (value - 1);
    }
    local_var = value;
    return (value);
}
 

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.