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

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