gnu/dist/gdb6/gdb/testsuite/gdb.base/so-indr-cl.c

   1 /* This program is linked against SOM shared libraries, which the loader
   2    automatically loads along with the program itself).
   3    */
   4
   5 #include <stdio.h>
   6 #ifdef PROTOTYPES
   7 extern "C" int solib_main (int);
   8
   9 static int
  10 solib_wrapper (int (*function)(int))
  11 #else
  12 extern int solib_main (int);
  13
  14 static int
  15 solib_wrapper (function)
  16   int (*function)(int);
  17 #endif
  18 {
  19   return (*function)(100);
  20 }
  21
  22
  23 int main ()
  24 {
  25   int  result;
  26
  27   /* This is an indirect call to solib_main. */
  28   result = solib_wrapper (solib_main);
  29   return 0;
  30 }