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] - Diff between revs 827 and 840

Rev 827	Rev 840
`/* This program is linked against SOM shared libraries, which the loader`	`/* This program is linked against SOM shared libraries, which the loader`
`automatically loads along with the program itself).`	`automatically loads along with the program itself).`
`*/`	`*/`

`#include <stdio.h>`	`#include <stdio.h>`
`#ifdef PROTOTYPES`	`#ifdef PROTOTYPES`
`extern "C" int solib_main (int);`	`extern "C" int solib_main (int);`

`static int`	`static int`
`solib_wrapper (int (*function)(int))`	`solib_wrapper (int (*function)(int))`
`#else`	`#else`
`extern int solib_main (int);`	`extern int solib_main (int);`

`static int`	`static int`
`solib_wrapper (function)`	`solib_wrapper (function)`
`int (*function)(int);`	`int (*function)(int);`
`#endif`	`#endif`
`{`	`{`
`return (*function)(100);`	`return (*function)(100);`
`}`	`}`


`int main ()`	`int main ()`
`{`	`{`
`int result;`	`int result;`

`/* This is an indirect call to solib_main. */`	`/* This is an indirect call to solib_main. */`
`result = solib_wrapper (solib_main);`	`result = solib_wrapper (solib_main);`
`return 0;`	`return 0;`
`}`	`}`