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/] [mips_pro.c] - Blame information for rev 178

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
/* Tests regarding examination of prologues.  */
2
 
3
#ifdef PROTOTYPES
4
int
5
inner (int z)
6
#else
7
int
8
inner (z)
9
     int z;
10
#endif
11
{
12
  return 2 * z;
13
}
14
 
15
#ifdef PROTOTYPES
16
int
17
middle (int x)
18
#else
19
int
20
middle (x)
21
     int x;
22
#endif
23
{
24
  if (x == 0)
25
    return inner (5);
26
  else
27
    return inner (6);
28
}
29
 
30
#ifdef PROTOTYPES
31
int
32
top (int y)
33
#else
34
int
35
top (y)
36
     int y;
37
#endif
38
{
39
  return middle (y + 1);
40
}
41
 
42
#ifdef PROTOTYPES
43
int
44
main (int argc, char **argv)
45
#else
46
int
47
main (argc, argv)
48
     int argc;
49
     char **argv;
50
#endif
51
{
52
#ifdef usestubs
53
  set_debug_traps();
54
  breakpoint();
55
#endif
56
  return top (-1) + top (1);
57
}

powered by: WebSVN 2.1.0

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