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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.base/] [so-indr-cl.c] - Blame information for rev 840

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
/* 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
}

powered by: WebSVN 2.1.0

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