xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.guile/scm-frame.c (revision a5a4af3bd380a7b58b758d9b311cef9f7c34aeb4)

f2(int a)1 int f2 (int a)
2 {
3   return ++a;
4 }
5 
f1(int a,int b)6 int f1 (int a, int b)
7 {
8   return f2(a) + b;
9 }
10 
block(void)11 int block (void)
12 {
13   int i = 99;
14   {
15     double i = 1.1;
16     double f = 2.2;
17     {
18       const char *i = "stuff";
19       const char *f = "foo";
20       const char *b = "bar";
21       return 0; /* Block break here.  */
22     }
23   }
24 }
25 
main(int argc,char * argv[])26 int main (int argc, char *argv[])
27 {
28   block ();
29   return f1 (1, 2);
30 }
31